[求助]这个时候怎么选择对象

xiaoquansb

(vl-load-com)
;创建反应器Auto_Show_reactor

(if Auto_Show_reactor (vlr-remove Auto_Show_reactor))       
(setq Auto_Show_reactor (vlr-miscellaneous-reactor  nil '((:vlr-pickfirstModified . Auto_Show))))

;创建命令响应时的回调函数
(defun Auto_Show (calling-reactor reactorInfo )

(setq ss (ssget "p"))
(princ "\n")
(princ (sslength ss))
(princ "\n")
(princ (ssname ss 0))

);end defun

 

在写一个反映器，在不执行命令的情况下，选择对象，便能显示相关的信息，可以却没能选到当前选择的对象

请大虾指点一下

虬髯客

这个相当简单，更改选择集的参数，帮你改进下程序可以更直观一点

(vl-load-com)
(if Auto_Show_reactor (vlr-remove Auto_Show_reactor))      
(setq Auto_Show_reactor (vlr-miscellaneous-reactor  nil '((:vlr-pickfirstModified . Auto_Show))))
(defun Auto_Show(calling-reactor reactorInfo)
(setq ss (ssget "i"))
(print (sslength ss))
(print (assoc 0(entget(ssname ss 0)))))
(princ)
)

xiaoquansb

哈，原来是这样，谢谢虬髯客