lisp 改图元字体式样_晓东CAD家园-论坛-A/VLISP-[LISP程序]：LISP函数 文字编辑-修改文字后，字体的颜色（字体的颜色不要随层或随块）会发生变化，可以在CAD中看出那些数字已经改...

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有帐号？立即注册

x

修改文字后，字体的颜色(字体的颜色不要随层或随块)会发生变化，可以在CAD中看出那些数字已经改过，哪些没有改过

(defun c:et ()

(setq cmdmode (getvar "cmdecho"))

(setvar "cmdecho" 0)

(prompt "\n请选择需要编辑的文字： ")

(setq OBJ (entsel))

(setq Mytext (getstring "\n请输入文字内容:"))

(SETQ TEMP (CONS 1  mytext))

(setq result (subst temp (assoc 1 (entget (car OBJ))) (entget (car OBJ))));用新表项替换旧项

(entmod result)

(SETQ TEMP (CONS 62 50))

(setq result (subst temp (assoc 62 (entget (car OBJ))) (entget (car OBJ))));用新表项替换项

(entmod result)                             ;实体更新

(setvar "CMDECHO" cmdmode)

(princ

" \n欢迎使用本程序！  "

)

(princ)

)                                        ;defun的括号

广告位，后台可以设置，支持js

您好，您暂时不能浏览帖子的全部内容，请 登录

| 没有账号？ 请 注册