这个是加括号（）的LSP,谁会修改成加书名号《》(defun textappend (head tail / s n l ent st)(COMMAND "_.REDRAW")(setq s (ssget '((-4 . " ")))) (if (= s nil) (setq s (ssget "_p"))) (setq n (sslength s) l 0) (repeat n
(defun textappend (head tail / s n l ent st)
(COMMAND "_.REDRAW")
(setq s (ssget '((-4 . "
(if (= s nil) (setq s (ssget "_p")))
(setq n (sslength s) l 0)
(repeat n
(setq ent (entget (ssname s l)) l (1+ l)
st (strcat head (cdr (assoc 1 ent)) tail)
ent (subst (cons 1 st) (assoc 1 ent) ent))
(entmod ent)
);repeat
(princ "\n修改了 ")(prin1 n)(princ " 个文字,")
)
(defun c:kh ()
(princ "\n添加括号\n")(textappend "(" ")")
(prompt "添加()")(princ)
)
