[求助]：lisp语言实现通过曲线外一点绘制曲线的切线

xiaojiang0 · 发表于 2006-7-12 13:47:39

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

×

如图，我想过p1点绘制曲线的切线，如果用cad的line命令，则选择p1点后再输入tan就可以画出切线来了，但是用lisp语言怎么实现呢？还有别的过曲线外一点画曲线切线的方法吗？这条曲线为半月弧形，p1点在凸的一面。请大家帮帮忙，谢谢了！

lc88126 · 发表于 2006-7-14 15:20:52

我也想知道，怎么没有人回答呀？

hhc_1 · 发表于 2006-7-15 15:38:04

(setq p1 (getpoint "\n选择直线起点:"))
(setq en (car (entsel "\n选择圆弧:")))
(command "line" p1 (osnap (vlax-curve-getclosestpointto en p1) "tan") "")

lc88126 · 发表于 2006-7-17 19:39:09

哦也想啊。

uwanggang · 发表于 2006-7-27 09:03:41

路过~

cil · 发表于 2006-8-14 15:13:15

路过

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