属性块的自动保存问题

silenceboy

各位大侠，wblock方法是不是只能保存不带属性的块呢？

如何在程序中自动保存一个追加了属性的块呢？

非常感谢

silenceboy

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

wylong

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