我是新手，刚学lisp，问一个很菜的问题： 如果我想用快捷键“cm”代替“copy”之后的连续复制,这种lisp该怎么写呢 还有 是不是其它这种二级命令都可以用这种模式，类似编写呢？ 谢谢！！！
我是新手，刚学lisp，问一个很菜的问题：
如果我想用快捷键“cm”代替“copy”之后的连续复制,这种lisp该怎么写呢
还有 是不是其它这种二级命令都可以用这种模式，类似编写呢？
谢谢！！！
2楼
自己回答一下
因为在后面的帖子里面看到了,是我的粗心,不好意思,不过跟大家分享一下
^_^
(DEFUN C:ccc ()
(SETVAR "CMDECHO" 0)
(PRINC "please select: ")
(SETQ SS (SSGET))
(COMMAND "COPY" SS "" "M" ) (SETVAR "CMDECHO" 1) (PRINC))
在这里谢谢恋上风!!!非常感谢
回复
3楼
来个简单些的：
(defun C:CM (/ SS)
(if (setq SS (ssget))
(command "_.COPY" SS "" "M")
)
)
回复
4楼
(defun c:cm()
(command ".copy" pause "m")
)
回复
5楼
谢谢楼主了，得好好学习!
回复
