关于作通过圆弧或样条曲线上指定点画切线的申请

zhuqiqing

我搜索了论坛中关于作通过圆弧或样条曲线上指定点画切线的相关内容，暂没发现符合大家要求的较为完美解决问题 的lsp ，现重把编程要求和步骤说明如下，请各位大师帮忙解决，先谢~。
1.画一已知圆弧或样条曲线；
2.在圆弧上指定一点；
3.输入画切线命令后，先选择圆弧再选择弧上指定点后，从指定点上引出一个射线，移动鼠标，射线长度随之变化，再在屏幕上点击一下，切线画出，命令结束。

zhuqiqing

以前看到在晓东工具箱集成有这个命令，

st788796

射线没有长度

newer

切线那点先指定？ 是不是有点累赘了。画切线时候同时选点指定啊，先指定怎么指定？

zhuqiqing

newer 发表于 2014-12-11 13:12
切线那点先指定？ 是不是有点累赘了。画切线时候同时选点指定啊，先指定怎么指定？

你说的对，有点累嘴了，就是画切线时先点弧上那个已知点，然后引出直线或射线

newer

先说下你做什么工作，用这个功能？

zhuqiqing

做总平中的道路用

newer

zhuqiqing 发表于 2014-12-11 13:17
做总平中的道路用

你贴一个你画好的图吧。

另外，你去试试 函数库的 xd::doc:getdist 好像就能完成你的要求（取点）。

newer

zhuqiqing 发表于 2014-12-11 13:17
做总平中的道路用

通用函数库基本上什么都有了，写什么顺手就来了，你试试下面的程序，需修改再提建议。

1. (defun c:tt()
   
2.    (if (and (setq e (car (xdrx_entsel "\n拾取圆弧或SPLINE<退出>:" '((0 . "arc,spline")))))
   
3.             (setq pt (getpoint "\n拾取切点<退出>:"))
   
4.             (setq pt1 (XD::Doc:GetDist pt "\n切线方向<退出>:" 1 (xdrx_curve_getfirstderiv e pt t) t))       
   
5.        )
   
6.      (xdrx_line_make pt (mapcar '+ pt pt1))
   
7.    )
   
8.    (princ)
   
9. )
   
10. 
    

(defun c:tt()<br />    (if (and (setq e (car (xdrx_entsel "\n拾取圆弧或SPLINE<退出>:" '((0 . "arc,spline")))))<br />             (setq pt (getpoint "\n拾取切点<退出>:"))<br />             (setq pt1 (XD::Doc:GetDist pt "\n切线方向<退出>:" 1 (xdrx_curve_getfirstderiv e pt t) t))        <br />        )<br />      (xdrx_line_make pt (mapcar '+ pt pt1))<br />    )<br />    (princ)<br /> )<br /> <br />

zhuqiqing

看你载的图是这样子的了，我加载后运行，提示ADS错误，通用函数库我暂时下载不了，:'(

newer

zhuqiqing 发表于 2014-12-11 14:08
看你载的图是这样子的了，我加载后运行，提示ADS错误，通用函数库我暂时下载不了，

主要的就是那个通用函数库的函数呢，你也快了，还7个积分就够下载了。

zhuqiqing

期待，多谢你了~~

newer

zhuqiqing 发表于 2014-12-11 14:15
期待，多谢你了~~

你是不是想画曲线要素啊？ 只画这一个切线？ 还是指定圆弧两点，然后画两条相交的切线？

zhuqiqing

曲线要素有一步到位的吗？除了曲线要素，这个单个切线的命令在很多场合下都很有用 ~

newer

zhuqiqing 发表于 2014-12-11 14:35
曲线要素有一步到位的吗？除了曲线要素，这个单个切线的命令在很多场合下都很有用 ~

只要你想一步到位，并且数据支持，就能一步到位，这个要看你做专业的要求了，所以让你提出条件，你认为画图中，可以一步到位，就能写。