样条曲线转多线保持拟合控制点位置数量不变

ynhh

手工选择多条 或 自动将全图中的样条曲线

按原拟合控制点位置数量不变，改为多段线。

谢谢大师的指点

yshf

;样条曲线按拟合点转二维多段线
(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)
)

ynhh

lisperado 发表于 2018-11-18 23:43
蓝钻会员？应该不必解释en是啥吧？

但如依照第十三楼bug，以上方法或vla-get-NumberOfFitPoints都 ...

大师批评的对
我慢慢学习研究吧
您这么高的学问
我这以前从明经上下载的两个型钢程序
能不能请您看看
第一个说要收费，不知是那里有控制？
第二个只能放在C盘，因Win10系统不宜在C盘上放文件，请您看看能不能改在CAD安装文件夹中？我试了却不显示幻灯片。
谢谢您

lisperado

建议增加更多过滤如果发生小状况：样条曲线拟合点可能被关掉！

(setq s (ssget "X" (list '(0 . "SPLINE") '(-4 . "!=") '(74 . 0) (cons 410 (getvar "CTAB")))))

当变量SPLFRAME=1时，如果手动控制点(control points)被移位后，拟合点(Fit points)
就会被切换关掉！ dxf 11 或 activeX 'FitPoints' 都无效！

lch8526

请看看是不是你需要的

ynhh

lch8526 发表于 2018-11-15 16:39
请看看是不是你需要的

谢谢大师
您这太好了
最好是把原样条曲线也删除了
你这功能太强大，不知要修改那里？
请大师再指导一下，谢谢您

lch8526

ynhh 发表于 2018-11-15 23:07
谢谢大师
您这太好了
最好是把原样条曲线也删除了

在后面加删除原来的选择集就行啦

yshf

1. <blockquote>;样条曲线按拟合点转二维多段线

复制代码

ynhh

lch8526 发表于 2018-11-16 09:19
在后面加删除原来的选择集就行啦

谢谢您的指点

ynhh

yshf 发表于 2018-11-16 09:42
;样条曲线按拟合点转二维多段线
(defun c:test()
     (vl-load-com)

谢谢您的好程序
的确好用

如再进一步，不知如何 自动 把全图中的样条曲线自己按此方法改为多段线？
谢谢您的指导

ynhh

lch8526 发表于 2018-11-15 16:39
请看看是不是你需要的

再请教大师
不知如何自动把全图中的样条曲线自己按此方法改为多段线？
谢谢您

Andyhon

手动选
(ssget '((0 . "Spline")))

自动全图选
(ssget "X" '((0 . "Spline")))