如何编程求两条平行线间的距离？[菜鸟求助]

zh3 · 发表于 2002-7-11 08:16

你就打命令di，然后拉一条垂直于两条直线的线段，就可以了。

陈伯雄 · 发表于 2002-7-11 12:55

goodsheep · 发表于 2002-7-11 22:45

因为dist比较麻烦，要捕捉垂足什么的，我还是想知道怎样分别选择两条直线，就给出距离？[br]

南子 · 发表于 2002-7-13 00:24

1、entsel: line1 line2
2. (setq angle1 (angle line1_firstpt line1_endpt))
4、(setq tmp_firstpt (polar line1_endpt (angle1+90 ) 100))
(setq tmp_endpt (polar line1_endpt (angle1-90) 100))
5、(setq inters_pt
(inters tmp_firstpt tmp_endpt line2_firstpt line2_endpt nil)
)
6.(distance line1_endpt inters_pt)

sbjjfqb · 发表于 2002-7-14 13:01

vken7az2p · 发表于 2006-2-19 13:03

那如果是多线断的中间距离

该怎样做呢?

xyp1964 · 发表于 2006-2-19 19:55

(load "xyp_lib.vlx") ;版本 V.20060210
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib")
■2·在每个程序内增加(load"xyp_lib")
■3·在command下，输入(load"xyp_lib")
■4·在菜单.mnl中增加(load"xyp_lib")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://bbs.mjtd.com/forum.php?mod=viewthread&tid=37554[/url]
|;
;;;平行线之距离
(defun c:test ()
(CMDLA0)
(setq s1 (car (USEL 0 "LINE" "LINE线"))
s2 (car (USEL 0 "LINE" "LINE线"))
ang (abs (- (xyp-get-AngleAtPoint s1 (xyp-get-dxf 10 s1))
(xyp-get-AngleAtPoint s2 (xyp-get-dxf 10 s2))
)
)
)
(while (>= ang pi)
(setq ang (- ang pi))
)
(if (< (abs ang) 0.00000001)
(progn
(setq pt1 (xyp-get-dxf 10 s1)
pt2 (xyp-get-FaxianAtPoint s1 pt1 100)
pt3 (xyp-get-dxf 10 s2)
pt4 (xyp-get-dxf 11 s2)
pt22 (inters pt1 pt2 pt3 pt4 nil)
dist (distance pt1 pt22)
)
(princ "\n两平行线距离 = ")
(princ dist)
)
(princ "\n两线不平行!")
)
(CMDLA1)
)

vken7az2p · 发表于 2006-2-19 23:03

谢谢 xyp1964 您的程序,但我要的是一次全选后求出,不是一段一段来求出,不知道这样可以完成吗

账号		自动登录	找回密码
密码			注册

如何编程求两条平行线间的距离？[菜鸟求助]

不管你编什么程，总要分别选择两条直线吧？

标个尺寸岂不是更简捷...

因为dist比较麻烦，要捕捉垂足什么的，我还是想知道怎样分别选择两条直线，就给出距

这个好办。

直接查距离