[求助]：请问，怎么能在CAD中求出两条空间直线间的距离呢？

batilhy

已知两条空间直线上四点的坐标（A、B点和另一条上的C、D点），请问，在CAD中怎么求出直线AB、CD间的距离呢？编程或作图的方法都可以，先谢谢各位高手了。

无痕

(distance a b)
或vla-get-length

batilhy

不好意思啊，我编程不会，CAD也不熟，能讲讲你说的具体是什么意思么？
再谢！

eachy

求交点，然后求交点到两线的最近距离

taner

去看看cad的help.

xyp1964

立体几何几乎都还给先生了！
是个可以探讨的问题！

batilhy

cad 的帮助里有怎么求的？
是直接用某个命令么？
看看先




没找到

eachy

1 Inters + vlax-curve-getclosestpointto

2 函数库论坛有一个利用直线方程求点到空间直线距离的函数

snoopychen

：）有简单的方法啊

xyp1964

2. [FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20051205 (1781)
   
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. |;
    
13. 
    
14. ;;;两异面线的距离
    
15. (defun c:test ()
    
16.   (cmdla0)
    
17.   (setq        s1   (car (USEL1 0 "LINE" "LINE线1"))
    
18.         s2   (car (USEL1 0 "LINE" "LINE线2"))
    
19.         pt1s (xyp-get-DXF 10 s1)
    
20.         pt1e (xyp-get-DXF 11 s1)
    
21.         pt2s (xyp-get-DXF 10 s2)
    
22.         pt2e (xyp-get-DXF 11 s2)
    
23.   )
    
24.   (if (or (/= (caddr pt1s) (caddr pt1e) (caddr pt2s))
    
25.           (/= (caddr pt1s) (caddr pt1e) (caddr pt2e))
    
26.       )
    
27.     (progn
    
28.       (command "copy" s2 "" pt2s pt1e)
    
29.       (setq s3         (entlast)
    
30.             pt3e (xyp-get-DXF 11 s3)
    
31.       )
    
32.       (command "ucs" "n" "3Point" pt1s pt1e pt3e)
    
33.       (setq point (xyp-get-DXF 11 s2)
    
34.             point (caddr (trans point 0 1))
    
35.       )
    
36.       (entdel s3)
    
37.       (cmdla1)
    
38.       (princ "\n两线距离 : ")
    
39.       (princ point
    
40.       )
    
41.     )
    
42.     (princ"\n非异面线!")
    
43.   )
    
44.   (cmdla1)
    
45. )[/FONT]

[FONT=courier new](load "xyp_lib.vlx")                        ;版本 V.20051205 (1781)<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 /> |;<br /> <br /> ;;;两异面线的距离<br /> (defun c:test ()<br />   (cmdla0)<br />   (setq        s1   (car (USEL1 0 "LINE" "LINE线1"))<br />         s2   (car (USEL1 0 "LINE" "LINE线2"))<br />         pt1s (xyp-get-DXF 10 s1)<br />         pt1e (xyp-get-DXF 11 s1)<br />         pt2s (xyp-get-DXF 10 s2)<br />         pt2e (xyp-get-DXF 11 s2)<br />   )<br />   (if (or (/= (caddr pt1s) (caddr pt1e) (caddr pt2s))<br />           (/= (caddr pt1s) (caddr pt1e) (caddr pt2e))<br />       )<br />     (progn<br />       (command "copy" s2 "" pt2s pt1e)<br />       (setq s3         (entlast)<br />             pt3e (xyp-get-DXF 11 s3)<br />       )<br />       (command "ucs" "n" "3Point" pt1s pt1e pt3e)<br />       (setq point (xyp-get-DXF 11 s2)<br />             point (caddr (trans point 0 1))<br />       )<br />       (entdel s3)<br />       (cmdla1)<br />       (princ "\n两线距离 : ")<br />       (princ point<br />       )<br />     )<br />     (princ"\n非异面线!")<br />   )<br />   (cmdla1)<br /> )[/FONT]

batilhy

我是在局域网，最近晓东上的东西都下不了，不知道为什么。
别骂我笨啊，不懂，再问问：
是不是我把你给的代码，考到记事本里，然后文件命名为xyp_lib.vlx就行了呢？
我试了一下，不行。显示为“命令: (LOAD "D:/AutoCAD 2006/soft/chen/juli.lsp") C:TEST”
没编程基础，完全不懂。
请指教仔细点，我怎么才能用到这个工具？
急死了。