Spline折线模拟

eachy · 发表于 2014-11-20 14:26:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

老生常谈，以前的一个讨论
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=586722
后来综合了一个，但是源码丢失了，今天好不容易想起来了算法，留存

(defun c:tt (/ ss e obj n pl pts ptl)
(defun _getVertex (e / pts p)
(while (and (setq e (entnext e))
(setq p (cdr (assoc 10 (entget e))))
)
(setq pts (cons p pts))
)
(reverse pts)
)
(if (setq ss (ssget ":S" '((0 . "spline"))))
(progn
(setq e (ssname ss 0)
obj (vlax-ename->vla-object e)
n (vla-get-numberofcontrolpoints obj)
)
(setq pl (vlax-invoke
(vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
'add3dpoly
(vlax-get obj 'ControlPoints)
)
)
(vla-put-type pl acCubicSpline3DPoly)
(setq pts (_getVertex (entlast)))
(while pts
(setq p (vlax-curve-getclosestpointto e (car pts))
ptl (cons p ptl)
pts (cdr pts)
)
)
(vla-delete pl)
(vlax-invoke
(vla-get-modelspace
(vla-get-activedocument (vlax-get-acad-object))
)
'add3dpoly
(apply 'append
(vl-sort ptl
'(lambda (x1 x2)
(< (vlax-curve-getparamatpoint e x1)
(vlax-curve-getparamatpoint e x2)
)
)
)
)
)
)
)
(princ)
)

(defun c:tt (/ ss e obj n pl pts ptl) 
  (defun _getVertex (e / pts p) 
    (while (and        (setq e (entnext e)) 
                (setq p (cdr (assoc 10 (entget e)))) 
           ) 
      (setq pts (cons p pts)) 
    ) 
    (reverse pts) 
  ) 
  (if (setq ss (ssget ":S" '((0 . "spline")))) 
    (progn 
      (setq e        (ssname ss 0) 
            obj        (vlax-ename->vla-object e) 
            n        (vla-get-numberofcontrolpoints obj) 
      ) 
      (setq pl (vlax-invoke 
                 (vla-get-modelspace 
                   (vla-get-activedocument (vlax-get-acad-object)) 
                 ) 
                 'add3dpoly 
                 (vlax-get obj 'ControlPoints) 
               ) 
      ) 
      (vla-put-type pl acCubicSpline3DPoly) 
      (setq pts (_getVertex (entlast))) 
      (while pts 
        (setq p          (vlax-curve-getclosestpointto e (car pts)) 
              ptl (cons p ptl) 
              pts (cdr pts) 
        ) 
      ) 
      (vla-delete pl)       
      (vlax-invoke 
        (vla-get-modelspace 
          (vla-get-activedocument (vlax-get-acad-object)) 
        ) 
        'add3dpoly 
        (apply 'append 
               (vl-sort        ptl 
                        '(lambda (x1 x2) 
                           (< (vlax-curve-getparamatpoint e x1) 
                              (vlax-curve-getparamatpoint e x2) 
                           ) 
                         ) 
               ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

守仁格竹GM · 发表于 2014-11-20 15:47:21

(defun gm-Spl2Pl (ent tol / spt ept Lth dist pt pts)
(setq spt (vlax-curve-getStartPoint ent)
ept (vlax-curve-getEndPoint ent)
Lth (vlax-curve-getDistAtPoint ent ept)
dist 0
pts (list spt)
)
(while (< (setq dist (+ dist tol)) Lth)
(if (setq pt (vlax-curve-getPointAtDist ent dist))
(setq pts (append pts (list pt)))
)
)
(setq pts (append pts (list ept)))
)

这个虽然简单，但是貌似确实也很实用。

Free-Lancer · 发表于 2014-11-20 16:06:20

守仁格竹GM 发表于 2014-11-20 15:47
这个虽然简单，但是貌似确实也很实用。

等长时对尖角处模拟不好，较直的部分点又太密

自适应能力较差

XDSoft · 发表于 2014-11-20 16:07:49

守仁格竹GM 发表于 2014-11-20 15:47
这个虽然简单，但是貌似确实也很实用。

你这个点都是等距的吧，实际上SPLINE线，应该在陡的地方点密，缓的地方点疏。

eachy · 发表于 2014-11-20 16:14:51

1楼的算法是用了 Spline 的控制点生成一个 polyline， Autocad pedit 提供了一个 polyline 样条化功能，就是用折线模拟 Spline ，explode 后就是一段段的 line，但是这个模拟线还是和光滑 spline 有偏离，上面程序增加了一步，取出样条化 polyline 的节点，用 getclosestpointto 到 spline 上在重新生成，全程不需要计算，就是cad的基本功能

Highflybird · 发表于 2014-11-20 18:47:32

本帖最后由 Highflybird 于 2014-11-20 18:48 编辑

eachy 发表于 2014-11-20 16:14
1楼的算法是用了 Spline 的控制点生成一个 polyline， Autocad pedit 提供了一个 polyline 样条化功能， ...

实际上这个polyline无需炸开也可以知道那些点的。而且这个点的疏密程度跟系统的 “每条多段线曲线的线段数”这个变量设置有关。

st788796 · 发表于 2014-11-20 18:58:24

Highflybird 发表于 2014-11-20 18:47
实际上这个polyline无需炸开也可以知道那些点的。而且这个点的疏密程度跟系统的 “每条多段线曲线的线段 ...

就是说还可以用这个变量控制疏密？

Lisphk · 发表于 2014-11-20 19:06:48

eachy 发表于 2014-11-20 16:14
1楼的算法是用了 Spline 的控制点生成一个 polyline， Autocad pedit 提供了一个 polyline 样条化功能， ...

ACAD有个系统变量能控制是否用双圆弧模拟。

iLisp · 发表于 2014-11-20 19:09:45

Lisphk 发表于 2014-11-20 19:06
ACAD有个系统变量能控制是否用双圆弧模拟。

你说的是椭圆吧

Lisphk · 发表于 2014-11-20 19:14:23

iLisp 发表于 2014-11-20 19:09
你说的是椭圆吧

不是，是PEDIT SPLINE化的时候，用双圆弧去模拟。不过SPLINE化的曲线和真正的SPLINE还是有些出入。

Lisphk · 发表于 2014-11-20 19:28:02

取负值的时候，就是用双圆弧去模拟SPLINE

st788796 · 发表于 2014-11-20 20:45:04

可能桌子看大家写的很辛苦，2015 已经提供这个转换功能
Command: _SPLINEDIT
Enter an option [Close/Join/Fit data/Edit vertex/convert to Polyline/Reverse/Undo/eXit] <eXit>: _F
Enter a fit data option
[Add/Close/Delete/Kink/Move/Purge/Tangents/toLerance/eXit] <eXit>: _P
Enter an option [Close/Join/Fit data/Edit vertex/convert to Polyline/Reverse/Undo/eXit] <eXit>: P
Specify a precision <10>:

账号		自动登录	找回密码
密码			立即注册

[教学] Spline折线模拟

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评