请marting老师帮我看看，vlr-miscellaneous-reactor函数这样写错在哪里了

wdmzslw

Marting老师您好，我想写一个点击图元就显示其信息的反应器函数，但老是出错，请您帮我看看，我这里只能手机上网，麻烦您了

wdmzslw

这张清楚一些

qqqincccken

謝謝提供學習學習學習

st788796

回调函数这样

2. 
   
3. (defun callback        (obj lst / ss e l)
   
4.   (if (and (not (null (cadr (ssgetfirst))))
   
5.            (setq ss (cadr (ssgetfirst)))
   
6.            (= (sslength ss) 1)
   
7.            (wcmatch (cdr (assoc 0 (entget (setq e (ssname ss 0)))))
   
8.                     "*LINE,ARC,CIRCLE,ELLIPSE"
   
9.            )
   
10.       )
    
11.     (progn
    
12.       (setq l (vlax-curve-getdistatparam e (vlax-curve-getendparam e)))
    
13.       (alert (strcat "Length = " (rtos l 2 3)))
    
14.     )
    
15.   )
    
16. )

<br /> (defun callback        (obj lst / ss e l)<br />   (if (and (not (null (cadr (ssgetfirst))))<br />            (setq ss (cadr (ssgetfirst)))<br />            (= (sslength ss) 1)<br />            (wcmatch (cdr (assoc 0 (entget (setq e (ssname ss 0)))))<br />                     "*LINE,ARC,CIRCLE,ELLIPSE"<br />            )<br />       )<br />     (progn<br />       (setq l (vlax-curve-getdistatparam e (vlax-curve-getendparam e)))<br />       (alert (strcat "Length = " (rtos l 2 3)))<br />     )<br />   )<br /> )

wdmzslw

太感谢您了，非常好用。就是有一个问题，这个回调函数执行完，一次回调了14个结果，是怎么回事？