大神看过来，有偿做个材料统计插件！！！

鸿雁1986

橡皮 发表于 2025-1-9 22:54
这件开发过一个这个，你这个应该就算这里边一步吧

你这个难度大多了，本人小白，你开发的那个下载了也不会用

鸿雁1986

这个文本导出代码帮忙看看，看着很简洁，导出的文本都在一个单元格，怎么添加换行，让每一个文本在第一列里单独一个单元格
(defun c:Q2()
(setq ffn (getfiled "写出文件" "" "xls" 1))
(princ "选取文字...")
(setq ss (ssget))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (or (= sstyp "TEXT") (= sstyp "MTEXT"))
(progn
(setq txt (cdr (assoc 1 ssdata)))
(princ txt ff)
(princ "" ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat "写出文件: " ffn))
(prin1)
)

鸿雁1986

鸿雁1986 发表于 2025-1-10 13:34
这个文本导出代码帮忙看看，看着很简洁，导出的文本都在一个单元格，怎么添加换行，让每一个文本在第一列里 ...

这个解决了
(defun c:Q2()
(setq ffn (getfiled "写出文件" "" "xls" 1))
(princ "选取文字...")
(setq ss (ssget))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq sstyp (cdr (assoc 0 ssdata)))
(if (or (= sstyp "TEXT") (= sstyp "MTEXT"))
(progn
(setq txt (cdr (assoc 1 ssdata)))
(princ txt ff)
(princ "\n" ff)
)
)
(setq i (1+ i))
)
(close ff)
(princ (strcat "写出文件: " ffn))
(prin1)
)

dcl1214

鸿雁1986 发表于 2025-1-9 23:35
是的，就是这种，长度分类导出，进行修改

LISP有向路径计算演示-教育-高清完整正版视频在线观看-优酷 (youku.com)

鸿雁1986

dcl1214 发表于 2025-1-15 11:00
LISP有向路径计算演示-教育-高清完整正版视频在线观看-优酷 (youku.com)

不用路径计算那么复杂，创建文本选择集，遍历选择集，判断文本下面线的颜色，重新分类选择集，导出选择集文本，对不同选择集的文本进行修改
找到类似的VBA案列了，还在研究