本帖最后由 尒樣僮 于 2018-2-17 15:29 编辑
为什么我设置的局部变量没有用 变量里一直都有值 每次都只有在程序最后每个变量赋NIL
哪位给告诉我下,怎么设置全局和局部变量,谢谢……
 - (defun c:oo (/ ss s1 s2)
- (setq osmode_bak (getvar "osmode"))
- (setvar "osmode" 0)
- (princ "\n请选取要偏移的直线:")
- (setq ss (ssget ))
- (if (not ss)
- (progn (princ "\n提示:未选中直线,程序退出!\n")
- (setvar "osmode" osmode_bak)
- (exit)
- )
- )
- (if (= 1 (sslength ss))
- (progn
- (setq s1 nil)
- (setq s2 nil)
- (setq s3 nil)
- (setq s1 (ssname ss 0))
- (setq s2 (getpoint ))
- (setvar "osmode" osmode_bak)
- (command "OFFSET" "100" s1 s2 "")
- (command "OFFSET" "750" s1 s2 "")
- (command "OFFSET" "800" s1 s2 "")
- (command "OFFSET" "1500" s1 s2 "")
- (command "OFFSET" "2200" s1 s2 "")
- )
- )
- (setvar "osmode" osmode_bak)
- )
|