[LISP程序]：一个画任意曲线切线的vlisp小程序

lsjjm · 发表于 2003-12-11 09:54:36

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

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

×

一个画任意曲线切线的vlisp小程序

;;By Richard Liang
;;Parker Hannifin (NZ) Ltd.
(defun C:test ()
  (vl-load-com)
  (setq p (getpoint "\nPick a Point:"))
  (setq cur (ssname (ssget p) 0))
  (setq obj (vlax-ename->vla-object cur))
  (setq tan (vlax-Curve-GetFirstDeriv obj
      (vlax-Curve-GetParamatDist obj
(vlax-curve-getDistAtPoint obj p))))
  (setq pe (polar p (atan (/ (cadr tan)(car tan))) 1))
  (vl-cmdf "line" p pe  "")
)

playboy · 发表于 2003-12-11 11:33:01

怎么用呀，能否说明一下，这个程序选完点就退出了。

Qlin · 发表于 2003-12-11 12:35:28

把polar函数的距离加大，然后把osmode设为零就可以看到效果了。

lsjjm · 发表于 2003-12-11 12:53:33

最初由 playboy 发布
[B]怎么用呀，能否说明一下，这个程序选完点就退出了。 [/B]

不好意思, 我用的是英制单位, 你可以按照3楼说的加大长度, 例如:
(setq pe (polar p (atan (/ (cadr tan)(car tan))) 100))
或者换个变量,输入你要求的长度.

aeo · 发表于 2003-12-11 20:42:19

atan没有定义

vlax-curve-getFirstDeriv 就是也.

lsjjm · 发表于 2003-12-12 04:58:13

最初由 aeo 发布
[B]atan没有定义... [/B]

谢谢斑竹指正, 不过atan是AutoLISP的内部函数呀! 还用定义吗?

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

[LISP程序]：一个画任意曲线切线的vlisp小程序

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

相关帖子