[功能] p到曲线的垂点是否在曲线上

/db_自贡黄明儒_ · 发表于 2014-1-17 11:23:46

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

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

×

;;164.47.3 [功能] p到曲线的垂点不在延长线上，返回T
;;(HH:perPtIn (getpoint) (car(entsel)))
(defun HH:perPtIn (p curve / P1 P2 PA)
  (setq p1 (vlax-curve-getClosestPointTo curve p))
  (setq pa (vlax-curve-getParamAtPoint curve P1))       ;参数
  (setq p2 (mapcar '+ (vlax-curve-getFirstDeriv curve pa) p1)) ;切线上一点
  (equal (caddr (trans (mapcar '- p p1) 0 (mapcar '- p2 p1))) 0 1e-5)
)

st788796 · 发表于 2014-1-17 12:08:26

Curve 类包括 Line Circle Arc Spline Polyline ，黄老这个函数是通用吗？
Closestpointto 不在 Curve "区间“时，返回的可能是曲线的端点

/db_自贡黄明儒_ · 发表于 2014-1-17 13:04:07

Circle没有试过，其它应该行吧。

aeo · 发表于 2014-1-17 15:00:36

(vlax-curve-getClosestPointTo curve p)

后面没参数是不延长的.找到最多是端点

(vlax-curve-getClosestPointTo curve-obj givenPnt [extend])

/db_自贡黄明儒_ · 发表于 2014-1-17 15:36:15

本帖最后由 /db_自贡黄明儒_ 于 2014-1-17 15:53 编辑

aeo 发表于 2014-1-17 15:00
(vlax-curve-getClosestPointTo curve p)

后面没参数是不延长的.找到最多是端点

对于直线和弧，我试过，T时是可以延长的。其它的好象不行。

newer · 发表于 2014-1-17 16:24:26

黄工是否把各种可能的情况，截取个图片说明呢？

/db_自贡黄明儒_ · 发表于 2014-1-17 16:37:12

newer 发表于 2014-1-17 16:24
黄工是否把各种可能的情况，截取个图片说明呢？

这个不好弄吧，垂点只有两种情况，要么在曲线上，要么不在曲线上。

st788796 · 发表于 2014-1-17 16:43:51

aeo 发表于 2014-1-17 15:00
(vlax-curve-getClosestPointTo curve p)

后面没参数是不延长的.找到最多是端点

学习了，没有注意过这个参数

newer · 发表于 2014-1-17 16:48:20

/db_自贡黄明儒_ 发表于 2014-1-17 16:37
这个不好弄吧，垂点只有两种情况，要么在曲线上，要么不在曲线上。

什么时候需要判断是否在曲线上，什么时候不在呢？两种情况分别在什么情况下用？

/db_自贡黄明儒_ · 发表于 2014-1-17 16:54:03

newer 发表于 2014-1-17 16:48
什么时候需要判断是否在曲线上，什么时候不在呢？两种情况分别在什么情况下用？

图元按曲线排列(或者编号)时，用得着.

st788796 · 发表于 2014-1-17 17:15:30

/db_自贡黄明儒_ 发表于 2014-1-17 16:54
图元按曲线排列(或者编号)时，用得着.

直接按参数排，排除重复参数对应点

xvjiex · 发表于 2021-6-5 06:43:45

感谢楼主分享[功能] p到曲线的垂点是否在曲线上！

hh_lj007 · 发表于 2021-6-5 08:16:46

感谢分享源码，很实用。

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

[每日一码] [功能] p到曲线的垂点是否在曲线上

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

点评

点评

点评

点评