[求助]：怎么用程序过线上已知一点作该线垂线？

oyxx_1023 · 发表于 2004-7-9 22:18:57

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

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

×

该线为多义线？

aidraft · 发表于 2004-7-9 22:32:11

用vlax-curve-getFirstDeriv函数求得曲线在该点切线方向转90度即可。

自由的鱼 · 发表于 2004-7-9 22:44:23

用极轴捕捉就可以做到！

lsjjm · 发表于 2004-7-10 13:08:59

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

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

×

最初由 oyxx_1023 发布
[B]该线为多义线？ [/B]

请参考:
[PHP]
(defun C:test ()
  (setq p (getpoint "\nPick a Point:"))
  (setq cur (ssname (ssget p) 0))
  (setq tan (vlax-Curve-GetFirstDeriv cur
   (vlax-Curve-GetParamatDist cur
   (vlax-curve-getDistAtPoint cur p))))
  (setq pe (polar p (atan (/ (cadr tan)(car tan))) 1))
  (vl-cmdf "line" p pe "")
)
[/PHP]

oyxx_1023 · 发表于 2004-7-10 20:56:46

如果把捕捉打开的话，用四楼的程序就会出现错误。把捕捉关闭，程序运行结果正确。这是为什么？

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

[求助] [求助]：怎么用程序过线上已知一点作该线垂线？

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

相关帖子

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

相关帖子

浏览过的版块