我需要导出selec的lisp

hosyn · 发表于 2022-7-6 06:31:55

我有一些来自咨询公司的dwg文件，他们在图纸中有unic Id——如果我想搜索他们，我需要搜索那个Id。。。。。
我需要一个lisp用于导出图形中选定的文本，并在同一个文件中与该dwg文件的名称合并，或在该文件夹中与单独的txt文件名合并。。。。任何建议都Lisp程序。。

ReMark · 发表于 2022-7-6 06:45:06

查看数据提取命令EATTEXT。也许这对你有点用处。

cadvision · 发表于 2022-7-6 06:57:53

这还在你的教育版上吗？建议如果你从事商业工作，那么至少切换到nanoCAD并保持合法性

ReMark · 发表于 2022-7-6 07:05:00

建议他使用nanoCAD中的什么命令？

hosyn · 发表于 2022-7-6 07:13:47

我需要一个lisp导出选定的文字在绘图和合并的名称

我有一些来自咨询公司的dwg文件，他们在图纸中有unic Id——如果我想搜索他们，我需要搜索那个Id。。。。。
我需要一个lisp用于导出图形中选定的文本，并在同一个文件中与该dwg文件的名称合并，或在该文件夹中与单独的txt文件名合并。。。。任何建议都Lisp程序。。

neophoible · 发表于 2022-7-6 07:29:09

与其只是重复你自己，不如通过一些贴有解释的图片来展示你想做什么。你确定它是文本吗？当你列出它时，它是这么说的吗？

hmsilva · 发表于 2022-7-6 07:34:06

如果我理解正确，
也许是这样的：

copy


(defun c:test (/ Ofil s TxtFile tx txt)
 (prompt "\nSelect text with the Id: ")
 (if (and (setq s (ssget ":S" '((0 . "TEXT"))))
   (setq TxtFile (strcat (getvar "dwgprefix") "YourFileName.txt"))
     );; and
   (progn
     (setq tx  (cdr (assoc 1 (entget (ssname s 0))))
    txt  (strcat tx " - " (getvar "dwgname"))
    Ofil (open TxtFile "a")
     )
     (write-line txt Ofil)
     (close Ofil)
   );; progn
 );; if
);; test

亨里克

[编程交流] 我需要导出selec的lisp

发表回复

精选推荐