社区 › Auto Lisp › 导出文本

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

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

;; Text 2 CSV-Lee Mac
;; Writes all Text, MText & Attribute content from all layouts and within
;; all blocks and nested blocks to a selected CSV file.

(defun c:txt2csv ( / data file )
   (cond
       (   (not
               (progn
                   (vlax-for block (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
                     (if (eq :vlax-false (vla-get-isxref block))
                           (vlax-for obj block
                               (cond
                                 (   (wcmatch (vla-get-objectname obj) "AcDb*Text")
                                       (setq data (cons (vla-get-textstring obj) data))
                                 )
                                 (   (and
                                           (eq "AcDbBlockReference" (vla-get-objectname obj))
                                           (eq :vlax-true (vla-get-hasattributes obj))
                                       )
                                       (foreach att (vlax-invoke obj 'getattributes)
                                           (setq data (cons (vla-get-textstring att) data))
                                       )
                                 )
                               )
                           )
                     )
                   )
                   data
               )
         )
         (princ "\nNo Text, MText or Attributes found.")
       )
       (   (not (setq file (getfiled "Create CSV file" "" "csv" 1)))
         (princ "\n*Cancel*")
       )
       (   (setq file (open file "w"))
         (foreach x data (write-line x file))
         (setq file (close file))
         (princ (strcat "\n" (itoa (length data)) " strings written to file."))
       )
       (   (princ "\nUnable to open CSV file for writing."))
   )
   (princ)
)
(vl-load-com) (princ)

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

谢谢李。我知道发生了什么事。这些其他脚本正在工作，但由于某种原因，AutoCAD没有将文件放在与图形相同的目录中，我在搜索存储驱动器时找到了它。我计算出，如果打开AutoCAD的新实例，然后打开图形，它会将文件输出到DWG文件目录。
 
我使用它从图形中导出阀门和管道标签号，以便我们可以将其与旧列表进行比较。所有这些标签都在一个层（P-LABL）上，所以我只隔离这个层并运行TXTEX，它只导出当前层。我看到你的导出了图纸中的所有文本。我很感激你发布这个，当我需要这个功能时，我会把它归档。感谢您抽出时间为我发帖。

Cad Newbie 发表于 2022-7-5 16:35:32

你好
我需要在Excel中将autocad文件转换为文本文件。
http://www.cadtutor.net/forum/showthread.php?79
我是否只需要将文本文件保存在Autocad文件下？
 
C： \程序文件\ Autodesk\AutoCAD LT 2012-英语\Drv

Cad Newbie 发表于 2022-7-5 16:37:44

我需要一些支持，在美国，任何人都可以帮助我。我的电话号码是469 212 3803-德克萨斯州约瑟夫

minhphuong_humg 发表于 2022-7-5 16:41:35

请编辑你的Lisp程序帮助我。
你的Lisp程序做得很好。然而，它没有排序。我想按文件附件排序。请，谢谢。

结果是Lisp程序。csv
帮助图纸

wkplan 发表于 2022-7-5 16:44:29

minhphuong_humg，
 
样例图形仅包含文本元素和尺寸。
没有办法进行任何排序，因为每个元素都是独立的。
lisp应该如何决定哪些文本与另一个文本或维度相关？
 
考虑使用具有内部属性的块，而不是使用内置的数据提取功能。
 
当做
沃尔夫冈

at22134 发表于 2022-7-5 16:47:43

 
很抱歉，又提了这么一个老话题。我只想说李的这段代码很棒！但是，是否有任何方法可以修改它，使其按从左到右的顺序列出文本/mtxt/attr，就像它在图形中出现一样（也在每个文本旁边添加一个x，y坐标）？此外，是否有方法将条件添加到只有3位小数的列表text/mtxt/attr？
 
谢谢你的阅读！

bijith 发表于 2022-7-5 16:53:05

 
同一问题。。。“无”

查看完整版本: 导出文本