没事来个小改造--选对象时右键或空格选取上一次对象(已修改好)

ysq101 · 发表于 2013-7-21 10:56:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 ysq101 于 2013-7-22 14:41 编辑

[code=lisp]------------移动小改造----------
(defun c:rd ( / L1 L2 ss )
(setvar "cmdecho" 0)
(SETQ SS (SSGET))
(setq L2 12)
(if (= L1 L2)
(setq L1 (car(grread 2)))
(command "move" "p" "")
)
自己研究了一下改好了。。。。。源码修改好了)

Lisphk · 发表于 2013-7-21 12:25:24

那你就判断下返回值，如果是NIL，就结束程序了。

ysq101 · 发表于 2013-7-21 15:21:14

Lisphk 发表于 2013-7-21 12:25
那你就判断下返回值，如果是NIL，就结束程序了。

谢谢你的热心回答。。我自己修改好了

Free-Lancer · 发表于 2013-7-22 08:30:50

改好了和大家分享分享来自: Android客户端

ysq101 · 发表于 2013-7-22 13:10:43

Free-Lancer 发表于 2013-7-22 08:30
改好了和大家分享分享

已经修改好了~~~~

Free-Lancer · 发表于 2013-7-22 13:37:38

ysq101 发表于 26 分钟前

 登录/注册后可看大图

已经修改好了~~~~

没看到啊？来自: Android客户端

/db_自贡黄明儒_ · 发表于 2013-7-23 12:08:27

可不可以这样?
(if (SETQ SS (SSGET)) nil (setq ss (command "_.select" "P")))

ysq101 · 发表于 2013-7-23 22:56:18

/db_自贡黄明儒_ 发表于 2013-7-23 12:08
可不可以这样?
(if (SETQ SS (SSGET)) nil (setq ss (command "_.select" "P")))

我还没试过呢.试试吧

ysq101 · 发表于 2013-7-23 23:02:50

/db_自贡黄明儒_ 发表于 2013-7-23 12:08
可不可以这样?
(if (SETQ SS (SSGET)) nil (setq ss (command "_.select" "P")))

(command "_.select" "P")这段返回值为NIL

吴外安放 · 发表于 2020-7-26 19:06:47

谢谢版主分享

账号		自动登录	找回密码
密码			立即注册

[每日一码] 没事来个小改造--选对象时右键或空格选取上一次对象(已修改好)

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评