vba属性
有人能帮我吗？我正在寻找一些vba代码，可以将所有属性和标记信息从活动图形导出到数据库或文本文件，但我不想使用autocads版本？？？ 到目前为止你有什么？你在找什么语言？我在VBA中有它，可以导出到txt文件或excel ss 刚开始研究这个问题，但这两种格式的帮助都很好vba会比lisp更好，因为我在阅读时比vba有更多的困难 写入文件的示例代码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 这是我的属性代码的txt文件。由于某种原因，我无法在代码标签中发布整个代码
图片博客（photo blog）txt文件 谢谢你，我会看看你发给我的代码，看看我是否能理解。非常感谢 您好，我已经看了代码，但我无法理解。您能给我看一下它正在引用的表单吗？为了更好地了解它正在从该表单中获取的数据，因为我是新手，我会帮助我更好地理解它的。谢谢 这会列出当前图形中的所有块，并将它们打印到EXCEL工作表中，还是仅列出具有特定名称的工作表？ 它只查找我的标题栏信息块，名为titlinfo或vtitlinfo，或该列表中的其他几个。表单只是传递一个字符串，用作在excel中打开的文件名。 这些是我要找的标题栏
页:
[1]