求函数一个

429014673

求点选填充通用函数(最好有一个简单例子的应用)（填充后不要边界线）
PS：在回家路上发个贴不容易，大伙都过来看看

SunSpring

2. (defun hatch_abc (a b c d)
   
3.   (prompt "快速对象边界填充")
   
4.   (command "hatch" c d "0" "" "N")
   
5.   (while (wcmatch (getvar "cmdnames") (strcase "hatch"))
   
6.     (command pause)
   
7.   )
   
8.   (modifylayer (entlast) a)
   
9.   (modifycolor (entlast) b)
   
10.   (princ)
    
11. )
    
12. (defun c:abc ()
    
13.   (hatch_abc "石材" 8 "ANSI31" 3)
    
14. )
    
15. ;;修改对象颜色子函数
    
16. (defun modifycolor (entgrp color / n vobj)
    
17.   (if (= (type entgrp) 'ename)
    
18.     (setq entgrp (ssadd entgrp))
    
19.   )
    
20.   (if entgrp
    
21.     (repeat (setq n (sslength entgrp))
    
22.       (setq vobj (vlax-ename->vla-object (ssname entgrp (setq n (1- n)))))
    
23.       (vlax-put-property vobj 'color color)
    
24.     )
    
25.   )
    
26.   (princ)
    
27. )
    
28. ;;修改对象图层子函数
    
29. (defun modifylayer (entgrp layername / n vobj)
    
30.   (makelayer layername)
    
31.   (if (= (type entgrp) 'ename)
    
32.     (setq entgrp (ssadd entgrp))
    
33.   )
    
34.   (if entgrp
    
35.     (repeat (setq n (sslength entgrp))
    
36.       (setq vobj (vlax-ename->vla-object (ssname entgrp (setq n (1- n)))))
    
37.       (vlax-put-property vobj 'layer layername)
    
38.     )
    
39.   )
    
40.   (princ)
    
41. )
    
42. ;;创建图层函数(仅需图层名)
    
43. (defun makelayer (layername)
    
44.   (if (= (tblobjname "LAYER" layername) nil)
    
45.     (entmake (list '(0 . "LAYER")
    
46.                    '(100 . "AcDbSymbolTableRecord")
    
47.                    '(100 . "AcDbLayerTableRecord")
    
48.                    '(70 . 0)
    
49.                     (cons 2 layername)
    
50.              )
    
51.     )
    
52.   )
    
53.   (princ)
    
54. )

(defun hatch_abc (a b c d)<br />   (prompt "快速对象边界填充")<br />   (command "hatch" c d "0" "" "N")<br />   (while (wcmatch (getvar "cmdnames") (strcase "hatch"))<br />     (command pause)<br />   )<br />   (modifylayer (entlast) a)<br />   (modifycolor (entlast) b)<br />   (princ)<br /> )<br /> (defun c:abc ()<br />   (hatch_abc "石材" 8 "ANSI31" 3)<br /> )<br /> ;;修改对象颜色子函数<br /> (defun modifycolor (entgrp color / n vobj)<br />   (if (= (type entgrp) 'ename)<br />     (setq entgrp (ssadd entgrp))<br />   )<br />   (if entgrp<br />     (repeat (setq n (sslength entgrp))<br />       (setq vobj (vlax-ename->vla-object (ssname entgrp (setq n (1- n)))))<br />       (vlax-put-property vobj 'color color)<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;修改对象图层子函数<br /> (defun modifylayer (entgrp layername / n vobj)<br />   (makelayer layername)<br />   (if (= (type entgrp) 'ename)<br />     (setq entgrp (ssadd entgrp))<br />   )<br />   (if entgrp<br />     (repeat (setq n (sslength entgrp))<br />       (setq vobj (vlax-ename->vla-object (ssname entgrp (setq n (1- n)))))<br />       (vlax-put-property vobj 'layer layername)<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;创建图层函数(仅需图层名)<br /> (defun makelayer (layername)<br />   (if (= (tblobjname "LAYER" layername) nil)<br />     (entmake (list '(0 . "LAYER")<br />                    '(100 . "AcDbSymbolTableRecord")<br />                    '(100 . "AcDbLayerTableRecord")<br />                    '(70 . 0)<br />                     (cons 2 layername)<br />              )<br />     )<br />   )<br />   (princ)<br /> )

cable2004

参数应该还缺一个范围的参数吧！

CTC

帮你顶一个

smartstar

思路：
1.根据选取的点生成封闭pl多边形
2.选择生产的多边形进行填充
3.删除多边形
   

cable2004

什么叫仅你可见！

zzc83

看不到啊 看不到