[求助]：如何获得当前活动对象？

yy5heng

在lisp或vlisp中如何获得当前活动对象？
比如：先选择一个对象，如何让lisp能操作这个对象？注意，不是先执行命令后选择对象，而是先选择对象后执行命令，cad本身是支持这样操作的，但是如何用lisp实现？？

highflybird

用ssgetfirst
例如下面的例子，先选择，然后执行

2. 
   
3. (defun C:test ()
   
4.   (setq ss (cadr (ssgetfirst)))
   
5.   (setq i 0)
   
6.   (repeat  (sslength ss)
   
7.     (setq ent (ssname ss i))
   
8.     (setq obj (vlax-ename->vla-object ent))
   
9.     (vla-put-color obj 256)
   
10.     (setq i (1+ i))
    
11.   )  
    
12.   (princ)
    
13. )
    

<br /> (defun C:test ()<br />   (setq ss (cadr (ssgetfirst)))<br />   (setq i 0)<br />   (repeat  (sslength ss)<br />     (setq ent (ssname ss i))<br />     (setq obj (vlax-ename->vla-object ent))<br />     (vla-put-color obj 256)<br />     (setq i (1+ i))<br />   )  <br />   (princ)<br /> )<br />

zml84

你的意思是问如何获取当前已经被选择（高亮显示）的对象？

2. 
   
3. (defun C:TT (/ SS)
   
4. 
   
5.     (if        (setq SS (cadr (ssgetfirst)))
   
6. 
   
7.         (princ (strcat "\n选择了 " (itoa (sslength SS)) " 个对象。"))
   
8. 
   
9.         (if (setq SS (ssget))
   
10.             (princ (strcat "\n选择了 " (itoa (sslength SS)) " 个对象。" ))
    
11.             (princ "\n你没有选择到对象。")
    
12.         )
    
13.     )
    
14. 
    
15.     (princ)
    
16. )
    

<br /> (defun C:TT (/ SS)<br /> <br />     (if        (setq SS (cadr (ssgetfirst)))<br /> <br />         (princ (strcat "\n选择了 " (itoa (sslength SS)) " 个对象。"))<br /> <br />         (if (setq SS (ssget))<br />             (princ (strcat "\n选择了 " (itoa (sslength SS)) " 个对象。" ))<br />             (princ "\n你没有选择到对象。")<br />         )<br />     )<br /> <br />     (princ)<br /> )<br />

yy5heng

很是感谢……高手回答就是好，关键是能一下子回答到点子上！
另问：鼠标双击反应器的原理是不是就是跟这个有关？比如，我想做个工具，对文本双击即可弹出相应编辑窗口，回调函数关键是要能对选择的对象进行判断编辑而已（很容易实现），而鼠标双击文本后，必然有文本被选中，回调函数针对选中的文本进行操作，此文本按楼上的方法应该可以获得吧。
（此工具主要用于cad14和cad2K，以后的版本自带双击编辑功能。）