yang686526

为什么我选中一个属性块后，写不出这个文字呀
www.dimcax.com
为什么我选中一个属性块后，写不出这个文字呀
(defun c:tt()
(setq cl (getvar "clayer"))
(setq a (entget (entnext (car (entsel)))))
(if (= (dxf 8 a) "0") (setq eight (cons 8 cl)) (setq eight (assoc 8 a)))
(setq ten (assoc 10 a))
(setq ten11 (assoc 11 a))
(setq higt (assoc 40 a))
(setq hiwe (assoc 41 a))
(setq cont (assoc 1 a))
(setq rot (assoc 50 a))
(setq rotag (assoc 51 a))
(setq tstyle (assoc 7 a))
(setq tex71 (assoc 71 a))
(setq tex72 (assoc 72 a))
(setq tex73 (cons 73 (cdr (assoc 74 a))))
(entmake (list '(0 . "text") eight ten ten11 higt hiwe cont rot rotag tstyle text71 tex72 text73))
)
d