反应器监视系统变量pickfirst，夹点显示实体时候自动后续处理

Lisphk

1. (defun WF_K (reactor-object parameter-list)
   
2.   (princ (car parameter-list))
   
3.   (princ "\n")
   
4.   (if (= (car parameter-list) "PICKFIRST")
   
5.     (progn
   
6.       (princ
   
7.         (strcat        "\n系统变量pickfirst已经变化。新值为:"
   
8.                 (itoa (getvar (eval (read (car parameter-list)))))
   
9.         )
   
10.       )
    
11.     )
    
12.   )
    
13.   (princ)
    
14. )
    
15. (defun wf_k (reactor-object commandinfo)
    
16.   (if (= 'PICKSET (type (setq ss (cadr (ssgetfirst)))))
    
17.     (progn
    
18.       (princ (strcat "\n亮显了 " (itoa (sslength ss)) " 个实体."))
    
19.     )
    
20.   )
    
21. )
    
22. (vlr-miscellaneous-reactor
    
23.   "pickfirst modified"
    
24.   '((:vlr-pickfirstmodified . wf_k))
    
25. )
    

(defun WF_K (reactor-object parameter-list)<br />   (princ (car parameter-list))<br />   (princ "\n")<br />   (if (= (car parameter-list) "PICKFIRST")<br />     (progn<br />       (princ<br />         (strcat        "\n系统变量pickfirst已经变化。新值为:"<br />                 (itoa (getvar (eval (read (car parameter-list)))))<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> (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 />

sicky111

沙发。支持楼主。

liunian0524

感谢楼主分享

kqqt6236

谢谢分享！

satan421

最近正在学习，感谢楼主！