如何判段两线段是否平行

lead009 · 发表于 2011-4-30 22:32:09

caoyin 发表于 2011-4-30 10:59
(defun C:TT (/ E1 E2 A1 A2 ANG)
(if (and (setq E1 (entsel "\n选择第一条直线: "))
(setq E2 ...

感謝，又學習到了一個新的函數了。

狂刀lxx · 发表于 2011-4-30 23:39:57

(= 0. (rem (- an1 an2) (* PI 0.5)))

lead009 · 发表于 2011-5-1 12:58:11

本帖最后由 lead009 于 2011-5-1 13:11 编辑

caoyin 发表于 2011-4-30 10:59
(defun C:TT (/ E1 E2 A1 A2 ANG)
(if (and (setq E1 (entsel "\n选择第一条直线: "))
(setq E2 ...

這位大大，我有個疑問
當我在if中，使用大大的方法去判斷是否平行時，都可以正常。
但是當我把程式改成如下，卻無法判斷了，不知為何，請大大幫我解惑。

雖然學習到新的函數很高興，但是也想知道說，為什麼舊的方法不能用呢??

(setq ang1(vc-ang data1))
(setq ang2(vc-ang data2))
(print ang1)
(print ang2)
(setq ang(abs(- ang1 ang2)))
(print ang)
(if (or (= ang 180) (= ang 0) )
(alert "YES")
(alert "NO")
)

lead009 · 发表于 2011-5-1 15:04:31

本帖最后由 lead009 于 2011-5-1 15:05 编辑

另外一個問題提問一下圖中的這兩線段是平行線
我要如何透過lisp去量得這兩平行線間的距離呢??

caoyin · 发表于 2011-5-1 16:32:29

lead009 发表于 2011-5-1 12:58
這位大大，我有個疑問
當我在if中，使用大大的方法去判斷是否平行時，都可以正常。
但是當我把程式改成 ...

Andyhon 已经说了有的时候需要例外处理的，你写的跟我的结尾的判断是有区别的

caoyin · 发表于 2011-5-1 16:42:29

lead009 发表于 2011-5-1 15:04
另外一個問題提問一下圖中的這兩線段是平行線
我要如何透過lisp去量得這兩平行線間的距離呢??

(defun C:TTT ()
(if (and (setq E1 (entsel "\n选择第一条直线: "))
      (setq E2 (entsel "\n选择第二条直线: ")))
(progn
(setq E1  (entget (car E1))
   E2  (entget (car E2))
   P1  (cdr (assoc 10 E1))
   P2  (cdr (assoc 11 E1))
   P3  (cdr (assoc 10 E2))
   AN  (+ (/ PI 2) (angle P3 (cdr (assoc 11 E2))))
)
(distance P3 (inters p1 p2 p3 (polar P3 AN 1) nil))
)))

lead009 · 发表于 2011-5-1 16:43:02

喔喔，原来是例外角度，.

chpmould · 发表于 2011-5-2 11:46:50

caoyin 发表于 2011-4-29 23:02
回复 chpmould 的帖子

科学计数法，可以用下面的方法理解：

谢谢版主的解释...

Andyhon · 发表于 2011-5-2 12:07:20

回复 lead009 的帖子

是实务上的必然
当年程序乱蹦....
深刻的记忆

teykmcqh · 发表于 2011-5-4 13:13:37

问题虽然简单，讨论就是进步，支持一下哟

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

[基础] 如何判段两线段是否平行

本帖子中包含更多资源