entmake创建图元必要条件(慢慢更新)

hydkot99

学习留存，感谢分享

nyistjz

楼主，怎么用entmake生成填充呢？

帝都划水王

学习笔记20230508-entmake创建图元必要条件

树櫴希德

1. (defun mk3dpoly ( plst  / plst plst1 ms points en) ;三维点表生成三维多段线
   
2. (vl-load-com)
   
3. ;(vla-AddPolyline (vxs(car(entsel))))   (vla-addlightweightpolyline (vxs(car(entsel))))
   
4. ;(setq plst nil)
   
5. ;(setq plst (vxs  en) )
   
6. 
   
7. (setq plst1 (apply 'append
   
8.                    (append plst (list (car plst)))
   
9.             ) )
   
10. (setq points
    
11.        (vlax-make-safearray
    
12.          vlax-vbdouble
    
13.          (cons 0 (- (length plst1) 1))
    
14.        )
    
15. )
    
16. (vlax-safearray-fill points plst1)
    
17. 
    
18. 
    
19. (setq ms
    
20.        (vla-get-ModelSpace
    
21.          (vla-get-ActiveDocument
    
22.            (vlax-get-acad-object)
    
23.          )
    
24.        )
    
25. )
    
26. 
    
27. ;(vla-AddPolyline   ms    points   )
    
28. (vlax-invoke-method ms 'Add3dPoly points)
    
29. (princ)
    
30. )
    
31. 
    
32. ;(mk3dpoly (car(entsel)) ) (vlax-dump-object(vlax-ename->vla-object(car(entsel)))T)  (vla-put-closed (vlax-ename->vla-object(car(entsel))) 0)

(defun mk3dpoly ( plst  / plst plst1 ms points en) ;三维点表生成三维多段线<br /> (vl-load-com)<br /> ;(vla-AddPolyline (vxs(car(entsel))))   (vla-addlightweightpolyline (vxs(car(entsel))))<br /> ;(setq plst nil)<br /> ;(setq plst (vxs  en) )<br /> <br /> (setq plst1 (apply 'append<br />                    (append plst (list (car plst)))<br />             ) )<br /> (setq points<br />        (vlax-make-safearray<br />          vlax-vbdouble<br />          (cons 0 (- (length plst1) 1))<br />        )<br /> )<br /> (vlax-safearray-fill points plst1)<br /> <br /> <br /> (setq ms<br />        (vla-get-ModelSpace<br />          (vla-get-ActiveDocument<br />            (vlax-get-acad-object)<br />          )<br />        )<br /> )<br /> <br /> ;(vla-AddPolyline   ms    points   )<br /> (vlax-invoke-method ms 'Add3dPoly points)<br /> (princ)<br /> )<br /> <br /> ;(mk3dpoly (car(entsel)) ) (vlax-dump-object(vlax-ename->vla-object(car(entsel)))T)  (vla-put-closed (vlax-ename->vla-object(car(entsel))) 0)

hd654

收藏，谢谢楼主分享

hd654

感谢楼主分享,学习了!

HAZEL

帖子放收藏夹半年，每次command废物的时候翻翻总能解决问题，必须再顶顶。