[求助]对象编组的打开和关闭？

XIAOFEILONG

对象编组的打开和关闭，可以用ctrl+shift+A来控制，但是我觉得这个组合键不太方便（不小心会按错），我想能不能用lisp去实现编组的打开和关闭。
比如说，按一下“1”键，就是打开，再按第二次“1”键，就是关闭编组。

请问，要如何实现这个功能？

caoyin

(defun c:1 (/ v)
  (if (= (logand (setq v (getvar "pickstyle")) 1) 1)
    (progn (setvar "pickstyle" (1- v)) (princ "<编组 开>"))
    (progn (setvar "pickstyle" (1+ v)) (princ "<编组 关>"))
  )
  (princ)
)

XIAOFEILONG

谢谢caoyin

highflybir

本来还有一个快捷键的Ctrl+H

XIAOFEILONG

highflybir发表于2008-8-8 13:33:00本来还有一个快捷键的Ctrl+H

手太小，按不了那么远的键

呵呵

434939575

这么精悍。简短。高手

哥很帅也很温柔

这个好用,感谢分享