[求助]：如何限制在一定范围内输入坐标?

真龙天子

我的目的是输入的坐标p1的x要大于0和小于100.请问while 后的判断表达式怎么写?
  (while  ((<= pm 0) (<= pm 100))
    (setq p1 (getpoint "\n请确定下一点：")
          pm (car p1)         
    )                                                   
  )

Underway

(while (or (<= pm 0) (>= pm 100))
(setq p1 (getpoint "\n请确定下一点：")
pm (car p1)
)
)

真龙天子

谢谢了,我是刚学习lisp,以前学basic时有or,我查lisp函数集没有发现 or,就以为or在lisp里不能用.

狂刀

屏幕缩放到x＝0~100区域，你就不会画出去了：）

真龙天子

狂刀先生说的也是一个解决的方法,但是在输入过程中为了看清图像而放大或缩小图像时就不起作用了,

yshf

(while (progn (setq p1 (getpoint "\n请确定下一点：")
                        pm (car p1)
                  )
                  (not (and (>= pm 0) (<= pm 100)))
           )
       (princ (strcat "\n所选取点P1的X坐标为：" (rtos pm)  "，不在0 ～100范围内，请重新选取P1!"))
    )
或者：
(while (progn (setq p1 (getpoint "\n请确定下一点：")
                        pm (car p1)
                  )
                  (or (< pm 0) (> pm 100))
           )
       (princ (strcat "\n所选取点P1的X坐标为：" (rtos pm)  "，不在0 ～100范围内，请重新选取P1!"))
    )

xyp1964

2. [FONT=courier new]
   
3. (defun c:test (/ p1)
   
4.   (while (= p1 nil)
   
5.     (setq p1 (getpoint "\n请确定下一点 : ")
   
6.           pm (car p1)
   
7.     )
   
8.     (if        (or (<= pm 0) (>= pm 100))
   
9.       (setq p1 nil)
   
10.     )
    
11.   )
    
12.   p1
    
13. )[/FONT]

[FONT=courier new]<br /> (defun c:test (/ p1)<br />   (while (= p1 nil)<br />     (setq p1 (getpoint "\n请确定下一点 : ")<br />           pm (car p1)<br />     )<br />     (if        (or (<= pm 0) (>= pm 100))<br />       (setq p1 nil)<br />     )<br />   )<br />   p1<br /> )[/FONT]

真龙天子

晓东里的热心人真多，我一定要好好向大家学习，争取编一个实用的程序贴上来回报大家的帮助．

狂刀

(while (not(< 0 (car (setq pt (getpoint "\n选点(x范围0~100):"))) 100)))