【已解决】怎么实时获得选择图元的属性

Lisphk

8142556 发表于 2018-2-20 09:37

1. (defun wf_k (reactor-object commandinfo)
   
2.   (princ "\nPickFirst系统变量已经修改：")
   
3.   (princ "  **\n")
   
4. )
   
5. (vlr-miscellaneous-reactor
   
6.   "pickfirst modified"
   
7.   '((:vlr-pickfirstmodified . wf_k))
   
8. )
   
9. 
   

(defun wf_k (reactor-object commandinfo)<br />   (princ "\nPickFirst系统变量已经修改：")<br />   (princ "  **\n")<br /> )<br /> (vlr-miscellaneous-reactor<br />   "pickfirst modified"<br />   '((:vlr-pickfirstmodified . wf_k))<br /> )<br /> <br />

8142556

Lisphk 发表于 2018-2-20 13:54

谢谢，这个可以。

还有个问题我想在点击或者框选的时候获得当前选择的图元，试了一些函数没成功，在WF_K函数里要用什么函数去获取

8142556

我用VLAX-FOR 遍历只能得到其中的1个图元，其他的得不到，奇怪

(setq axss (vla-get-activeselectionset   
             (vla-get-activedocument (vlax-get-acad-object))
    )
  )
(setq hhhh (vla-get-count axss))
(vlax-for x axss (print x))

Lisphk

8142556 发表于 2018-2-20 16:13

1. (defun wf_k (reactor-object commandinfo)
   
2.   (if (= 'PICKSET (type (setq ss (cadr (ssgetfirst)))))
   
3.     (progn
   
4.       (princ (strcat "\n亮显了 " (itoa (sslength ss)) " 个实体."))
   
5.     )
   
6.   )
   
7. )
   
8. (vlr-miscellaneous-reactor
   
9.   "pickfirst modified"
   
10.   '((:vlr-pickfirstmodified . wf_k))
    
11. )
    
12. 
    

(defun wf_k (reactor-object commandinfo)<br />   (if (= 'PICKSET (type (setq ss (cadr (ssgetfirst)))))<br />     (progn<br />       (princ (strcat "\n亮显了 " (itoa (sslength ss)) " 个实体."))<br />     )<br />   )<br /> )<br /> (vlr-miscellaneous-reactor<br />   "pickfirst modified"<br />   '((:vlr-pickfirstmodified . wf_k))<br /> )<br /> <br />

8142556

Lisphk 发表于 2018-2-20 17:05

干得漂亮，可以了，就是运行的时候为什么点击一下图元，打印11次

Lisphk

8142556 发表于 2018-2-20 17:21

我这里正常，点中一个，只显示一次。应该和这段代码无关，和你的系统环境或你的其他代码有关。
你换个CAD版本试试。

8142556

Lisphk 发表于 2018-2-20 17:47

噢噢，我试试