CAD直接修改文字或块的属性内容程序

(defun c:cht(/ e ent en newt oldt ent1)

(setq e (car (entsel \ (if (/= e nil) (progn

(setq ent (entget e))

(cond ((and (= (cdr (assoc 0 ent)) \ (progn

(setq en (entget (setq ent (entnext e)))) (setq oldt (cdr (assoc 1 en)))

(setq newt (getstring T (strcat \ (if (= newt \

(setq ent1 (subst (cons (car (assoc 1 en)) newt) (assoc 1 en) en)) (entmod ent1) (entupd ent) ))

((= (cdr (assoc 0 ent)) \ (progn

(setq oldt (cdr (assoc 1 ent)))

(setq newt (getstring T (strcat \ (if (= newt \

(setq ent1 (subst (cons (car (assoc 1 ent)) newt) (assoc 1 ent) ent)) (entmod ent1) ))

(T (princ \ ) ) )

(princ) )

百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读，免费范文网，提供经典小说教育文库CAD直接修改文字或块的属性内容程序在线全文阅读。