请问,lisp怎么向block添加自定义的块
如题;;;检查是否存在块定义,没有则添加 D:\Program Files\CASS70\BLOCKS下的同名.dwg
(if (not (tblobjname "block" k));k为块名
;请问这里该怎么写,谢谢了
)
本帖最后由 mandala 于 2013-11-17 19:52 编辑
(if
(null(tblsearch "block" "gc124"))
(command "insert" "D:\\Program Files\\CASS70\\BLOCKS\\gc124.dwg" "250,50" "" "" ""))
在250,50位置插入一个符号 本帖最后由 mandala 于 2013-11-17 20:04 编辑
不过如果你dwg中有一个同名而不同形状的block（如也名叫gc124），再次插入gc124时插入的还是老的块。
这种时候我一般是新建一个dwg，插入一个正确的gc124.dwg然后删除，再插入老的图纸，这时候所有的gc124块都是正确的了。
楼主是在为cass做lisp吗？我最近又重新开始做这个了，很久没写了搞得头昏眼花，我们可以交流一下！
mandala 发表于 2013-11-17 19:57 static/image/common/back.gif
不过如果你dwg中有一个同名而不同形状的block（如也名叫gc124），再次插入gc124时插入的还是老的块。
这 ...
是的,新手,头痛中呢
页:
[1]