提取文本，帮忙修改源码

ZHOUFEN564555 · 发表于 2019-5-13 23:04

提取文本，帮忙修改源码，此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-14 09:06

本帖最后由 satan421 于 2019-5-15 08:33 编辑

(setq n (cons 1 (strcat "梁高" (cdr (setq o (assoc '1 ss2))))))
(setq ss2 (subst n o ss2))

ZHOUFEN564555 · 发表于 2019-5-15 22:21

satan421 发表于 2019-5-14 09:06

感谢，感谢

账号		自动登录	找回密码
密码			注册

[源码] 提取文本，帮忙修改源码