有哪位大侠可以提供一个”编辑块的LISP“的LISP以作参考!
有哪位大侠可以提供一个
”编辑块的LISP“
的LISP以作参考!
2楼
例如:
一次过将一大堆块的颜色改变成同一种颜色,这样就省了处理建筑底图的时间。
回复
3楼
给你提供个思路,自己写吧。“-bedit” , (2 . “名称”)里的名称,然后用lisp的命令修改颜色,完毕后用 “bsave” “bclose”.如果不“bsave”的话,在使用 “bclose”时会出对话框。并且我这个LT里头没有“-bclose”这个命令。你也可以试试。如果用lisp的话上面的“-bedit”改为(command “-beidt” “ 名称”)。后边两个也一样(command “bsave” “bclose”)
回复
4楼
一个块定义可以有多个块参照,编辑一个块参照,其他同名块参照也会同步改变。
修改块参照可以用块编辑(bedit)或在位编辑块(refedit)。
如果块定义数目不多,一个个改也不太麻烦。
以下自定义命令可以每次修改一个块定义。
先选择一个要修改的块参照,再输入命令。
;修改块颜色为红色
(defun c:b1()
(command "bedit" "chprop" (ssget "X") "" "C" "1" "" "bsave" "bclose")
)
;修改块颜色为黄色
(defun c:b2()
(command "bedit" "chprop" (ssget "X") "" "C" "2" "" "bsave" "bclose")
)
;修改块颜色为绿色
(defun c:b3()
(command "bedit" "chprop" (ssget "X") "" "C" "3" "" "bsave" "bclose")
)
;修改块颜色为青色
(defun c:b4()
(command "bedit" "chprop" (ssget "X") "" "C" "4" "" "bsave" "bclose")
)
;修改块颜色为蓝色
(defun c:b5()
(command "bedit" "chprop" (ssget "X") "" "C" "5" "" "bsave" "bclose")
)
;修改块颜色为洋红色
(defun c:b6()
(command "bedit" "chprop" (ssget "X") "" "C" "6" "" "bsave" "bclose")
)
;修改块颜色为白色
(defun c:b7()
(command "bedit" "chprop" (ssget "X") "" "C" "7" "" "bsave" "bclose")
)
回复
5楼
:( 有没有可以改块里图层的LISP,:'( 苦寻不着。
回复