在cad中搜索包含指定字符串的文字及多行文字，并赋值给list

zn1996

在cad中搜索包含指定字符串的文字及多行文字，并赋值给list，然后将list之后的部分取出来存入excel.  

1.请用户输入一个字符串
2.自动在全部文字及多行文字中搜索
3.将结果存在一个list中
4.将list数据保存到桌面（excel形式），以时间+输入的字符串命名即可，最好能取到操作的图纸的路径，也存在表中。


谢谢各位大佬！

王鹏_pBZlo

看来这种小问题没人帮你啊,我来试试.由于每台电脑的桌面路径不相同,所以文件在d:\\
(defun c:tt( / str sset of i txt hand)
        (setq str (getstring "\n查找的字符串:"))
        (setq sset (ssget "x" (list (cons 0 "*TEXT") (cons 1 (strcat "*" str "*")))))
        (if (not sset) (progn (prompt "\n不存在符合条件的对象!") (exit)))
        (setq of (open (strcat "d:\\" (rtos (getvar "cdate") 2 6) "_" str ".csv") "w"))
        (write-line (strcat (getvar "dwgprefix") (getvar "dwgname")) of)
        (setq i 0)
        (while (setq txt (ssname sset i))
                (setq hand (cdr (assoc 5 (entget txt))))
                (setq txt (cdr (assoc 1 (entget txt))))
                (write-line (strcat "A" hand "," txt) of)
                (setq i (1+ i))
        )
        (close of)
        (startapp "explorer" (strcat "d:\\" (rtos (getvar "cdate") 2 6) "_" str ".csv"))
        (princ)
)

zn1996

王鹏_pBZlo 发表于 2019-5-17 09:17
看来这种小问题没人帮你啊,我来试试.由于每台电脑的桌面路径不相同,所以文件在d:\\
(defun c:tt( / str ss ...

多谢，我试试

zn1996

王鹏_pBZlo 发表于 2019-5-17 09:17
看来这种小问题没人帮你啊,我来试试.由于每台电脑的桌面路径不相同,所以文件在d:\\
(defun c:tt( / str ss ...

多谢，测试有用。 果然热心的朋友还是很多的