请问如何比较两个点的 X Y 坐标值的大小？

669423907

请教一个问题：请问如何比较两个点的 X Y 坐标值的大小？
(defun c:13()
(command "UCS" (setq p1(getpoint"\n请指定一点:")) "")
(setq p2 (getpoint p1"\n请指定二点:"))
如何判断 p2的坐标值的X值大于p1的坐标值的X值，p2的坐标值的Y值大于p1的坐标值的Y值
(princ))

言戲無軍

2. [code=lisp](defun c:test()
   
3. (command "UCS" (setq p1(getpoint"\n请指定一点:")) "")
   
4. (setq p2 (getpoint p1"\n请指定二点:"))
   
5. 如何判断 p2的坐标值的X值大于p1的坐标值的X值，p2的坐标值的Y值大于p1的坐标值的Y值
   
6. (if (> (car p2) (car p1))
   
7.     (prompt "\n X:点2 > 点1\n")
   
8.     (prompt "\nX:点2 <= 点1\n")
   
9. )
   
10. (if (> (cadr p2) (cadr p1))
    
11.     (prompt " Y:点2 > 点1\n")
    
12.     (prompt "Y:点2 <= 点1\n")
    
13. )
    
14. 
    
15. (princ))

[code=lisp](defun c:test()<br /> (command "UCS" (setq p1(getpoint"\n请指定一点:")) "")<br /> (setq p2 (getpoint p1"\n请指定二点:"))<br /> 如何判断 p2的坐标值的X值大于p1的坐标值的X值，p2的坐标值的Y值大于p1的坐标值的Y值<br /> (if (> (car p2) (car p1))<br />     (prompt "\n X:点2 > 点1\n")<br />     (prompt "\nX:点2 <= 点1\n")<br /> )<br /> (if (> (cadr p2) (cadr p1))<br />     (prompt " Y:点2 > 点1\n")<br />     (prompt "Y:点2 <= 点1\n")<br /> )<br /> <br /> (princ))

[/code]

669423907

言戲無軍 发表于 2018-6-19 19:59
[/code]

谢谢大师言戲無軍