社区 › VB › 属性块的自动保存问题

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

属性块的自动保存问题

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

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

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

wylong 发表于 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

查看完整版本: 属性块的自动保存问题