[求助]：一个比较菜的问题

yjtdkj

已知圆上任一点，求过这一点做圆的切线，
切线长度让用户输入
程序运行步骤：
1.请选择圆：
2.请选择圆上的点：
3.请输入切线长度<200>：

舟自横

你可以先研究一下VLAX-CURVE-GETFIRSTDERIV 函数可以取得曲线上指定参数上的一阶导数
有了一阶导数该点切线的斜率也就有了..切线就出来了..

Underway

该切线垂直圆上那一点到圆心的直线

xyp1964

2. [FONT=courier new]
   
3. (load "xyp_lib")
   
4. ;|加载通用函数(可在签名栏直接下载)
   
5. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
6. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
7. ★1·在acad.lsp中增加(load"xyp_lib")
   
8. ■2·在每个程序内增加(load"xyp_lib")
   
9. ■3·在command下，输入(load"xyp_lib")
   
10. ■4·在菜单.mnl中增加(load"xyp_lib")
    
11. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
    
12. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
13. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
14. [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]
    
15. |;
    
16. 
    
17. ;;;线上任意一点的切线
    
18. (defun c:test ()
    
19.   (CMDLA0)
    
20.   (if(null no1)(setq no1 200))
    
21.   (setq no1 (UREAL 7 "" "\n切线线长" no1))
    
22.   (while (setq s1 (entsel "\n选点 : "))   
    
23.     (setq pt (osnap (cadr s1) "near")
    
24.           e  (car s1)
    
25.     )
    
26.      (setq pt1 (polar pt (xyp-get-AngleAtPoint e pt) no1))
    
27.     (command"LINE" pt pt1 "")
    
28.   )
    
29.   (CMDLA1)
    
30. )
    
31. [/FONT]

[FONT=courier new]<br /> (load "xyp_lib")<br /> ;|加载通用函数(可在签名栏直接下载)<br /> 如果已经下载xyp_lib并放到搜索路径下可以不再下载!<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib")<br /> ■2·在每个程序内增加(load"xyp_lib")<br /> ■3·在command下，输入(load"xyp_lib")<br /> ■4·在菜单.mnl中增加(load"xyp_lib")<br /> ■5·将xyp_lib.vlx文件直接拽到cad屏幕<br /> [COLOR=red] ★通用函数下载地址：[/COLOR]<br /> [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]<br /> [url]http://www.mjtd.com/bbs/dispbbs.asp?boardID=3&ID=37554&page=1[/url]<br /> |;<br /> <br /> ;;;线上任意一点的切线<br /> (defun c:test ()<br />   (CMDLA0)<br />   (if(null no1)(setq no1 200))<br />   (setq no1 (UREAL 7 "" "\n切线线长" no1))<br />   (while (setq s1 (entsel "\n选点 : "))   <br />     (setq pt (osnap (cadr s1) "near")<br />           e  (car s1)<br />     )<br />      (setq pt1 (polar pt (xyp-get-AngleAtPoint e pt) no1))<br />     (command"LINE" pt pt1 "")<br />   )<br />   (CMDLA1)<br /> )<br /> [/FONT]

yjtdkj

斑竹的程序好像有点问题，
(xpy-get-AngleAtPoint e pt)
已加载通用函数

xyp1964

最初由 yjtdkj 发布
[B]斑竹的程序好像有点问题，
(xpy-get-AngleAtPoint e pt)
已加载通用函数 [/B]

程序写错了: (xyp-get-AngleAtPoint e pt)
重新下载程序。