[求助]：已知曲线上两点，如何求得该两点间曲线上的“中点”？

hsslyl · 发表于 2007-4-3 17:24:58

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

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

×

如图：已知曲线上两点A和B，如何求得该两点间曲线上的“中点”C？所谓中点，指AC间、BC间沿曲线长度相等。
请高手指点，谢谢！

舟自横 · 发表于 2007-4-4 08:56:26

(DEFUN C:TUMP()
  (setq en (car(entsel"\n選擇線")))
  (setq eno (vlax-ename->vla-object en))
  (setq p1 (getpoint "\n選線上點:" ) p2 (getpoint "\n選線上另一點:" ));
  (setq dis1 (vlax-curve-getdistatpoint eno p1)
dis2 (vlax-curve-getdistatpoint eno p2)
)
  (setq dis3 (* 0.5 (+ dis1 dis2)))
  (setq p3 (vlax-curve-getpointatdist eno dis3))
  (vl-cmdf "line" p1 P2 "" "LINE" P3)
  )

hsslyl · 发表于 2007-4-4 21:34:03

感谢舟自横！

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

[求助] [求助]：已知曲线上两点，如何求得该两点间曲线上的“中点”？

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

相关帖子