怎么判断一条直线是属于第一第三像限或是第二第四像限

狂刀lxx

什么样的，有图么

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

狂刀lxx

2. (defun c:ttt (/ A B ENT P0 P1 P2 PI/2 S1)
3.   (if (and (setq p0 (getpoint "\n坐标原点 :"))
4.     (setq s1 (entsel "\n选择一条直线 :"))
5.     (setq ent (entget (car s1)))
6.     (= (cdr (assoc 0 ent)) "LINE")
7.       )
8.     (progn
9.       (setq p1  (cdr (assoc 10 ent))
10.      p2  (cdr (assoc 11 ent))
11.      pi/2 (/ pi 2)
12.       )
13.       (setq a (1+ (fix (/ (angle p0 p1) pi/2)))
14.      b (1+ (fix (/ (angle p0 p2) pi/2)))
15.       )
16.       (if (= a b)
17. (princ (strcat (itoa a) "象限"))
18. (princ (strcat (itoa a) "~" (itoa b) "象限"))
19.       )
20.     )
21.   )(princ)
22. )

(defun c:ttt (/ A B ENT P0 P1 P2 PI/2 S1)   (if (and (setq p0 (getpoint "\n坐标原点 :"))     (setq s1 (entsel "\n选择一条直线 :"))     (setq ent (entget (car s1)))     (= (cdr (assoc 0 ent)) "LINE")       )     (progn       (setq p1  (cdr (assoc 10 ent))      p2  (cdr (assoc 11 ent))      pi/2 (/ pi 2)       )       (setq a (1+ (fix (/ (angle p0 p1) pi/2)))      b (1+ (fix (/ (angle p0 p2) pi/2)))       )       (if (= a b) (princ (strcat (itoa a) "象限")) (princ (strcat (itoa a) "~" (itoa b) "象限"))       )     )   )(princ) )

cnks

很简单的问题楼主都不愿动手，如今的人。。。

mccad

是应该批评一下。

在明经将近1年半的时间都没有多少进步，哪位老板这么难为我们的BMW。

狂刀lxx

你们老板要不是很有耐心就是很喜欢你。要不他/她怎么受得了哦