提取MTXT，包括fiel

ReMark · 发表于 2022-7-6 06:40:21

选项1。提取属性。。。http://www.ellenfinkelstein.com/acadblog/autocad-tutorial-extract-attributes/

选项2。Lee Mac的全局属性提取器。。。http://lee-mac.com/macatt.html

Tyke · 发表于 2022-7-6 06:42:41

我已经在路上一整天了，刚刚回来，我知道有点晚了，但这里有一个VBA解决格伦的问题。您需要将Excel工作簿打开到工作表，并选择要输入第一个值的单元格。连续条目将输入下一行的同一列中。在AutoCAD中，运行以下宏时，系统将提示您选择多行文字项目，直到不拾取任何非多行文字的项目为止，请按Esc键、按空格键或单击鼠标右键。它不拾取多行文字的第一部分，只拾取屏幕上显示的文字。

copy


Public Sub ToExcel()
   Dim objMText      As AcadMText
   Dim varInsPt      As Variant
   Dim Row           As Integer
   Dim Col           As Integer
   Dim i             As Integer
   Dim strMText      As String
   Dim c             As Integer
   Dim ExcelApp      As Object
   Dim ExcelSheet    As Object
   Dim ExcelWorkbook As Object
   Set ExcelApp = GetObject(, "Excel.application")
   Set ExcelWorkbook = ExcelApp.ActiveWorkbook
   Set ExcelSheet = ExcelApp.activesheet
   Row = ExcelApp.ActiveCell.Cells.Row
   Col = ExcelApp.ActiveCell.Cells.Column
   
   i = 1
   Err.Clear
   On Error Resume Next
   
   ThisDrawing.Utility.GetEntity objMText, varInsPt, " Select MText : "
   Do While Err.Number = 0  
       strMText = CStr(objMText.TextString)
       ExcelSheet.Cells(Row, Col).Value = strMText
       Row = Row + 1
       i = i + 1
       ThisDrawing.Utility.GetEntity objMText, varInsPt, " Select MText : "
   Loop
End Sub

Bhull1985 · 发表于 2022-7-6 06:47:46

好的，很好，之前没有使用过LM程序的前半部分，但我看到它确实做到了这一点。
杰出的谢谢你。

Tyke · 发表于 2022-7-6 06:48:53

非常欢迎你，我希望这会有用。

Glen1980 · 发表于 2022-7-6 06:52:18

谢谢Tyke，当他们决定今天早上出现时，我会让我们的IT部门安装VBA模块，我一定会尝试运行这个VBA工具。总是乐于尝试新事物！

Tyke · 发表于 2022-7-6 06:57:27

格伦，你是只对多行文字感兴趣，还是选择多行文字或数字文字有益？
在创建VBA宏或如何使代码工作时需要任何帮助吗？

Glen1980 · 发表于 2022-7-6 06:59:52

仅限多行文字类型。我以前从未使用过VBA，所以我不得不翻出Dave&Tiger的一篇旧帖子来了解如何运行它。然后AutoCAD告诉我VBA不再安装，所以我必须卸载该模块。不幸的是，这意味着涉及它，因为我不能被信任有管理权限。我是个坏人，可能会不假思索地安装一些我不应该安装的东西

至于创建VBA，我想我需要很多帮助。到目前为止，除了以下教程之外，我还无法创建任何自己的Lisp。即使这样，我的打字也可能很草率，所以我大部分时间都花在拼写检查和bug查找上！VBA是否有Afralisp类型的站点？