- ;=号字符串截除
- ;by edata @mjtd 2015-7-14
- (defun sk_trim= (str / i a lst)
- (setq i 0
- lst '()
- )
- (while (and (setq a (substr str (setq i (1+ i)) 1)) (/= a "="))
- (setq lst (cons a lst))
- )
- (setq lst (apply 'strcat (reverse lst)))
- )
- (defun c:tt(/ elist en ss str)
- (if (setq ss(ssget '((0 . "*text"))))
- (while(setq en(ssname ss 0))
- (setq elist(entget en))
- (setq str(sk_trim=(cdr(assoc 1 elist))))
- (entmod(subst (cons 1 str)(assoc 1 elist) elist))
- (setq ss(ssdel en ss))
- )
- )
- (princ)
- )
|