[求助]：请教大侠,如何判断两直线是否平行?

foxzmx · 发表于 2005-12-1 10:06:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

使用lisp程序,如何判断两直线是否平行!

Underway · 发表于 2005-12-1 10:27:44

(equal (rem ang1 Pi) (rem ang2 Pi) prec)

qjcpj · 发表于 2005-12-1 19:39:40

如果在一个平面上，可使用inters函数...

xiao_longxin · 发表于 2005-12-2 00:38:26

在直线上取两点，分别求这两点到另一直线的垂距，两个垂距相等即为平行，只适用于在同一平面

wuzz · 发表于 2005-12-2 15:40:30

判断水平角度相等或者互补即可！

JQKA · 发表于 2005-12-2 17:38:39

角度对比应该可以的

狂刀 · 发表于 2005-12-2 21:18:25

如果是空间两直线呢？

taner · 发表于 2005-12-2 21:55:07

http://www.xdcad.net/forum/showthread.php?s=&threadid=495625
參考MASSOC
[PHP]

(defun c:test (/ line1 lin2)
  (setq line1 (entget(car (entsel))))
  (setq line2 (entget(car (entsel))))
  (if (inters
(car (massoc 10 line1))
(car (massoc 11 line1))
(car (massoc 10 line2))
(car (massoc 11 line2))
t
   )
(princ "\n兩直線相交")
(if (inters
   (car (massoc 10 line1))
   (car (massoc 11 line1))
   (car (massoc 10 line2))
   (car (massoc 11 line2))
   nil
)
   (princ "\n兩直線延長相交")
   (princ "\n兩直線平行")
)
  )
  (princ)
)[/PHP]

;by  underway
[PHP](defun massoc (key alist / tmp pts)
  (while (setq tmp (assoc key alist))
(setq alist (cdr (member tmp alist))
   pts (cons (cdr tmp) pts)
)
  )
  (reverse pts)
)
[/PHP]

狂刀 · 发表于 2005-12-2 22:43:42

taner兄的程序对空间曲线平行判断还有缺陷，
如：两平行线，将其中一条沿法线旋转30度(3drotate)．判断结果还是平行．

我写了一个，发到程序库板块了．大家看看

[iframe h=600 w=100%]http://p4.xdcad.net/forum/showthread.php?s=&postid=2440413#post2440413[/iframe]

xyp1964 · 发表于 2005-12-2 22:45:05

命令: test
选择对象:
选择对象: ; 错误: no function definition: MASSOC

xyz518mm · 发表于 2005-12-20 21:45:31

最初由 taner 发布
[B]http://www.xdcad.net/forum/showthread.php?s=&threadid=495625
參考MASSOC
[PHP]

(defun c:test (/ line1 lin2)
(setq line1 (entget(car (entsel))))
(setq line2 (entget(car (entsel))))... [/B]

请教求出判断后
如果还有后续动作要执行
该怎样处理呢
例如判断平行在中间画个圈
该怎样做呢
烦请解答一下
谢谢~

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

[求助] [求助]：请教大侠,如何判断两直线是否平行?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子