friendship12c 发表于 2014-5-7 16:57:06

求自定义编组开关快捷键

本帖最后由 friendship12c 于 2014-5-8 15:46 编辑

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

htxhtx 发表于 2020-3-20 12:52:34

谢谢分享，关注中！

ll_j 发表于 2014-5-7 17:23:39

编组选择开关：
(defun c:gg()
(if (= (getvar "pickstyle") 0)
    (setvar "pickstyle" 1)
    (setvar "pickstyle" 0)
)
)

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

本帖最后由 llsheng_73 于 2014-5-7 19:39 编辑

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

friendship12c 发表于 2014-5-7 19:26:07

ll_j 发表于 2014-5-7 17:23 static/image/common/back.gif
编组选择开关：

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

friendship12c 发表于 2014-5-7 19:27:57

llsheng_73 发表于 2014-5-7 19:14 static/image/common/back.gif


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

xyp1964 发表于 2014-5-7 19:28:38

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

llsheng_73 发表于 2014-5-7 19:42:49

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

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

friendship12c 发表于 2014-5-7 19:44:22

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

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

friendship12c 发表于 2014-5-7 19:49:32

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

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

llsheng_73 发表于 2014-5-7 19:52:16

xyp1964 发表于 2014-5-7 19:28 static/image/common/back.gif
(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)))
页: [1] 2 3
查看完整版本: 求自定义编组开关快捷键