silenceboy 发表于 2007-6-8 10:46:00

属性块的自动保存问题

<p>各位大侠，wblock方法是不是只能保存不带属性的块呢？</p><p>如何在程序中自动保存一个追加了属性的块呢？</p><p>非常感谢</p>

silenceboy 发表于 2007-6-8 15:32:00

有那位知道，请告知一声，谢谢！

wylong 发表于 2007-6-11 09:49:00

<p>wblock方法能保存带属性的块</p><p>' 批量导出当前图纸中的图块定义到单个文件<br/>Public Sub ExportBlocksToSingleFile()<br/>&nbsp;&nbsp;&nbsp; Dim EntObj As AcadBlock<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ThisDrawing.SetVariable "FILEDIA", 0<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; For Each EntObj In ThisDrawing.Blocks<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Left(EntObj.Name, 1) &lt;&gt; "*" Or Left(EntObj.Name, 1) &lt;&gt; "_" Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 注意此时导出的单个文件位于AutoCAD的安装目录下<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 'ThisDrawing.SendCommand "-WBLOCK" &amp; vbLf &amp; EntObj.Name &amp; vbLf &amp; "=" &amp; vbLf<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ' 此时导出的单个文件位于到制定目录下<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ThisDrawing.SendCommand "-WBLOCK" &amp; vbLf &amp; App.Path &amp; "\SysBlock\" &amp; EntObj.Name &amp; vbLf &amp; EntObj.Name &amp; vbLf<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; Next<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; ThisDrawing.SetVariable "FILEDIA", 1<br/>End Sub<br/></p><p></p>
页: [1]
查看完整版本: 属性块的自动保存问题