在用多段线模拟spline时出现的问题

我的我啊我 · 发表于 2013-8-20 15:02:06

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

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

×

本人参考了http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=668387中eachy 兄弟模拟多段线的思路

通常情况都可以完美解决，见上图
但是有两种情况有问题
第一种是封闭的spline见图，问题不明见下图

第二种情况是角度很尖锐的spline，见上图图，测试程序时，在尖角附近用vlax-curve-getClosestPointTo取到的点并不在 spline上的，

请问这个怎么解决

Lispboy · 发表于 2013-8-20 15:50:38

解铃还须系铃人了。

eachy · 发表于 2013-8-20 15:55:59

第一种情况封闭点表
第二种情况绘制的时候是不是受捕捉影响? 还有你再多转换一次确保是 spline 上的点

我的我啊我 · 发表于 2013-8-20 16:24:23

eachy 发表于 2013-8-20 15:55
第一种情况封闭点表
第二种情况绘制的时候是不是受捕捉影响? 还有你再多转换一次确保是 spline 上的点

封闭点表是什么意思？
捕捉确认已经关闭。我把取得的点再次用vlax-curve-getClosestPointTo
取点结果就是

这样

st788796 · 发表于 2013-8-20 16:34:24

对自交曲线肯定会有问题，加上按点参数排序会不会好些？来自: Android客户端

/db_自贡黄明儒_ · 发表于 2013-8-20 16:44:24

好象ET中有吧？

ScmTools · 发表于 2013-8-20 21:59:07

控制好模拟的精度

cie0588 · 发表于 2013-8-22 08:12:35

本帖最后由 cie0588 于 2013-8-22 08:13 编辑

我采用(vlax-curve-getPointAtDist)的方式，从起点开始按一定的距离找点，形成点列表。MS不会出现这样的问题。

cie0588 · 发表于 2013-8-22 08:19:18

【功能】曲线等距点列表
[函数] (GL&T-curve-ptlst ename spacing mode)
[参数] ename：图元名
spacing：间距，实数
mode： T 由起点开始；NIL由终点开始
[返回值] 多点列表，由起点开始则不含终点，由终点开始则不含起点
(defun GL&T-curve-ptlst (ename spacing mode / i lst n pt)
(setq i 1
lst nil
)
(setq n (fix (/ (GL&T-curve-length ename) spacing)))
(repeat n
(if mode
(setq pt (vlax-curve-getPointAtDist ename (* i spacing)))
(setq pt (vlax-curve-getPointAtDist
ename
(- (GL&T-curve-length ename) (* i spacing))
)
)
)
(setq lst (append (list pt) lst))
(setq i (1+ i))
)
(if mode
(setq lst (append (list (vlax-curve-getStartPoint ename))
(reverse lst)
)
)
(setq
lst
(append (list (vlax-curve-getendPoint ename)) (reverse lst))
)
)
)
【功能】曲线长度
[函数] (GL&T-curve-length ename)
[参数] ename：图元名
[返回值] 实数值
(defun GL&T-curve-length (ename)
(vlax-curve-getDistAtParam
ename
(vlax-curve-getEndParam ename)
)
)

【功能】   曲线等距点列表 
[函数]        (GL&T-curve-ptlst ename spacing mode) 
[参数]       ename：   图元名 
             spacing：  间距，实数 
             mode：    T 由起点开始；NIL由终点开始 
[返回值]     多点列表 ，由起点开始则不含终点，由终点开始则不含起点 
 
 
(defun GL&T-curve-ptlst (ename spacing mode / i lst n pt) 
  (setq i   1 
        lst nil 
  ) 
  (setq n (fix (/ (GL&T-curve-length ename) spacing))) 
  (repeat n 
    (if mode 
      (setq pt (vlax-curve-getPointAtDist ename (* i spacing))) 
      (setq pt (vlax-curve-getPointAtDist 
                 ename 
                 (- (GL&T-curve-length ename) (* i spacing)) 
               ) 
      ) 
    ) 
    (setq lst (append (list pt) lst)) 
    (setq i (1+ i)) 
  ) 
  (if mode 
    (setq lst (append (list (vlax-curve-getStartPoint ename)) 
                      (reverse lst) 
              ) 
    ) 
    (setq 
      lst 
       (append (list (vlax-curve-getendPoint ename)) (reverse lst)) 
    ) 
  ) 
) 
【功能】   曲线长度 
[函数]        (GL&T-curve-length ename) 
[参数]       ename：图元名 
[返回值]     实数值 
 
 
 
