选项2。Lee Mac的全局属性提取器。。。http://lee-mac.com/macatt.html 我已经在路上一整天了，刚刚回来，我知道有点晚了，但这里有一个VBA解决格伦的问题。您需要将Excel工作簿打开到工作表，并选择要输入第一个值的单元格。连续条目将输入下一行的同一列中。在AutoCAD中，运行以下宏时，系统将提示您选择多行文字项目，直到不拾取任何非多行文字的项目为止，请按Esc键、按空格键或单击鼠标右键。它不拾取多行文字的第一部分，只拾取屏幕上显示的文字。
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
好的，很好，之前没有使用过LM程序的前半部分，但我看到它确实做到了这一点。
杰出的谢谢你。
非常欢迎你，我希望这会有用。
谢谢Tyke，当他们决定今天早上出现时，我会让我们的IT部门安装VBA模块，我一定会尝试运行这个VBA工具。总是乐于尝试新事物！
格伦，你是只对多行文字感兴趣，还是选择多行文字或数字文字有益？
在创建VBA宏或如何使代码工作时需要任何帮助吗？ 仅限多行文字类型。我以前从未使用过VBA，所以我不得不翻出Dave&Tiger的一篇旧帖子来了解如何运行它。然后AutoCAD告诉我VBA不再安装，所以我必须卸载该模块。不幸的是，这意味着涉及它，因为我不能被信任有管理权限。我是个坏人，可能会不假思索地安装一些我不应该安装的东西
至于创建VBA，我想我需要很多帮助。到目前为止，除了以下教程之外，我还无法创建任何自己的Lisp。即使这样，我的打字也可能很草率，所以我大部分时间都花在拼写检查和bug查找上！VBA是否有Afralisp类型的站点？
是的，Afralisp（也由我们的DavidWatson负责）有一个VBA部分和一些初学者教程和示例代码。当你陷入困境时，谷歌搜索总会找到一些东西。使用搜索字符串，如“AutoCAD VBA select MText”，将显示近400000个结果，并非所有结果都相关，而是一个开始。
真正地他是怎么找到时间的？我还有别的事要感谢大卫，按照这样的速度，在你、马克、大卫和其他帮助我的人之间，我将不得不组织一次相当大的伦敦申奥会，向大家表示感谢！
小心你说的话，因为我在回家的路上经过伦敦，你不会是我在伦敦与之分享啤酒的第一位论坛成员
页:
1
[2]