[LISP程序]：如何定起点切向和终点切向

tcy200489 · 发表于 2007-1-8 15:52:30

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

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

×

用autolisp画样条曲线时,如何定起点切向和终点切向?向各位请教了

kohi · 发表于 2007-1-9 03:16:34

参考这个：
[php]
(defun C:test ()
  (vl-load-com)
  (setq p (getpoint "\nPick a  Point:"))
  (setq cur (CAR (ENTSEL)))
  (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 "xline" p pe "")
)
[/php]

peter029 · 发表于 2007-1-11 09:31:47

谢谢

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

[LISP程序]：如何定起点切向和终点切向

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

相关帖子