こんにちは、次のマクロを使って図面内の全ての図形を探索して「A」という名前のブロックを探し出して、その属性情報を書き換えるマクロを作成しています。 ですが、この方法だと、図形が3000～10000個ぐらいあると、数秒かかってしまい、使いづらいです。 ThisDrawing.ModelSpaceというコレクションをブロック参照に限定させる方法や クイック選択など、AutoCADのコマンドをVBAで使用する方法、 その他特定の図形を選択する方法(クリックして選択などではない方法で) など、何か素早く図形を選択する方法をご存知の方いらっしゃったらご教授お願いします For Each objEntity In ThisDrawing.ModelSpace If objEntity.ObjectName = "AcDbBlockReference" Then Set objEntity2 = objEntity If InStr(objEntity2.Name, "A") > 0 Then objEntity3 = objEntity2.GetAttributes() objEntity3(0).TextString = Left(objEntity3(0).TextString, 10) End If End If Next
↧