请帮我合并为一个程序,方便设置

894560869

;;;设置可选择编组对象
(defun c:GS ()
(setvar "pickbox" 23)
(setvar "PICKSTYLE" 1);设置可选择编组对象
(princ))

;;;设置不能选择编组对象
(defun c:GSS ()
(setvar "pickbox" 23)
(setvar "PICKSTYLE" 0);设置不能选择编组对象
(princ))

ZZXXQQ

;互相切换状态
(defun c:gs ()
 (setvar "PICKBOX" 23)
 (if (= (getvar"PICKSTYLE") 0)
  (setvar "PICKSTYLE" 1)
  (setvar "PICKSTYLE" 0)
 )
 (princ)
)

894560869

多谢ZZXXQQ