Spline精确包围盒ClosestPointToProjection应用

st788796 · 发表于 2013-11-23 09:59:22

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

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

×

游客，如果您要查看本帖隐藏内容请回复

牢固 · 发表于 2013-12-4 11:48:14

st788796 发表于 2013-12-4 11:46
G 版再改改就适合所有的 Curve 类了

适合所有曲线版本：

(defun gxl-GetCurveUcsBox (curve / obj p1 p2 p3 p4 lst d)
(if (= 'ename (type curve))
(setq obj (vlax-ename->vla-object curve))
(setq obj curve)
)
(vla-GetBoundingBox obj 'p1 'p3)
(setq p1 (trans (vlax-safearray->list p1) 0 1)
p3 (trans (vlax-safearray->list p3) 0 1)
d (* 0.5 (distance p1 p3))
p1 (list (- (car p1) d) (- (cadr p1) d) (caddr p1))
p3 (list (+ (car p3) d) (+ (cadr p3) d) (caddr p3))
p2 (list (car p1) (cadr p3) (caddr p1))
p4 (list (car p3) (cadr p1) (caddr p1))
)
(SETQ lst
(mapcar '(lambda (a b)
(vlax-curve-getClosestPointToProjection curve a b t))
(mapcar '(lambda (p) (trans p 1 0)) (list p1 p2 p3 p4))
(list (getvar 'ucsxdir)
(getvar 'ucsydir)
(getvar 'ucsxdir)
(getvar 'ucsydir))
)
lst (mapcar '(lambda (p) (trans p 0 1)) lst)
)
(setq p1 (apply 'mapcar (cons 'min lst))
p3 (apply 'mapcar (cons 'max lst))
p2 (list (car p1) (cadr p3) (caddr p1))
p4 (list (car p3) (cadr p1) (caddr p1))
)
(mapcar '(lambda (p) (trans p 1 0)) (list p1 p2 p3 p4))
)

(defun gxl-GetCurveUcsBox  (curve / obj p1 p2 p3 p4 lst d) 
  (if (= 'ename (type curve)) 
    (setq obj (vlax-ename->vla-object curve)) 
    (setq obj curve) 
    ) 
  (vla-GetBoundingBox obj 'p1 'p3) 
  (setq  p1 (trans (vlax-safearray->list p1) 0 1) 
  p3 (trans (vlax-safearray->list p3) 0 1) 
  d  (* 0.5 (distance p1 p3)) 
  p1 (list (- (car p1) d) (- (cadr p1) d) (caddr p1)) 
  p3 (list (+ (car p3) d) (+ (cadr p3) d) (caddr p3)) 
  p2 (list (car p1) (cadr p3) (caddr p1)) 
  p4 (list (car p3) (cadr p1) (caddr p1)) 
  ) 
  (SETQ  lst 
      (mapcar '(lambda (a b) 
           (vlax-curve-getClosestPointToProjection curve a b t)) 
        (mapcar '(lambda (p) (trans p 1 0)) (list p1 p2 p3 p4)) 
        (list (getvar 'ucsxdir) 
        (getvar 'ucsydir) 
        (getvar 'ucsxdir) 
        (getvar 'ucsydir)) 
        ) 
  lst (mapcar '(lambda (p) (trans p 0 1)) lst) 
  ) 
  (setq  p1 (apply 'mapcar (cons 'min lst)) 
  p3 (apply 'mapcar (cons 'max lst)) 
  p2 (list (car p1) (cadr p3) (caddr p1)) 
  p4 (list (car p3) (cadr p1) (caddr p1)) 
  ) 
  (mapcar '(lambda (p) (trans p 1 0)) (list p1 p2 p3 p4)) 
  )

/db_自贡黄明儒_ · 发表于 2013-11-23 10:06:51

学习一下你怎么精确法{:soso_e113:}

st788796 · 发表于 2013-11-23 10:09:12

/db_自贡黄明儒_ 发表于 2013-11-23 10:06
学习一下你怎么精确法

用这种方法可以方便的求曲线和直线的最近点，两个曲线还没有找的方便方法

/db_自贡黄明儒_ · 发表于 2013-11-23 10:16:22

st788796 发表于 2013-11-23 10:09
用这种方法可以方便的求曲线和直线的最近点，两个曲线还没有找的方便方法

确实很独到，那么对于椭圆也行？
能否叙述一下你的思路？

st788796 · 发表于 2013-11-23 10:23:08

/db_自贡黄明儒_ 发表于 2013-11-23 10:16
确实很独到，那么对于椭圆也行？
能否叙述一下你的思路？

椭圆不需要, Boundingbox就是精确的

/db_自贡黄明儒_ · 发表于 2013-11-23 10:40:58

既然可以找到曲线和直线的最近，那么在两条曲线之间画一条线，是不是就可以找到两曲线的最近距离了？

st788796 · 发表于 2013-11-23 10:44:43

/db_自贡黄明儒_ 发表于 2013-11-23 10:40
既然可以找到曲线和直线的最近，那么在两条曲线之间画一条线，是不是就可以找到两曲线的最近距离了？

那不一定了，这个直线位置不是随意定的

ysq101 · 发表于 2013-11-23 11:26:33

st788796 发表于 2013-11-23 10:44
那不一定了，这个直线位置不是随意定的

希望版主研究一下关于Spline 的精确(正负0.01)分解为ARC

而且分解段数尽量控制少点

liuyj · 发表于 2013-11-23 11:43:49

也就是说，ClosestPointToProjection对spline是有特效的

st788796 · 发表于 2013-11-23 12:02:48

liuyj 发表于 2013-11-23 11:43
也就是说，ClosestPointToProjection对spline是有特效的

这个是vlax-curve类函数，不仅针对spline，这只是应用之一

/db_自贡黄明儒_ · 发表于 2013-11-23 12:40:57

st788796 发表于 2013-11-23 10:44
那不一定了，这个直线位置不是随意定的

那么两条曲线采用逼进法，各取5个，最短那条线的点周围再取5个点，如果反复多次，相信精度就足够高了{:soso_e113:}

q3_2006 · 发表于 2013-11-23 17:29:24

我也有个笨方法{:soso_e120:}

HLCAD · 发表于 2013-11-23 17:36:30

回复，学习！学习！

19622928 · 发表于 2013-11-23 17:50:26

回复查看学习

dwg001 · 发表于 2013-11-23 17:57:12

从动画看起来很精彩.

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

[每日一码] Spline精确包围盒ClosestPointToProjection应用

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

评分

点评

评分

点评

点评

点评

点评

点评

点评