[求助]：看完了发再没有我要的问题,我这是新问题帮帮忙吧!

风云868

CAD中，怎么实现插点呢？如下：
已知A点位置、B点位置，A代表厚度2米，B点代表厚度0.4米，连成直线AB，两点距离为100米，在AB上插一个点C，它的厚度是0.8米。如何很快找到C点呢。(小弟头一次发贴，请多多关照)

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20060531
   
3. ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
   
4. 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
   
5. ★1·在acad.lsp中增加(load"xyp_lib.vlx")
   
6. ■2·在每个程序内增加(load"xyp_lib.vlx")
   
7. ■3·在command下，输入(load"xyp_lib.vlx")
   
8. ■4·在菜单.mnl中增加(load"xyp_lib.vlx")
   
9. ■5·将xyp_lib.vlx文件直接拽到cad屏幕
   
10. [COLOR=red] ★通用函数下载地址：[/COLOR]
    
11. [url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
    
12. [url]http://free.ys168.com/?xyp1964[/url]
    
13. |;
    
14. 
    
15. (defun c:test ()
    
16.   (CMDLA0)
    
17.   (setq        no1  (UREAL 7 "" "\nA点厚度" no1)
    
18.         no2  (UREAL 7 "" "\nB点厚度" no2)
    
19.         DIST (UDIST 1 "" "\nAB间距离<输入或鼠标直接量取>" DIST nil)
    
20.         no3  (UREAL 7 "" "\nC点厚度" no3)
    
21.   )
    
22.   (if (setq pt (getpoint "\nA点位置: "))
    
23.     (progn
    
24.       (setq pta         (xyp-get-Pt2XYZ pt 0 no1 0)
    
25.             pta1 (xyp-get-Pt2XYZ pta 0 (- no1) 0)
    
26.             ptb         (xyp-get-Pt2XYZ pt dist no2 0)
    
27.             ptb1 (xyp-get-Pt2XYZ ptb 0 (- no2) 0)
    
28.             ptc1 (list (car pt) (+ no3 (cadr pt)))
    
29.             ptc2 (list (+ (car pt) dist) (+ no3 (cadr pt)))
    
30.             ptc         (inters pta ptb ptc1 ptc2 t)
    
31.             ptc3 (xyp-get-Pt2XYZ ptc 0 (- no3) 0)
    
32.       )
    
33.       (command "pline" pta1 ptb1 ptb pta "c")
    
34.       (xyp-mklaco "test" 3)
    
35.       (if ptc
    
36.         (command "line" ptc ptc3 "")
    
37.       )
    
38.     )
    
39.   )
    
40.   (CMDLA1)
    
41. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20060531<br /> ;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)<br /> 利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：<br /> ★1·在acad.lsp中增加(load"xyp_lib.vlx")<br /> ■2·在每个程序内增加(load"xyp_lib.vlx")<br /> ■3·在command下，输入(load"xyp_lib.vlx")<br /> ■4·在菜单.mnl中增加(load"xyp_lib.vlx")<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://free.ys168.com/?xyp1964[/url]<br /> |;<br /> <br /> (defun c:test ()<br />   (CMDLA0)<br />   (setq        no1  (UREAL 7 "" "\nA点厚度" no1)<br />         no2  (UREAL 7 "" "\nB点厚度" no2)<br />         DIST (UDIST 1 "" "\nAB间距离<输入或鼠标直接量取>" DIST nil)<br />         no3  (UREAL 7 "" "\nC点厚度" no3)<br />   )<br />   (if (setq pt (getpoint "\nA点位置: "))<br />     (progn<br />       (setq pta         (xyp-get-Pt2XYZ pt 0 no1 0)<br />             pta1 (xyp-get-Pt2XYZ pta 0 (- no1) 0)<br />             ptb         (xyp-get-Pt2XYZ pt dist no2 0)<br />             ptb1 (xyp-get-Pt2XYZ ptb 0 (- no2) 0)<br />             ptc1 (list (car pt) (+ no3 (cadr pt)))<br />             ptc2 (list (+ (car pt) dist) (+ no3 (cadr pt)))<br />             ptc         (inters pta ptb ptc1 ptc2 t)<br />             ptc3 (xyp-get-Pt2XYZ ptc 0 (- no3) 0)<br />       )<br />       (command "pline" pta1 ptb1 ptb pta "c")<br />       (xyp-mklaco "test" 3)<br />       (if ptc<br />         (command "line" ptc ptc3 "")<br />       )<br />     )<br />   )<br />   (CMDLA1)<br /> )[/FONT]