home 发表于 2008-5-31 17:29:00

插入外部属性块

<p>能不能实现在当前cad中，插入一个外部的块，这个块是带属性的，并且在插入的过程中，能够修改属性。</p><p>紧急呀，希望高手给个提示！！</p>

azjmjsj 发表于 2008-6-2 00:40:00

本帖最后由 作者 于 2008-6-2 0:46:16 编辑 <br /><br /> <p>你需要先插入块，然后再设置块的属性<br/>参考一下代码:<br/>Dim blkRef as AcadBlockRefrence <br/>Set blkRef=ThisDrawing.ModelSpace.InsertBlock(InsertionPoint,BlockName,x scale,y scale, _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; z scale,rotation)<br/>Dim varAttr As Variant <br/>For Each varAttr in blkRef.GetAttributes()<br/>&nbsp;&nbsp;&nbsp; Select Case UCase(varAttr.TagString)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case "TAG1"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; varAttr.TextString="Value1"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Case "TAG2" <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; varAttr.TextString="Value2"<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ......<br/>&nbsp; End Select<br/>varAttr.Update<br/>Next</p>

a2109 发表于 2011-8-4 18:19:10

楼主的意思是插入一个带属性的外部块吧
页: [1]
查看完整版本: 插入外部属性块