论坛里看到不少朋友上传的小插件，有很好用的，也有压根用不了，还有的只是简单的一个lisp文件，连个说明都没，我们画图的一线员工还面临着一个严重问题，64位系统已普及，之前的部分好插件根本用不了，基于以上原因，兄弟测试了几个常用lisp，并为每个lisp写了说明书便于大家使用，以下lisp在32位和64位系统上均可使用，CAD最高已测试至2012版，再高版本不保证一定能用，最后感谢编写lisp的各位大师，是你们的努力成就了我们。
32楼
;;;;文字刷。可以刷块的文字内容
(defun c:wz
(/ enn endata txtn ss i ennn ennndata oldtxtlist newtxtlist)
(command "undo" "be")
(setq enn (car (nentsel "请选择源文字")));;(setq enn (car (entsel)))
;;;(command "chprop" enn "" "c" 1 "")
(redraw enn 3)
(setq endata (entget enn))
(setq txtn (cdr (assoc 1 endata)))
(setq ss (ssget '((0 . "TEXT"))))
(setq i 0)
(repeat (sslength ss)
(setq ennn (ssname ss i))
(setq ennndata (entget ennn))
(setq oldtxtlist (assoc 1 ennndata))
(setq newtxtlist (cons 1 txtn))
(setq ennndata (subst newtxtlist oldtxtlist ennndata))
(entmod ennndata)
(setq i (1+ i))
)
;;(command "chprop" enn "" "c" "bylayer" "")
(redraw enn 4)
(command "undo" "e")
(princ)
)
回复
33楼
好贴 一定要赞起来
回复
34楼
飘逸黑雪 发表于 2014-8-8 00:16 不错的资料，谢谢分享谢谢楼主分享
回复
35楼
梁柱墙配筋归并亲测可用，谢谢分享。
回复
36楼
怎么找不到，回复才有吗？
回复
37楼
多谢多谢，好人那！！
回复
38楼
谢谢楼主分享
回复
39楼
多谢分享.下载收藏了
回复
40楼
谢谢楼主有心了
回复
41楼
好东西谢谢
回复
