[编程申请]：有没有过圆弧一已知点画切线lsp

zhuqiqing · 发表于 2007-1-31 23:23:09

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

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

×

我想过一已知点画一圆弧的切线，让这条切线通过已知点，而不用去先画一条从圆心到已知点的直线，再作这条直线的垂线，这种方法太笨了,请高手帮忙编一lsp程序！

kohi · 发表于 2007-2-8 06:30:10

(defun C:test ()
  (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 "")
)

eachy · 发表于 2007-2-8 07:12:45

直径转90度

zhuqiqing · 发表于 2007-2-10 00:24:10

二楼楼主lsp 不能用来过已知点画切线,我想要的已有一已知圆弧和圆弧上一点,先选已知圆弧,再选已知点,然后再用鼠标在屏幕上确定切线的长度并把切线画出来，

AyungerStudio · 发表于 2007-2-10 15:03:10

本人的《非常好用的AutoLisp工具集合(20070115)》中就有该工具呀，命令：CurveQX，可对任意曲线进行绘制切线。

zhuqiqing · 发表于 2007-2-17 13:03:07

已下载，好用，顶!

kyb123 · 发表于 2007-2-23 14:35:45

5楼说的好,CurveQX好像不是CAD的内部命令吧.

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

[编程申请]：有没有过圆弧一已知点画切线lsp

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

相关帖子

回复

浏览过的版块