[求助]：平行线的距离？

紫云飞

如果已知两条长短不一的线是平行的，那如何求得它们之间的距离？
如果已知两平行线间的距离和其中一条直线，那如何求得另外一条直线的图元名称？

adisonmaster

取两平行线中其中一条直线的一个端点，再使用数学公式计算点到直线的距离就可以了。

xyp1964

2. [FONT=courier new](load "xyp_lib")
   
3. ;|加载通用函数(可在签名栏直接下载)
   
4. 如果已经下载xyp_lib并放到搜索路径下可以不再下载!
   
5. 利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
   
6. 1.在acad.lsp中增加(load"xyp_lib")
   
7. 2.在每个程序内增加(load"xyp_lib")
   
8. 3.在command下，输入(load"xyp_lib")
   
9. 4.在菜单.mnl中增加(load"xyp_lib")
   
10. 5.将xyp_lib.vlx文件直接拽到cad屏幕
    
11. [COLOR=red] ★通用函数下载地址：[/COLOR][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;
    
12. 
    
13. ;;;平行线的距离
    
14. (defun c:test (/ dist)
    
15.   (CMDLA0)
    
16.   (setq        s1   (car (usel1 0 "LINE" "LINE线"))
    
17.         s2   (car (usel1 0 "LINE" "LINE线"))
    
18.         rad1 (vla-get-angle (vlax-ename->vla-object s1))
    
19.         rad2 (vla-get-angle (vlax-ename->vla-object s2))
    
20.         pt1  (dxf 10 (entget s1))
    
21.         pt2  (inters pt1
    
22.                      (polar pt1 (+ rad1 (* pi 0.5)) 100)
    
23.                      (dxf 10 (entget s2))
    
24.                      (dxf 11 (entget s2))
    
25.                      nil
    
26.              )
    
27.   )
    
28.   (if (= (rem (- rad1
    
29.                  rad2
    
30.               )
    
31.               pi
    
32.          )
    
33.          0
    
34.       )
    
35.     (progn
    
36.       (setq dist (distance pt1 pt2))
    
37.       (grvecs (list 1 pt1 pt2))
    
38.     )
    
39.     (princ "\n两线不平行!")
    
40.   )
    
41.   (if dist
    
42.     (princ (strcat "\n平行线距离 = " (rtos dist 2 2)))
    
43.   )
    
44.   (CMDLA1)
    
45. )
    
46. [/FONT]

[FONT=courier new](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][url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]|;<br /> <br /> ;;;平行线的距离<br /> (defun c:test (/ dist)<br />   (CMDLA0)<br />   (setq        s1   (car (usel1 0 "LINE" "LINE线"))<br />         s2   (car (usel1 0 "LINE" "LINE线"))<br />         rad1 (vla-get-angle (vlax-ename->vla-object s1))<br />         rad2 (vla-get-angle (vlax-ename->vla-object s2))<br />         pt1  (dxf 10 (entget s1))<br />         pt2  (inters pt1<br />                      (polar pt1 (+ rad1 (* pi 0.5)) 100)<br />                      (dxf 10 (entget s2))<br />                      (dxf 11 (entget s2))<br />                      nil<br />              )<br />   )<br />   (if (= (rem (- rad1<br />                  rad2<br />               )<br />               pi<br />          )<br />          0<br />       )<br />     (progn<br />       (setq dist (distance pt1 pt2))<br />       (grvecs (list 1 pt1 pt2))<br />     )<br />     (princ "\n两线不平行!")<br />   )<br />   (if dist<br />     (princ (strcat "\n平行线距离 = " (rtos dist 2 2)))<br />   )<br />   (CMDLA1)<br /> )<br /> [/FONT]

陌生人

问题1：
已经知道线条e1，e2
(setq p1 (vlax-curve-getstartpoint e1)
        p2 (vlax-curve-getclosestpointto e2  p1 T)
)
(distance p1 p2)

xyp1964

最初由 陌生人 发布
[B]问题1：
已经知道线条e1，e2
(setq p1 (vlax-curve-getstartpoint e1)
        p2 (vlax-curve-getclosestpointto e2  p1 T)
)
(distance p1 p2) [/B]

这仅仅是e1起点到e2的垂直距离，两线不平行就会出错，需要增加平行与否的判断。

狂刀

可前提说的很清楚：如果已知两条长短不一的线是平行的，那如何求得它们之间的距离？
既然是已知的，还判断有什么意义？

heifeng

好啊!复制了

zbsj

好多高手啊，要多多学习啊