entsel与ssget一问——祝新年快乐

ZZXXQQ

一个命令也可以吧。

3. (defun c:zg (/ en ss str)
4. (if (setq s1 (ssget '((0 . "*TEXT")))) (progn
5.   (setq i -1)
6.   (repeat (sslength s1)
7.    (cond
8.     ((= (get 0 (setq ent (entget (setq en (ssname s1 (setq i (1+ i))))))) "MTEXT")
9.      (command "_.explode" en)
10.      (setq ss (ssget "_p"))
11.      (repeat (setq n (sslength ss))
12.        (setq ent (entget (ssname ss (setq n (1- n)))))
13.        (ssset ent 40 2.5)
14.      )
15.     )
16.     (T (ssset ent 40 2.5))
17.    )
18.   )
19. ))
20. (princ)
21. )
22. (defun get (aaaaa bbbbb /)
23.    (cdr (assoc aaaaa bbbbb))
24. )
25. (defun ssset (eent nnum variable /)
26.    (setq eent (subst (cons nnum variable) (assoc nnum eent) eent))
27.    (entmod eent)
28. )

(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) )

wzz1968

上述问题很简单,

(setq ss (ssget (list (cons 0 "mtext"))))

(if (= ss nil) (exit))

(setq len (sslength ss) i 0)

(while (< i len)

 (progn

     (setq ent (ssname ss i))

     (command ".explode" ent)

     (setq i (1+ i))

  )

)