[讨论]：PICKFIRST与SSGET

LADESIGNER

一、先选择再运行的实现:
(if (null(setq ss (ssget "i")))(setq ss(ssget))) ......
二、帮助的内容
1、(ssget "I")        创建一个选择集，该选择集由隐含选择集中的对象（PICKFIRST 生效时所选择的那些对象）组成。
2、PICKFIRST
类型： 整型
保存方式： 注册表
初始值： 1
本系统变量控制是在输入命令之前（先选择后执行）还是输入命令之后选择对象。
0        关闭 PICKFIRST
1        打开 PICKFIRST
三、测试
(DEFUN C:test1()
  (prompt "\nPICKFIRST系统变量当前的值为:")(princ (getvar "pickfirst"))
  (prompt "\n设置PICKFIRST的值为")(princ (setvar "pickfirst" 1))
  (if(null (ssget "i" ))
    (prompt "\n先选择后运行无效!")
    (prompt "\n先选择后运行有效!")
    )
  (princ)
  )

测试结果：
选择图中任意物体之后：
Command: test1
PICKFIRST系统变量当前的值为:1
设置PICKFIRST的值为1
先选择后运行无效!

(DEFUN C:test2()
  (prompt "\nPICKFIRST系统变量当前的值为:")(princ (getvar "pickfirst"))
  (if (equal (getvar "pickfirst") 0)   
  (progn(prompt "\n改变PICKFIRST的值为")(princ (setvar "pickfirst" 1)))
    (prompt "\n未改变PICKFIRST的值")
    )
  (if(null (ssget "i" ))
    (prompt "\n先选择后运行无效!")
    (prompt "\n先选择后运行有效!")
    )
  (princ)
  )

测试结果：
选择图中任意物体之后：
Command: test2
PICKFIRST系统变量当前的值为:1
未改变PICKFIRST的值
先选择后运行有效!
四、结论：无论PICKFIRST变量原来的值是不是1，只要给它赋值，这次操作以前的(ssget "i" )均为NIL。
推荐用：
(if (equal (getvar "pickfirst") 0)
  (setvar "pickfirst" 1))       
如果第一次不行，第二次就可以了。