Skip to main content
書式の改善
ソース リンク
cubick
  • 2.1万
  • 5
  • 27
  • 64

お世話になっております。
AutoCADのVBAの開発についての質問です。
図面内の全ての図形を探索して「A」という名前のブロックを検索し、その属性情報を変更するマクロを作成しています。

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

この方法だと図形が数千個存在する場合、10秒程かかります。
高速に検索できる方法がありましたらご教授ください。
よろしくお願いします。

お世話になっております。
AutoCADのVBAの開発についての質問です。
図面内の全ての図形を探索して「A」という名前のブロックを検索し、その属性情報を変更するマクロを作成しています。

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

この方法だと図形が数千個存在する場合、10秒程かかります。
高速に検索できる方法がありましたらご教授ください。
よろしくお願いします。

お世話になっております。
AutoCADのVBAの開発についての質問です。
図面内の全ての図形を探索して「A」という名前のブロックを検索し、その属性情報を変更するマクロを作成しています。

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

この方法だと図形が数千個存在する場合、10秒程かかります。
高速に検索できる方法がありましたらご教授ください。
よろしくお願いします。

ソース リンク
user28019
  • 411
  • 1
  • 8
  • 14

AutoCAD 図形を選択するVBAマクロについて

お世話になっております。
AutoCADのVBAの開発についての質問です。
図面内の全ての図形を探索して「A」という名前のブロックを検索し、その属性情報を変更するマクロを作成しています。

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

この方法だと図形が数千個存在する場合、10秒程かかります。
高速に検索できる方法がありましたらご教授ください。
よろしくお願いします。