社区 › AutoLISP/Visual LISP 编程技术 › 【e派】工具箱函数再揭秘及应用实例

寒潮大冬瓜 发表于 2024-9-9 21:42:22

院长更新了这个9点自定义函数增加了‘选择集’功能

lijunfa12345 发表于 2024-9-30 20:59:03

支持院长。。。。。

寒潮大冬瓜 发表于 2024-10-8 01:30:55

院长好！请教这个代码如何直接获取样条曲线拟合点的集合？
yshf发表于 2018-11-16 09:42:28 | 只看该作者
;样条曲线按拟合点转二维多段线
(defun c:test()
   (vl-load-com)
   (setq AcadDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
   (vla-StartUndoMark AcadDoc)
   (if (setq ssa (ssget '((0 . "Spline"))))
         (progn
             (vlax-for obj (vla-get-ActiveSelectionSet AcadDoc)
               (setq ptb (vlax-get-property obj "FitPoints"))
               (setq plobj (vla-AddPolyline (vla-get-ModelSpace AcadDoc) ptb))
               (vlax-put plobj "color" 1)
               ;(vla-delete obj) ;;要删除原样条曲线取消此行注释
             )
            
         )
   )
   (vla-EndUndoMark AcadDoc)
   (vlax-release-object AcadDoc)
   (princ)
)

寒潮大冬瓜 发表于 2024-10-11 08:13:57

寒潮大冬瓜 发表于 2024-10-8 01:30
院长好！请教这个代码如何直接获取样条曲线拟合点的集合？
yshf发表于 2018-11-16 09:42:28 | 只看该作者
...

(vla-get-ControlPoints obj) ;取得样条曲线的控制点
(vla-get-fitpoints obj);获得样条曲线拟合点坐标

查看完整版本: 【e派】工具箱函数再揭秘及应用实例