插入外部属性块

home

能不能实现在当前cad中，插入一个外部的块，这个块是带属性的，并且在插入的过程中，能够修改属性。

紧急呀，希望高手给个提示！！

azjmjsj

你需要先插入块，然后再设置块的属性
参考一下代码:
Dim blkRef as AcadBlockRefrence
Set blkRef=ThisDrawing.ModelSpace.InsertBlock(InsertionPoint,BlockName,x scale,y scale, _
                                z scale,rotation)
Dim varAttr As Variant
For Each varAttr in blkRef.GetAttributes()
    Select Case UCase(varAttr.TagString)
        Case "TAG1"
            varAttr.TextString="Value1"
        Case "TAG2"
            varAttr.TextString="Value2"
        ......
  End Select
varAttr.Update
Next

a2109

楼主的意思是插入一个带属性的外部块吧