[求助][1205]请问关于此程序点与点判断象限方法?

xyz518mm

[求助][1205]请问关于此程序点与点判断象限方法?
请问各位高手此程序有哪些问题.
想做两点位置象限判断的程序.
(defun c:xy ()
(setq p1 (getpoint "\n point-1:"))
(setq p2 (getpoint "\n point-2:"))
(setq x1 (rtos (car p1))
(setq y1 (rtos (cadr p1))
(setq x2 (rtos (car p2))
(setq y2 (rtos (cadr p2))
(if (< x1 x2)
(if (and (< x1 x2)(< y1 y2 ))(PRINC "2-Ⅱ"))
(if (and (< x1 x2)(< y1 y2 ))(PRINC "3-Ⅲ"))
(if (and (< x1 x2)(< y1 y2 ))(PRINC "4-Ⅳ"))
(< y1 y2 ))(PRINC "1-Ⅰ")
nil )
(princ))
烦请各位高手可以帮忙解答一下
谢谢

taner

最初由 xyz518mm 发布
[B][求助][1205]请问关于此程序点与点判断象限方法?
请问各位高手此程序有哪些问题.
想做两点位置象限判断的程序.
(defun c:xy ()
(setq p1 (getpoint "\n point-1:"))
(setq p2 (getpoint "\n point-2:"))
(setq... [/B]

不太明白楼主的意思.判断象限,应该是将X,Y值与0比较啊.

xyz518mm

小弟的意思是想让两个点位置做比较判断
并回应出讯息
不知道这样解释清楚吗

xyp1964

2. [FONT=courier new]
   
3. (defun c:xy ()
   
4.   (setq        p1  (getpoint "\n point-1 : ")
   
5.         p2  (getpoint p1 "\n point-2 : ")
   
6.         ang (* (/ (angle p1 p2) pi) 180)
   
7.   )
   
8.   (cond        ((and (>= ang 0) (< ang 90)) (PRINC "1-Ⅰ"))
   
9.         ((and (>= ang 90) (< ang 180)) (PRINC "2-Ⅱ"))
   
10.         ((and (>= ang 180) (< ang 270)) (PRINC "3-Ⅲ"))
    
11.         ((and (>= ang 270) (<= ang 360)) (PRINC "4-Ⅳ"))
    
12.   )
    
13.   (princ)
    
14. )[/FONT]

[FONT=courier new]<br /> (defun c:xy ()<br />   (setq        p1  (getpoint "\n point-1 : ")<br />         p2  (getpoint p1 "\n point-2 : ")<br />         ang (* (/ (angle p1 p2) pi) 180)<br />   )<br />   (cond        ((and (>= ang 0) (< ang 90)) (PRINC "1-Ⅰ"))<br />         ((and (>= ang 90) (< ang 180)) (PRINC "2-Ⅱ"))<br />         ((and (>= ang 180) (< ang 270)) (PRINC "3-Ⅲ"))<br />         ((and (>= ang 270) (<= ang 360)) (PRINC "4-Ⅳ"))<br />   )<br />   (princ)<br /> )[/FONT]

snoopychen

：）
楼主的程序错漏甚多，希望把题目稍微讲清楚一些
是第一点为原点或是第二点
坐标象限是笛卡儿坐标或者是地球物理坐标
这样才好改一些

tctabc

最初由 xyp1964 发布
[B][CODE]
(defun c:xy ()
  (setq        p1  (getpoint "\n point-1 : ")
        p2  (getpoint p1 "\n point-2 : ")
        ang (* (/ (angle p1 p2) pi) 180)
  )
  (cond        ((and (>= ang 0) (< ang 90)) (PRIN... [/B]

请教版主用 cond 判断
跟用if判断
有何差异性?

xyp1964

最初由 tctabc 发布
[B][请教版主用 cond 判断
跟用if判断
有何差异性? [/B]

自己看看其区别：

2. [FONT=courier new](defun c:xy ()
   
3.   (setq        p1  (getpoint "\n point-1 : ")
   
4.         p2  (getpoint p1 "\n point-2 : ")
   
5.         ang (* (/ (angle p1 p2) pi) 180)
   
6.   )
   
7.   (if(and (>= ang 0) (< ang 90)) (PRINC "1-Ⅰ"))
   
8.   (if(and (>= ang 90) (< ang 180)) (PRINC "2-Ⅱ"))
   
9.   (if(and (>= ang 180) (< ang 270)) (PRINC "3-Ⅲ"))
   
10.   (if(and (>= ang 270) (<= ang 360)) (PRINC "4-Ⅳ"))
    
11.   (princ)
    
12. )[/FONT]

[FONT=courier new](defun c:xy ()<br />   (setq        p1  (getpoint "\n point-1 : ")<br />         p2  (getpoint p1 "\n point-2 : ")<br />         ang (* (/ (angle p1 p2) pi) 180)<br />   )<br />   (if(and (>= ang 0) (< ang 90)) (PRINC "1-Ⅰ"))<br />   (if(and (>= ang 90) (< ang 180)) (PRINC "2-Ⅱ"))<br />   (if(and (>= ang 180) (< ang 270)) (PRINC "3-Ⅲ"))<br />   (if(and (>= ang 270) (<= ang 360)) (PRINC "4-Ⅳ"))<br />   (princ)<br /> )[/FONT]

xyz518mm

感谢XYP版主的解答
小弟的另一方法

(defun c:xy ()
(setq p1 (getpoint "\n point-1:"))
(setq p2 (getpoint p1 "\n point-2:"))
(setq ang (* (/ (angle p1 p2) pi) 180))
(setq dd (DISTANCE p1 p2))

(setq x1 (rtos (car p1)))
(setq y1 (rtos (cadr p1)))
(setq x2 (rtos (car p2)))
(setq y2 (rtos (cadr p2)))

(if (and (< x1 x2)(< y1 y2 ))(PRINC "1-Ⅰ" ))
(if (and (> x1 x2)(< y1 y2 ))(PRINC "2-Ⅱ" ))
(if (and (> x1 x2)(> y1 y2 ))(PRINC "3-Ⅲ" ))
(if (and (< x1 x2)(< y1 y2 ))(PRINC "4-Ⅳ" ))
  (princ)
)

另请问关于 PRINC 函数可以显示数值及字串资料吗?

如:(if (and (< x1 x2)(< y1 y2 ))(PRINC "1-Ⅰ" (rtos dd 2 8 )" ,"

(angtos ang 1 4)))
但是以上是错误的
烦请各位高手可以解答一下
谢谢

aeo

2. 
   
3. (defun pt-at(pt po)
   
4. ;;po原点 pt为测试点
   
5. (fix ( / (angle po pt)(/ pi 2)))
   
6. )
   

<br /> (defun pt-at(pt po)<br /> ;;po原点 pt为测试点<br /> (fix ( / (angle po pt)(/ pi 2)))<br /> )<br />

2. 
   
3. ;;测试
   
4. (defun c:test( / po p2)
   
5. (if(setq po(getpoint "\n原点:  "))
   
6.   (while (and(setq p2(getpoint po"\n测试点: "))
   
7.                   (not(equal po p2 0.001))
   
8.            )
   
9.          (princ (strcat "\n在" (itoa(pt-at p2 po)) "象限."))
   
10.   )
    
11. )(princ)
    
12. )
    

<br /> ;;测试<br /> (defun c:test( / po p2)<br /> (if(setq po(getpoint "\n原点:  "))<br />   (while (and(setq p2(getpoint po"\n测试点: "))<br />                   (not(equal po p2 0.001))<br />            )<br />          (princ (strcat "\n在" (itoa(pt-at p2 po)) "象限."))<br />   )<br /> )(princ)<br /> )<br />

tctabc

aeo版主真是利害
可以在精简吗?
另外象限判断
可以比照上面的吗

狂刀

还能怎么精简？已经很精简了阿
习惯上是１～４象限
(defun pt-at(pt po)
;;po原点 pt为测试点
(1+(fix ( / (angle po pt)(/ pi 2))))
)