[求助]：大家好,抽空编写了个关于自动得到尺寸的LISP程序,但里面有错误,请大家指教

水炮眼大侠

2. (defun c:bb1(/ mydoc myhndl myobj llpoint urpoint)
   
3.   (setq s1(ssget "c"))
   
4.    (setq n 0)
   
5.   (repeat (sslength s1)
   
6.   (vl-load-com)
   
7.   (setq mydoc(vla-get-activedocument (vlax-get-acad-object)))
   
8.   (setq e(ssname s1 n)
   
9.   (setq ppp(entget e))
   
10.   (setq myname(cdr (assoc 8 ppp)))
    
11.   (setq myhndl(cdr (assoc 5 ppp)))
    
12.   
    
13.   (setq myobj(vla-handletoobject mydoc myhndl))
    
14.   (setq err(vl-catch-all-apply 'vla-getboundingbox (list myobj 'llpoint 'urpoint)))
    
15.   (if (vl-catch-all-error-p err)
    
16.      (princ "\n所选图元不能建立包容方框，程序将退出!")
    
17.      (progn
    
18.      (setq a1(vlax-safearray->list llpoint))
    
19.       (setq a2(vlax-safearray->list urpoint))
    
20.       (setq b1(car a1))
    
21.       (setq b2(car a2))
    
22.       (setq b3(abs(- b1 b2)))
    
23.       (setq c1(cadr a1))
    
24.       (setq c2(cadr a2))
    
25.       (setq c3(abs(- c1 c2)))
    
26.       (setq d1(caddr a1))
    
27.       (setq d2(caddr a2))
    
28.       (setq d3(abs(- d1 d2)))
    
29. 
    
30.       (princ myname)
    
31.       (princ "的尺寸为: 长: ")
    
32.       
    
33.       (princ b3)
    
34.       (princ " 宽: ")
    
35.       (princ c3)
    
36.       (princ " 高: ")
    
37.       (princ d3)
    
38.      )
    
39.    )

(defun c:bb1(/ mydoc myhndl myobj llpoint urpoint)<br />   (setq s1(ssget "c"))<br />    (setq n 0)<br />   (repeat (sslength s1)<br />   (vl-load-com)<br />   (setq mydoc(vla-get-activedocument (vlax-get-acad-object)))<br />   (setq e(ssname s1 n)<br />   (setq ppp(entget e))<br />   (setq myname(cdr (assoc 8 ppp))) <br />   (setq myhndl(cdr (assoc 5 ppp)))<br />   <br />   (setq myobj(vla-handletoobject mydoc myhndl))<br />   (setq err(vl-catch-all-apply 'vla-getboundingbox (list myobj 'llpoint 'urpoint)))<br />   (if (vl-catch-all-error-p err)<br />      (princ "\n所选图元不能建立包容方框，程序将退出!")<br />      (progn<br />      (setq a1(vlax-safearray->list llpoint))<br />       (setq a2(vlax-safearray->list urpoint))<br />       (setq b1(car a1))<br />       (setq b2(car a2))<br />       (setq b3(abs(- b1 b2)))<br />       (setq c1(cadr a1))<br />       (setq c2(cadr a2))<br />       (setq c3(abs(- c1 c2)))<br />       (setq d1(caddr a1))<br />       (setq d2(caddr a2))<br />       (setq d3(abs(- d1 d2)))<br /> <br />       (princ myname)<br />       (princ "的尺寸为: 长: ")<br />       <br />       (princ b3)<br />       (princ " 宽: ")<br />       (princ c3)<br />       (princ " 高: ")<br />       (princ d3)<br />      )<br />    )