|
|
你好,我在图中插入一个外部参照(一个带有属性的图块),再对插入的这个图块进行ate属性加工,为什么他说块不具有可编辑属性?麻烦版主解答一下
Sub lzx()
Dim insertpoint As Variant
Dim externalblock As AcadExternalReference
Dim tempblock As AcadBlock
Dim filename As String
insertpoint = ThisDrawing.Utility.GetPoint(, "请指定第一个点")
filename = "e:\新块.dwg"
Set externalblock = ThisDrawing.ModelSpace.AttachExternalReference(filename, "aaa", insertpoint, 1, 1, 1, 0, False)
End Sub |
|
置顶卡
