[求助]谁给推荐几个简明的while函数的用法

ygrzz · 发表于 2007-1-31 02:21:00

(defun c:w (/ pt1 pt2)
    (while (setq pt1 (getpoint "\n 指定起点："))
        (setq pt2 (getpoint pt1 "\n 指定下一点："))
        (command "_.line" pt1 pt2 "")
    )
    (princ)
)
还是有不理想的地方，在输入PT1后得2次右键才能退出
怎么样在PT1后也能一次结束或退出呢

ygrzz · 发表于 2007-1-31 03:01:00

改成这样好象符合要求了，重复2点线
(defun c:w (/ pt1 pt2)
    (setq pt1 (getpoint "\n 指定起点："))
    (while (setq pt2 (getpoint pt1 "\n 指定下一点："))
        (command "_.line" pt1 pt2 "")
        (setq pt1 (getpoint "\n 指定起点："))
    )
    (princ)
)
随时一次右键退出
画圆在输入圆心后得2次退出呀，怎么改？

ygrzz · 发表于 2007-1-31 03:17:00

，又一想，画圆右键有默认上次半径的作用和右键退出冲突肯定不能改
无痕已经改的很好了，再改就画蛇添足了

phoenixdjq · 发表于 2007-1-31 17:31:00

multiple命令可以重复使用同一个命令

这个是cad的命令

你看看吧

也许对以后的程序有用

ygrzz · 发表于 2007-1-31 18:48:00

是的，在菜单命令宏前加*号如*^C^C_LINE
也能实现重复命令，缺点退出命令必须用ESC
不能右键中断的话实际操作总有不爽

NetBee · 发表于 2007-2-1 16:51:00

本帖最后由作者于 2007-2-1 17:01:08 编辑

可以在选择其他参数选择后回到提示输入行。
如：

(while(progn
(initget "S")
(setq dist1(getreal "\n请输入距离[设置(S)]<退出>"))
(cond ((not Dist1) nil);_若直接回车，则退出循环。
((= Dist1 "S") (fun_set)T);_进入设置函数
(T (fun_do)T);_距离值,进入正常处理函数，若只希望运行一次则：(T (fun_do)nil)
)
)
;;这里的循环体是空的。
)

killer9806 · 发表于 2007-2-1 19:32:00

通过上几个例子，让我对PAUSE有了一定的认识。

谢了

ygrzz · 发表于 2007-2-1 19:35:00

暂停以让用户输入一个实数并返回该实数

(getreal [msg]) 

getreal能接受字母S吗，等下去测试下
cond带3联语句？   ((= Dist1 "S")
		(fun_set)T)

ygrzz · 发表于 2007-2-2 00:25:00

假如已经指定4个点批p1 p2 p3 p4
要求以这4个点为圆心画4个圆，能用while来循环吗

Andyhon · 发表于 2007-2-2 10:34:00

ygrzz发表于2007-2-2 0:25:00假如已经指定4个点批p1 p2 p3 p4要求以这4个点为圆心画4个圆，能用while来循环吗

可以 ... 但用Foreach要简洁些....

(setq lst (list p1 p2 p3 p4))
(foreach pt lst
Do .....
)
(while (setq pt (car lst))
   Do .....
   (setq lst (cdr lst))
)

(setq n 0)
(while (setq pt (nth n lst))
   Do .....
   (setq n (1+ n))
)

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