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

我需要导出selec的lisp

我有一些来自咨询公司的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

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

(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

 
亨里克
页: [1]
查看完整版本: 我需要导出selec的lisp