[LISP函数]：求助如何正确结束循环命令和设定关启捕捉？

zheng209

为了移偏方便试编了如下程序
(defun C:vvv()   ;由下至上偏移
(setq pt1 (getpoint "\n 指定第一点:"))
(setq pt2 (getpoint "\n 指定第二点:"))
(setq l2 0)
(setq l1 (getint "\n 指定下一个偏移距离:"))
(setq loop T)
(while loop
(setq l2 (+ l1 l2))
(command "line" (polar pt1 ( / pi 2 ) l2 ) (polar pt2 ( / pi 2 ) l2 ) "")
(setq l1 (getint "\n 指定偏移距离:"))
(if ( = l1 * )
(setq loop nil)
);if
);while
);defun C:sss

问题一在
(if ( = l1 * ) 这句中不知怎样设才能正确返回一个值可以结束命令的？
问题二，
使用上程序时如果偏移距离过小时,受捕捉的影响无法正确偏移，请各位指教如何解决？

netbee

关于判断你可以用零来作退出的标志
(= l1 0)因为若偏移距离为0的话是没有意义的。

2. 
   
3. (setq l1 (getint "\n 指定偏移距离（退出请输入0）:"))
   
4. (if ( = l1 0)
   
5.     (setq loop nil)
   
6. );if
   

<br /> (setq l1 (getint "\n 指定偏移距离（退出请输入0）:"))<br /> (if ( = l1 0) <br />     (setq loop nil)<br /> );if<br />

其它退出循环的方式有很多。
多读其他网友的程序
-----------------------------------------------

2. 
   
3. ;;关闭捕捉
   
4. (setq osmode_old (getvar "osmode"))
   
5. (setvar "osmode" 0)
   
6. 
   
7. ;;你的程序代码
   
8. 
   
9. ;;恢复捕捉方式
   
10. (setvar "osmode" osmode_old)
    

<br /> ;;关闭捕捉<br /> (setq osmode_old (getvar "osmode"))<br /> (setvar "osmode" 0)<br /> <br /> ;;你的程序代码<br /> <br /> ;;恢复捕捉方式<br /> (setvar "osmode" osmode_old)<br />

zheng209

非常感谢你的指教，请问哪里能找到关于类似于捕足， 偏移， 这些CAD修改命令的函数调用方法的资料。

blackspot

你指的应是系统变量，不通过命令形式而在程序中直接改变、储存、恢复的变量，参看Autocad帮助中command reference（命令参考）中的system variables（系统变量）一节

zhanzujie

在这里有一个问题,系统变量"osmode"大于零时,对象捕捉不一定是开的,也有可能是关的

cy956

osmode

类型： 整型
保存方式： 图形
初始值： 0
本系统变量通过以下位码控制对象捕捉模式。

0        NON（无）
1        END（端点）
2        MID（中点）
4        CEN（圆心）
8        NOD（节点）
16        QUA（象限点）
32        INT（交点）
64        INS（插入点）
128        PER（垂足）
256        TAN（切点）
512        NEA（最近点）
1024        QUI（快速）
2048        APP（外观交点）
要指定多个对象捕捉方式，可以输入它们值的和。例如，输入 3 指定“端点”（位码 1）和“中点”（位码 2）对象捕捉。输入 4095 指定全部对象捕捉方式。
当使用状态行上的“对象捕捉”按钮关闭了对象捕捉模式时，除了返回 OSMODE 的普通值外，还将返回位码 16384 (0x4000)。这个附加值可以帮助开发人员在为 AutoCAD 编写应用程序时，将此模式与通过“对象捕捉设置”关闭的对象捕捉模式区别开。