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

hhh454

我的方法

2. (setq ss (ssget "p"))
   
3. (command "move" ss)

(setq ss (ssget "p"))<br /> (command "move" ss)

是先正常选择一次物体，然后用lisp写一个代码就可以实现了

鸟_志

跟大家学习了

鱼与熊掌

2. ;选择上次选择
   
3. (defun c:q()
   
4.         (sssetfirst nil(ssget "p"))
   
5. )

;选择上次选择<br /> (defun c:q()<br />         (sssetfirst nil(ssget "p"))<br /> )

石井鱼

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

很好用，感谢

7liu76

(defun C:T ()
        (setq ss (ssget "p"))
        (sssetfirst nil ss)
)