|
(defun c:jqhz()
(setq qh (getint '\n--加前缀输入（1）,--加后缀输入（2）, <1>：'))
(if (= qh nil)(setq qh 1))
(princ '\n选图形:')
(setq ss (ssget))
(setq str (getstring '\n请输入要加的文字:'))
(setq n (sslength ss))
(setq k 0 )
(while (< k n)
(setq name (ssname ss k))
(setq a (entget name))
(setq t1 (assoc '0 a))
(setq t1 (cdr t1))
(if (= t1 'TEXT') (PROGN
(setq h (assoc '1 a))
(setq hh (cdr h))
(if (= qh 1)(setq str1 (strcat str hh)))
(if (/= qh 1)(setq str1 (strcat hh str)))
(setq h1 (cons 1 str1))
;(if (= str '') (setq h1 h))
(setq a (subst h1 h a))
(entmod a)
))
(setq k ( k 1))
(prin1)
)
)
|
