894560869 发表于 2009-7-30 09:05:00

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

<p>;;;设置可选择编组对象<br/>(defun c:GS ()<br/>(setvar "pickbox" 23)<br/>(setvar "PICKSTYLE" 1);设置可选择编组对象<br/>(princ))</p><p>;;;设置不能选择编组对象<br/>(defun c:GSS ()<br/>(setvar "pickbox" 23)<br/>(setvar "PICKSTYLE" 0);设置不能选择编组对象<br/>(princ))</p>

ZZXXQQ 发表于 2009-7-30 19:08:00

<p>;互相切换状态<br/>(defun c:gs ()<br/>&nbsp;(setvar "PICKBOX" 23)<br/>&nbsp;(if (= (getvar"PICKSTYLE") 0)<br/>&nbsp; (setvar "PICKSTYLE" 1)<br/>&nbsp; (setvar "PICKSTYLE" 0)<br/>&nbsp;)<br/>&nbsp;(princ)<br/>)<br/></p>

894560869 发表于 2009-8-3 13:50:00

多谢ZZXXQQ
页: [1]
查看完整版本: 请帮我合并为一个程序,方便设置