(defun GL&T-curve-length        (ename) 
  (vlax-curve-getDistAtParam 
    ename 
    (vlax-curve-getEndParam ename) 
  ) 
)

XDSoft · 发表于 2013-8-22 08:20:44

cie0588 发表于 2013-8-22 08:12
我采用(vlax-curve-getPointAtDist)的方式，从起点开始按一定的距离找点，形成点列表。MS不会出现这样的问 ...

你这个一定距离是怎么算的？代码可以贴上来和大家分享吗？

Free-Lancer · 发表于 2013-8-22 08:25:34

均分的点就密了!

Free-Lancer · 发表于 2013-8-22 08:56:17

楼主把代码贴出来才好诊断，简单写了个，还不适合闭合Spline

(defun c:s2p (/ divpts e el pts ptl)
(defun divpts (n p1 p2 / d _d an)
(setq d (distance p1 p2)
_d (/ d n)
an (angle p2 p1)
)
(repeat (1- n)
(setq pts (cons (setq p2 (polar p2 an _d))
pts
)
)
)
pts
)
(if (setq e (ssget ":S" '((-4 . ">") (74 . 0))))
(progn
(setq el (entget (ssname e 0))
pts (mapcar
'cdr
(vl-remove-if-not '(lambda (x)
(= (car x) 10)
) el
)
)
)
(if (vlax-curve-isclosed (ssname e 0))
(setq pts (append
pts
(list (vlax-curve-getstartpoint (ssname e 0)))
)
)
)
(setq pts (mapcar
'(lambda (x y)
(append
(list x)
(divpts 8 x y)
)
)
pts
(cdr pts)
)
pts (apply
'append
pts
)
e (ssname e 0)
ptl (mapcar
'(lambda (x)
(vlax-curve-getclosestpointto e x)
)
pts
)
ptl (vl-sort ptl '(lambda (e1 e2)
(< (vlax-curve-getparamatpoint e e1)
(vlax-curve-getparamatpoint e e2)
)
)
)
ptl (mapcar
'(lambda (x)
(list (car x) (cadr x))
)
ptl
)
ptl (apply
'append
ptl
)
)
(vlax-invoke (vla-get-modelspace (vla-get-activedocument
(vlax-get-acad-object)
)
) 'AddLightweightPolyline ptl
)
)
)
(princ)
)

(defun c:s2p (/ divpts e el pts ptl) 
  (defun divpts (n p1 p2 / d _d an) 
    (setq d (distance p1 p2) 
          _d (/ d n) 
          an (angle p2 p1) 
    ) 
    (repeat (1- n) 
      (setq pts (cons (setq p2 (polar p2 an _d)) 
                      pts 
                ) 
      ) 
    ) 
    pts 
  ) 
  (if (setq e (ssget ":S" '((-4 . ">") (74 . 0)))) 
    (progn 
      (setq el (entget (ssname e 0)) 
            pts (mapcar 
                  'cdr 
                  (vl-remove-if-not '(lambda (x) 
                                       (= (car x) 10) 
                                     ) el 
                  ) 
                ) 
      ) 
      (if (vlax-curve-isclosed (ssname e 0)) 
        (setq pts (append 
                    pts 
                    (list (vlax-curve-getstartpoint (ssname e 0))) 
                  ) 
        ) 
      ) 
      (setq pts (mapcar 
                  '(lambda (x y) 
                     (append 
                       (list x) 
                       (divpts 8 x y) 
                     ) 
                   ) 
                  pts 
                  (cdr pts) 
                ) 
            pts (apply 
                  'append 
                  pts 
                ) 
            e (ssname e 0) 
            ptl (mapcar 
                  '(lambda (x) 
                     (vlax-curve-getclosestpointto e x) 
                   ) 
                  pts 
                ) 
            ptl (vl-sort ptl '(lambda (e1 e2) 
                                (< (vlax-curve-getparamatpoint e e1) 
                                   (vlax-curve-getparamatpoint e e2) 
                                ) 
                              ) 
                ) 
            ptl (mapcar 
                  '(lambda (x) 
                     (list (car x) (cadr x)) 
                   ) 
                  ptl 
                ) 
            ptl (apply 
                  'append 
                  ptl 
                ) 
      ) 
      (vlax-invoke (vla-get-modelspace (vla-get-activedocument 
                                                               (vlax-get-acad-object) 
                                       ) 
                   ) 'AddLightweightPolyline ptl 
      ) 
    ) 
  ) 
  (princ) 
)

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

[求助] 在用多段线模拟spline时出现的问题

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

点评

点评

评分