(defun c:zg (/ en ss str)
(if (setq s1 (ssget '((0 . "*TEXT")))) (progn
(setq i -1)
(repeat (sslength s1)
(cond
((= (get 0 (setq ent (entget (setq en (ssname s1 (setq i (1+ i))))))) "MTEXT")
(command "_.explode" en)
(setq ss (ssget "_p"))
(repeat (setq n (sslength ss))
(setq ent (entget (ssname ss (setq n (1- n)))))
(ssset ent 40 2.5)
)
)
(T (ssset ent 40 2.5))
)
)
))
(princ)
)
(defun get (aaaaa bbbbb /)
(cdr (assoc aaaaa bbbbb))
)
(defun ssset (eent nnum variable /)
(setq eent (subst (cons nnum variable) (assoc nnum eent) eent))
(entmod eent)
)
<p>上述问题很简单,</p><p>(setq ss (ssget (list (cons 0 "mtext"))))</p><p>(if (= ss nil) (exit))</p><p>(setq len (sslength ss) i 0)</p><p>(while (< i len)</p><p> (progn </p><p> (setq ent (ssname ss i))</p><p> (command ".explode" ent)</p><p> (setq i (1+ i))</p><p> )</p><p>)</p><p></p>
页:
1
[2]