|
|
发表于 2007-6-11 09:49:00
|
显示全部楼层
wblock方法能保存带属性的块
' 批量导出当前图纸中的图块定义到单个文件
Public Sub ExportBlocksToSingleFile()
Dim EntObj As AcadBlock
ThisDrawing.SetVariable "FILEDIA", 0
For Each EntObj In ThisDrawing.Blocks
If Left(EntObj.Name, 1) "*" Or Left(EntObj.Name, 1) "_" Then
' 注意此时导出的单个文件位于AutoCAD的安装目录下
'ThisDrawing.SendCommand "-WBLOCK" & vbLf & EntObj.Name & vbLf & "=" & vbLf
' 此时导出的单个文件位于到制定目录下
ThisDrawing.SendCommand "-WBLOCK" & vbLf & App.Path & "\SysBlock\" & EntObj.Name & vbLf & EntObj.Name & vbLf
End If
Next
ThisDrawing.SetVariable "FILEDIA", 1
End Sub |
|
置顶卡
