社区 › AutoLISP/Visual LISP 编程技术 › entmake创建图元必要条件(慢慢更新)

nyistjz 发表于 2023-3-24 13:53:45

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

帝都划水王 发表于 2023-5-8 09:46:39

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

树櫴希德 发表于 2023-8-6 21:00:01

(defun mk3dpoly ( plst/ plst plst1 ms points en) ;三维点表生成三维多段线
(vl-load-com)
;(vla-AddPolyline (vxs(car(entsel))))   (vla-addlightweightpolyline (vxs(car(entsel))))
;(setq plst nil)
;(setq plst (vxsen) )

(setq plst1 (apply 'append
                   (append plst (list (car plst)))
            ) )
(setq points
       (vlax-make-safearray
         vlax-vbdouble
         (cons 0 (- (length plst1) 1))
       )
)
(vlax-safearray-fill points plst1)


(setq ms
       (vla-get-ModelSpace
         (vla-get-ActiveDocument
         (vlax-get-acad-object)
         )
       )
)

;(vla-AddPolyline   ms    points   )
(vlax-invoke-method ms 'Add3dPoly points)
(princ)
)

;(mk3dpoly (car(entsel)) ) (vlax-dump-object(vlax-ename->vla-object(car(entsel)))T)(vla-put-closed (vlax-ename->vla-object(car(entsel))) 0)

hd654 发表于 2023-10-30 00:40:34

收藏，谢谢楼主分享

hd654 发表于 2023-11-5 00:26:10

感谢楼主分享,学习了!

HAZEL 发表于 2023-12-19 09:06:05

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

知者无疆 发表于 2024-5-25 06:56:14

找了好久，终于找到了，太开心了

hcrespo 发表于 2024-8-21 16:41:54

到底是什么东西。搞不懂啊。

13763815647 发表于 2024-9-8 22:17:50

谢谢楼主，楼主辛苦

magicheno 发表于 2024-12-1 00:11:11

感谢大佬分享

查看完整版本: entmake创建图元必要条件(慢慢更新)