导出文本

kam1967 · 发表于 2022-7-5 16:22:45

李？麦克？哦，天哪。他是这里最好的程序员之一。这是他的网站。你会喜欢他的属性提取例程！

http://www.lee-mac.com/

BLWNHR · 发表于 2022-7-5 16:25:06

大家好，我已经使用这个脚本一段时间了，但它已经停止工作，我不知道为什么。AutoCAD（2011）的相同版本，只是一个新安装。我只得到以下信息：

Command: _appload txtex.lsp successfully loaded.
Command:
Command:
Command: TXTEX
nil
Command:

并且没有txt文件。有人知道发生了什么事吗？我试过这个代码和这个代码，但都没用。

Lee Mac · 发表于 2022-7-5 16:29:17

从我的库中尝试以下操作：

copy


[color=GREEN];; Text 2 CSV  -  Lee Mac[/color]
[color=GREEN];; Writes all Text, MText & Attribute content from all layouts and within[/color]
[color=GREEN];; all blocks and nested blocks to a selected CSV file.[/color]
([color=BLUE]defun[/color] c:txt2csv ( [color=BLUE]/[/color] data file )
   ([color=BLUE]cond[/color]
       (   ([color=BLUE]not[/color]
               ([color=BLUE]progn[/color]
                   ([color=BLUE]vlax-for[/color] block ([color=BLUE]vla-get-blocks[/color] ([color=BLUE]vla-get-activedocument[/color] ([color=BLUE]vlax-get-acad-object[/color])))
                       ([color=BLUE]if[/color] ([color=BLUE]eq[/color] [color=BLUE]:vlax-false[/color] ([color=BLUE]vla-get-isxref[/color] block))
                           ([color=BLUE]vlax-for[/color] obj block
                               ([color=BLUE]cond[/color]
                                   (   ([color=BLUE]wcmatch[/color] ([color=BLUE]vla-get-objectname[/color] obj) [color=MAROON]"AcDb*Text"[/color])
                                       ([color=BLUE]setq[/color] data ([color=BLUE]cons[/color] ([color=BLUE]vla-get-textstring[/color] obj) data))
                                   )
                                   (   ([color=BLUE]and[/color]
                                           ([color=BLUE]eq[/color] [color=MAROON]"AcDbBlockReference"[/color] ([color=BLUE]vla-get-objectname[/color] obj))
                                           ([color=BLUE]eq[/color] [color=BLUE]:vlax-true[/color] ([color=BLUE]vla-get-hasattributes[/color] obj))
                                       )
                                       ([color=BLUE]foreach[/color] att ([color=BLUE]vlax-invoke[/color] obj 'getattributes)
                                           ([color=BLUE]setq[/color] data ([color=BLUE]cons[/color] ([color=BLUE]vla-get-textstring[/color] att) data))
                                       )
                                   )
                               )
                           )
                       )
                   )
                   data
               )
           )
           ([color=BLUE]princ[/color] [color=MAROON]"\nNo Text, MText or Attributes found."[/color])
       )
       (   ([color=BLUE]not[/color] ([color=BLUE]setq[/color] file ([color=BLUE]getfiled[/color] [color=MAROON]"Create CSV file"[/color] [color=MAROON]""[/color] [color=MAROON]"csv"[/color] 1)))
           ([color=BLUE]princ[/color] [color=MAROON]"\n*Cancel*"[/color])
       )
       (   ([color=BLUE]setq[/color] file ([color=BLUE]open[/color] file [color=MAROON]"w"[/color]))
           ([color=BLUE]foreach[/color] x data ([color=BLUE]write-line[/color] x file))
           ([color=BLUE]setq[/color] file ([color=BLUE]close[/color] file))
           ([color=BLUE]princ[/color] ([color=BLUE]strcat[/color] [color=MAROON]"\n"[/color] ([color=BLUE]itoa[/color] ([color=BLUE]length[/color] data)) [color=MAROON]" strings written to file."[/color]))
       )
       (   ([color=BLUE]princ[/color] [color=MAROON]"\nUnable to open CSV file for writing."[/color]))
   )
   ([color=BLUE]princ[/color])
)
([color=BLUE]vl-load-com[/color]) ([color=BLUE]princ[/color])

BLWNHR · 发表于 2022-7-5 16:33:02

谢谢李。我知道发生了什么事。这些其他脚本正在工作，但由于某种原因，AutoCAD没有将文件放在与图形相同的目录中，我在搜索存储驱动器时找到了它。我计算出，如果打开AutoCAD的新实例，然后打开图形，它会将文件输出到DWG文件目录。

我使用它从图形中导出阀门和管道标签号，以便我们可以将其与旧列表进行比较。所有这些标签都在一个层（P-LABL）上，所以我只隔离这个层并运行TXTEX，它只导出当前层。我看到你的导出了图纸中的所有文本。我很感激你发布这个，当我需要这个功能时，我会把它归档。感谢您抽出时间为我发帖。