发码养号之创建填充

夏生生

收币有风险，下载需谨慎，勿喷

本附件含两个函数
make-hatch1多个图元形成的封闭区域创建填充
make-hatch2多个封闭图元创建填充
以下为示例

2. (defun c:tt1 (/ acdoc mspace ss n enl)
   
3.   (setq
   
4.     acdoc (vlax-get-property (vlax-get-acad-object) 'activedocument)
   
5.   )
   
6.   (setq  mspace (if (= 1 (getvar 'cvport))
   
7.      (vlax-get-property acdoc 'paperspace)
   
8.      (vlax-get-property acdoc 'modelspace)
   
9.          )
   
10.   )
    
11.   (setq ss (ssget '((0 . "line"))))
    
12.   (repeat (setq n (sslength ss))
    
13.     (setq enl (cons (ssname ss (setq n (1- n))) enl))
    
14.   )
    
15.   (make-hatch1 mspace enl "SOLID" :vlax-true 1)
    
16. )
    
17. (defun c:tt2 (/ acdoc mspace ss n enl)
    
18.   (setq
    
19.     acdoc (vlax-get-property (vlax-get-acad-object) 'activedocument)
    
20.   )
    
21.   (setq  mspace (if (= 1 (getvar 'cvport))
    
22.      (vlax-get-property acdoc 'paperspace)
    
23.      (vlax-get-property acdoc 'modelspace)
    
24.          )
    
25.   )
    
26.   (setq ss (ssget '((0 . "LWpolyline"))))
    
27.   (repeat (setq n (sslength ss))
    
28.     (setq enl (cons (ssname ss (setq n (1- n))) enl))
    
29.   )
    
30.   (make-hatch2 mspace enl "SOLID" :vlax-true 1)
    
31. )

(defun c:tt1 (/ acdoc mspace ss n enl)<br />   (setq<br />     acdoc (vlax-get-property (vlax-get-acad-object) 'activedocument)<br />   )<br />   (setq  mspace (if (= 1 (getvar 'cvport))<br />      (vlax-get-property acdoc 'paperspace)<br />      (vlax-get-property acdoc 'modelspace)<br />          )<br />   )<br />   (setq ss (ssget '((0 . "line"))))<br />   (repeat (setq n (sslength ss))<br />     (setq enl (cons (ssname ss (setq n (1- n))) enl))<br />   )<br />   (make-hatch1 mspace enl "SOLID" :vlax-true 1)<br /> )<br /> (defun c:tt2 (/ acdoc mspace ss n enl)<br />   (setq<br />     acdoc (vlax-get-property (vlax-get-acad-object) 'activedocument)<br />   )<br />   (setq  mspace (if (= 1 (getvar 'cvport))<br />      (vlax-get-property acdoc 'paperspace)<br />      (vlax-get-property acdoc 'modelspace)<br />          )<br />   )<br />   (setq ss (ssget '((0 . "LWpolyline"))))<br />   (repeat (setq n (sslength ss))<br />     (setq enl (cons (ssname ss (setq n (1- n))) enl))<br />   )<br />   (make-hatch2 mspace enl "SOLID" :vlax-true 1)<br /> )

magicheno

大佬牛~~~~~~!