土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 如何将加括号（）改成加书名号《》

如何将加括号（）改成加书名号《》

发布于：2016-04-04 23:39:04 来自：建筑设计/CAD下载及教程 [复制转发]

这个是加括号（）的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
(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)
)

0人已收藏
0人已打赏
免费
0人已点赞
分享

复制链接新浪微博微信扫一扫

全部回复（1 ）

只看楼主我来说两句 抢板凳

独有豪情沙发

自己先顶一下去，对LSP编程不熟

2016-04-06 11:30:06
回复举报
赞同0