求自定义编组开关快捷键

friendship12c

请高手写一个简单的lsp，基本功能：GC可以打开编组，再次GC关闭编组，感觉系统的命令shift+ ctrl + A不太方便，类似GC=ctrl+H的效果，非常感谢

htxhtx

谢谢分享，关注中！

ll_j

编组选择开关：

1. (defun c:gg()
   
2.   (if (= (getvar "pickstyle") 0)
   
3.     (setvar "pickstyle" 1)
   
4.     (setvar "pickstyle" 0)
   
5.   )
   
6. )

(defun c:gg()<br />   (if (= (getvar "pickstyle") 0)<br />     (setvar "pickstyle" 1)<br />     (setvar "pickstyle" 0)<br />   )<br /> )

llsheng_73

1. (defun c:bzgl()
   
2. (nth(setvar "pickstyle"(rem(1+(getvar "pickstyle"))4))'("编组和关联已关闭""使用编组""使用关联""使用编组和关联")))
   
3. (defun c:GC()
   
4. (nth(setvar "pickstyle"(rem(1+(getvar "pickstyle"))2))'("编组和关联已关闭""使用编组")))

(defun c:bzgl()<br /> (nth(setvar "pickstyle"(rem(1+(getvar "pickstyle"))4))'("编组和关联已关闭""使用编组""使用关联""使用编组和关联")))<br /> (defun c:GC()<br /> (nth(setvar "pickstyle"(rem(1+(getvar "pickstyle"))2))'("编组和关联已关闭""使用编组")))

friendship12c

ll_j 发表于 2014-5-7 17:23
编组选择开关：

首先谢谢啊，不知道为什么我的电脑上测试没有实现，你的可以实现吗？我的电脑天正8.5加CAD2012

friendship12c

llsheng_73 发表于 2014-5-7 19:14

首先谢谢啊，加载测试后没有实现啊，请问你那里测试成功了吗？能否把程序添加一下，在块炸开后块自动编组，谢谢啊

xyp1964

(defun c:GC (/ a)(setq a 'PICKSTYLE)(if (= (getvar a) 0)(setvar a 1)(setvar a 0)))

llsheng_73

friendship12c 发表于 2014-5-7 19:27
首先谢谢啊，加载测试后没有实现啊，请问你那里测试成功了吗？能否把程序添加一下，在块炸开后块自动编组 ...

你是说命令行没出现<编组开><编组关>，还是运行了之后去选择不是按预想的那样反应？

friendship12c

xyp1964 发表于 2014-5-7 19:28
(defun c:GC (/ a)(setq a 'PICKSTYLE)(if (= (getvar a) 0)(setvar a 1)(setvar a 0)))

谢谢版主，但是我测试无法实现，不知道是否是我电脑的问题，请问版主的测试可以实现吗？如果可以实现能否将程序添加一些，炸开块的后，原块的文件自动编组

friendship12c

llsheng_73 发表于 2014-5-7 19:42
你是说命令行没出现，还是运行了之后去选择不是按预想的那样反应？

加载输入命令后编组状态没有切换，我用系统的快捷键shift+ctrl+A可以切换，不知你测试可以用吗？如果可以用，能否再加一些程序实现块炸开后原块文件自动成组，两个程序分开也行，谢谢啊！

llsheng_73

xyp1964 发表于 2014-5-7 19:28
(defun c:GC (/ a)(setq a 'PICKSTYLE)(if (= (getvar a) 0)(setvar a 1)(setvar a 0)))

(defun c:gc(/ a)(setvar a(if(=(getvar(setq a'PICKSTYLE))0)1 0)))