提取文本，帮忙修改源码
提取文本，帮忙修改源码，此LISP来自本论坛，感谢原版主的创作，现在想在提取的文字前加上“梁高””（比如标注的尺寸3500运行命令后变为 得到的文字直接=梁高3500）(defun C:TT(/ ss ss1 ss2 pt )
(while (setq ss (entsel "请选择标注:\n"))
(setq ss1 (car ss)
pt (cadr ss)
)
(if (= (cdr (assoc 0 (entget ss1)) )"DIMENSION")
(progn
(setq ss (ssadd ss1))
(command ".EXPLODE" ss)
(setq ss1 (ssget "P" '((0 . "*text"))))
(setq ss2 (entget (ssname ss1 0)))
(command "undo" "")
(entmake ss2)
(setq ss1 (entlast))
(command "_move" ss1 "" pt pause)
)
本帖最后由 satan421 于 2019-5-15 08:33 编辑
(setq n (cons 1 (strcat "梁高" (cdr (setq o (assoc '1 ss2))))))
(setq ss2 (subst n o ss2))
satan421 发表于 2019-5-14 09:06
感谢，感谢
页:
[1]