vba属性

dave buckberry · 发表于 2022-7-6 17:11:19

有人能帮我吗？我正在寻找一些vba代码，可以将所有属性和标记信息从活动图形导出到数据库或文本文件，但我不想使用autocads版本？？？

CmdrDuh · 发表于 2022-7-6 17:20:00

到目前为止你有什么？你在找什么语言？我在VBA中有它，可以导出到txt文件或excel ss

dave buckberry · 发表于 2022-7-6 17:28:36

刚开始研究这个问题，但这两种格式的帮助都很好vba会比lisp更好，因为我在阅读时比vba有更多的困难

CmdrDuh · 发表于 2022-7-6 17:32:43

写入文件的示例代码

copy

Public Sub ExPortLayers()
     Dim strLayer As String
     Dim strPlotStyle As String
     Dim strOnOff As String
     Dim strFrozenThaw As String
     Dim objLayer As AcadLayer
                 Open "C:\LayerExport.txt" For Append Access Write As 1
                 Write #1, " "
                 Close #1
     For Each objLayer In ThisDrawing.Layers
           strLayer = objLayer.Name
           strPlotStyle = objLayer.PlotStyleName
           strOnOff = objLayer.LayerOn
           strFrozenThaw = objLayer.Freeze
           Open "C:\LayerExport.txt" For Append Access Write As 1
           Write #1, strLayer & "," & Mid(strPlotStyle, 7) & "," & strOnOff & "," & strFrozenThaw
           Close #1
     Next
End Sub