【填充】建填充框

marting

1. (defun c:xdtb_hambox (/ ss loops)
   
2.   (if (setq ss (xdrx-ssget
   
3.                  "\n选择重建边框的填充对象<退出>:"
   
4.                  '((0 . "hatch"))
   
5.                )
   
6.       )
   
7.     (progn (xdrx-begin)
   
8.            (setq loops (xdrx-entity-getproperty ss "getloops"))
   
9.            (xdrx-setpropertyvalue (xdrx-entity-make loops) "color" 1)
   
10.            (xdrx-end)
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    
15. 
    

(defun c:xdtb_hambox (/ ss loops)<br />   (if (setq ss (xdrx-ssget<br />                  "\n选择重建边框的填充对象<退出>:"<br />                  '((0 . "hatch"))<br />                )<br />       )<br />     (progn (xdrx-begin)<br />            (setq loops (xdrx-entity-getproperty ss "getloops"))<br />            (xdrx-setpropertyvalue (xdrx-entity-make loops) "color" 1)<br />            (xdrx-end)<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

tzfcn

这是一个有意思的插件