关于CAD恢复上次选择对象的LISP

sinommw

大家都知道，CAD在绘图时，比如我要移动，先输入M，再输入P，会恢复上次选择对象，但是P在右手边，有点不方便，想改为其它键，比如改为“T”或者“B”之类的，该怎么改呢？网上搜了很久都没找到方法，有哪位大哥能帮我写个LISP，先在此谢谢了！

ㄘ丶转裑ㄧ灬

因为我习惯先选择图元再输入命令，所以下面两个程序在先输入命令的情况下就是上一选择集了；
几年来几乎没用过默认的复制和移动了，反而在其他人的机器上用默认的很不习惯。

1. ;;;;;;********当前或上一选择集的移动及复制
   
2. (defun c:a ()
   
3. (command "Ortho" "on")
   
4.   (setq ss (ssget "i"));;;;将已选中的实体加入选择集
   
5.   (if (= ss nil)
   
6.   (command ".move" "previous" "");;;;如果选择集为空，则执行移动上一选择集命令
   
7.   (command ".move");;;;如果选择集不为空，则执行正常移动命令
   
8.   )
   
9.   (princ)
   
10. )
    
11. (defun c:c ()
    
12. (command "Ortho" "on")
    
13.   (setq ss (ssget "i"));;;;将已选中的实体加入选择集
    
14.   (if (= ss nil)
    
15.   (command ".copy" "previous" "" "m");;;;如果选择集为空，则执行复制上一选择集命令
    
16.   (command ".copy" "m");;;;如果选择集不为空，则执行正常复制命令
    
17.   )
    
18.   (princ)
    
19. )

;;;;;;********当前或上一选择集的移动及复制<br /> (defun c:a ()<br /> (command "Ortho" "on")<br />   (setq ss (ssget "i"));;;;将已选中的实体加入选择集<br />   (if (= ss nil)<br />   (command ".move" "previous" "");;;;如果选择集为空，则执行移动上一选择集命令<br />   (command ".move");;;;如果选择集不为空，则执行正常移动命令<br />   )<br />   (princ)<br /> )<br /> (defun c:c ()<br /> (command "Ortho" "on")<br />   (setq ss (ssget "i"));;;;将已选中的实体加入选择集<br />   (if (= ss nil)<br />   (command ".copy" "previous" "" "m");;;;如果选择集为空，则执行复制上一选择集命令<br />   (command ".copy" "m");;;;如果选择集不为空，则执行正常复制命令<br />   )<br />   (princ)<br /> )

另外还有一个单独的恢复上一选择集：

1. ;;;****************选中上一选择集（布局空间不起作用）（快捷键为30是因为我把F1映射为0了）
   
2. (defun C:30( / ss)
   
3. (if (setq ss (ssget "_P"))
   
4. (sssetfirst nil ss)
   
5. )
   
6. (princ)
   
7. )

;;;****************选中上一选择集（布局空间不起作用）（快捷键为30是因为我把F1映射为0了）<br /> (defun C:30( / ss)<br /> (if (setq ss (ssget "_P"))<br /> (sssetfirst nil ss)<br /> )<br /> (princ)<br /> )

石井鱼

ㄘ丶转裑ㄧ灬 发表于 2013-10-31 15:55
因为我习惯先选择图元再输入命令，所以下面两个程序在先输入命令的情况下就是上一选择集了；
几年来几乎没 ...

很好用，感谢

xiongqunan

这点影晌也不是很大吧！！！

smartstar

我的方法：
(DEFUN C:STRETCH-p        ()
  (setvar "cmdecho" 0)
  (command "STRETCH" "p")
  (princ)
)
(DEFUN C:move-p()
  (setvar "cmdecho" 0)
  (command "move" "p")
  (princ)
)
……

自贡黄明儒

P是前一次的英文开头，好记。

llsheng_73

楼主的意思是那个p所在位置不方便左手按它，你们给人家说不影响
解决楼主的问题有两个办法，一个最笨也最有效的办法是改键盘的排线，让P和T或者B或者别的哪个键交换，当然这不容易实现
那么是不是可以写个最简单的程序自己先对输入进行处理后去调用MOVE命令？

[/code]

1. (defun c:MOVE1()
   
2.   (INITGET "T B S")
   
3.   (if(MEMBER(GETKWORD"TorB上一次S重新选择:")'("T" "B"))
   
4.     (if(ssget"") (command"MOVE""") (command"MOVE"))
   
5.     (command"MOVE")
   
6.     )
   
7.   )
   
8. 
   
9. (defun c:MOVE2()
   
10.   (if (/=""(GETSTRING"任意输入上一次空输入重新选择:"))
    
11.      (if(ssget"") (command"MOVE""") (command"MOVE"))
    
12.     (command"MOVE")
    
13.    )
    
14.   )

(defun c:MOVE1()<br />   (INITGET "T B S")<br />   (if(MEMBER(GETKWORD"TorB上一次S重新选择:")'("T" "B"))<br />     (if(ssget"<img src="static/image/smiley/default/titter.gif" smilieid="9" border="0" alt="" />") (command"MOVE""<img src="static/image/smiley/default/titter.gif" smilieid="9" border="0" alt="" />") (command"MOVE"))<br />     (command"MOVE")<br />     )<br />   )<br /> <br /> (defun c:MOVE2()<br />   (if (/=""(GETSTRING"任意输入上一次空输入重新选择:"))<br />      (if(ssget"<img src="static/image/smiley/default/titter.gif" smilieid="9" border="0" alt="" />") (command"MOVE""<img src="static/image/smiley/default/titter.gif" smilieid="9" border="0" alt="" />") (command"MOVE"))<br />     (command"MOVE")<br />    )<br />   )

ysq101

llsheng_73 发表于 2013-10-29 09:55
楼主的意思是那个p所在位置不方便左手按它，你们给人家说不影响
解决楼主的问题有两个办法，一个最笨 ...

楼上的太有才了。。。。。竟然想着改键盘排线。。。太不理实了吧。。
这么简单的问题ＬＩＳＰ都解决不了，，那ＬＩＳＰ就没用了

llsheng_73

不改排线，不过好象有软件可以改键盘的说

sinommw

smartstar 发表于 2013-10-29 08:26
我的方法：
(DEFUN C:STRETCH-p        ()
  (setvar "cmdecho" 0)

朋友你好，首先感谢你耐心的解答。
你的方法我试过了，我输入M,然后输入P，CAD显示：没有上一个选择集，也不知道是哪里的问题。
我的想法就是在输入M之后，不用输入P，比如输入N，T之类的字母来代替。当然，用移花接木可以搞定，但是相当于是更改了键盘。

sinommw

llsheng_73 发表于 2013-10-29 09:55
楼主的意思是那个p所在位置不方便左手按它，你们给人家说不影响
解决楼主的问题有两个办法，一个最笨 ...

朋友你这个思路不错，但好像还是不行，我是这么操作的：
我首先输入MOVE1,然后输出T
选择对象: P 没有上一个选择集。
选择对象: nil
目前知道用组合键可以搞定_PREVIOUS，比如我在CUI里改为CTRL+T，在任何时候都能调用上一次选择对象。而我的目的就是相当于用单个字母来代替这个组合键。从使用习惯来看，再输完M命令后，左手并不便于切换到组合键，故在此求助各位朋友。

logoin

这个要修改acad.exe