提示：VLAX-GET-ACAD-OBJECT 没有定义

匡匡

(defun c:kk()
(setq e (entnext));获取cad文件中的图元名称
        (setq num 0);统计一条多断线端点数
        (setq m 0);统计多段线条数
        (setq file (open "d:\\pline.txt" "w"))
        (princ "\n" file)
        (setq area 0)
(vl-load-com)
(setq myacad(vlax-get-acad-object))
(setq mydoc(vla-get-ActiveDocument myacad))
(setq myms(vla-get-ModelSpace mydoc))
        (setq ii 0)
        (setq idid 0)
  
        (while e
        
        (setq my (vla-item myms ii));获取图元对象
        (setq ii (+ 1 ii))
   
        (setq i 0)
        (setq e1(entget e));由图元名e获取图元表
               (if(= "LWPOLYLINE" (cdr(assoc 0 e1)))
  (progn
        
                   (setq m (+ 1 m))
                   (setq num 0)
                   (setq area(vlax-get-property my 'Area));获取面积
                   ;(setq len (vlax-get-property my 'Length));获取周长
                   (setq lay (vlax-get-property my 'Layer));获取图层         
   
                                 (if(> area 1.0);;面积大小要求
               (progn
          (setq idid (+ 1 idid));;图版个数统计，可用于图版的编号
            (while (nth i e1);按顺序每次取出图元表中的一个点对
                                       
                (setq n (car(nth i e1)))
                   (if(= n 10)    ;判断点对表是否记录的是坐标
                       (progn
          (setq num (+ 1 num))
                 
                 (setq x(cadr(nth i e1)))
                  (setq y(caddr(nth i e1)))
                  (setq xx (rtos x 2 3));2表示输出为十进制 3表示精度为3位
                        (setq yy (rtos y 2 3))
          (setq num1 (rtos num 2 0))
                 (setq m1 (rtos m 2 0))
                 (setq area1 (rtos area 2 3))
                 (setq idid1 (rtos idid 2 0))
                 ;;(princ ( strcat m1 "     "num1 "     "xx "     " yy "     " area1"     " lay "\n") file);文件输出
                 (princ ( strcat idid1 "     "num1 "     "yy "     " xx "     " area1"     " lay "\n") file);文件输出
               
                       )
                   )
                      (setq i (+ 1 i))
            )
                                    )
                                )
            
     
   
   )
  )
         (setq e (entnext e))
         )
  
      (close file)
)


这是一个读取AutoCAD中多边形数据的程序，但是在读取CAD中有很多图形（图元很多）的时候，会出错：
; 错误: no function definition: VLAX-GET-ACAD-OBJECT
有没有高手知道是什么原因？

Gu_xl

2. 
   
3. (defun c:kk()
   
4.      (setq num 0);统计一条多断线端点数
   
5.         (setq m 0);统计多段线条数
   
6.         (setq file (open "d:\\pline.txt" "w"))
   
7.         (princ "\n" file)
   
8.         (setq area 0)
   
9. (vl-load-com)
   
10. (setq myacad(vlax-get-acad-object))
    
11. (setq mydoc(vla-get-ActiveDocument myacad))
    
12. (setq myms(vla-get-ModelSpace mydoc))
    
13.         (setq ii 0)
    
14.         (setq idid 0)
    
15.           ;;;用vlax-for循环
    
16.           (vlax-for my myms
    
17.             (setq e (vlax-vla-object->ename my)
    
18.                   e1 (entget e))
    
19.                (if(= "LWPOLYLINE" (cdr(assoc 0 e1)))
    
20.   (progn
    
21.         
    
22.                    (setq m (+ 1 m))
    
23.                    (setq num 0)
    
24.                    (setq area(vlax-get-property my 'Area));获取面积
    
25.                    ;(setq len (vlax-get-property my 'Length));获取周长
    
26.                    (setq lay (vlax-get-property my 'Layer));获取图层         
    
27.    
    
28.                                  (if(> area 1.0);;面积大小要求
    
29.                (progn
    
30.           (setq idid (+ 1 idid));;图版个数统计，可用于图版的编号
    
31.             (while (nth i e1);按顺序每次取出图元表中的一个点对
    
32.                                        
    
33.                 (setq n (car(nth i e1)))
    
34.                    (if(= n 10)    ;判断点对表是否记录的是坐标
    
35.                        (progn
    
36.           (setq num (+ 1 num))
    
37.                  
    
38.                  (setq x(cadr(nth i e1)))
    
39.                   (setq y(caddr(nth i e1)))
    
40.                   (setq xx (rtos x 2 3));2表示输出为十进制 3表示精度为3位
    
41.                         (setq yy (rtos y 2 3))
    
42.           (setq num1 (rtos num 2 0))
    
43.                  (setq m1 (rtos m 2 0))
    
44.                  (setq area1 (rtos area 2 3))
    
45.                  (setq idid1 (rtos idid 2 0))
    
46.                  ;;(princ ( strcat m1 "     "num1 "     "xx "     " yy "     " area1"     " lay "\n") file);文件输出
    
47.                  (princ ( strcat idid1 "     "num1 "     "yy "     " xx "     " area1"     " lay "\n") file);文件输出
    
48.                
    
49.                        )
    
50.                    )
    
51.                       (setq i (+ 1 i))
    
52.             )
    
53.                                     )
    
54.                                 )
    
55.             
    
56.      
    
57.    
    
58.    )
    
59.   )
    
60.          (setq e (entnext e))
    
61.          )
    
62.   
    
63.       (close file)
    
64. )
    

<br /> (defun c:kk()<br />      (setq num 0);统计一条多断线端点数<br />         (setq m 0);统计多段线条数<br />         (setq file (open "d:\\pline.txt" "w")) <br />         (princ "\n" file)<br />         (setq area 0)<br /> (vl-load-com)<br /> (setq myacad(vlax-get-acad-object))<br /> (setq mydoc(vla-get-ActiveDocument myacad))<br /> (setq myms(vla-get-ModelSpace mydoc))<br />         (setq ii 0)<br />         (setq idid 0)<br />           ;;;用vlax-for循环<br />           (vlax-for my myms<br />             (setq e (vlax-vla-object->ename my)<br />                   e1 (entget e))<br />                (if(= "LWPOLYLINE" (cdr(assoc 0 e1)))<br />   (progn<br />         <br />                    (setq m (+ 1 m))<br />                    (setq num 0)<br />                    (setq area(vlax-get-property my 'Area));获取面积<br />                    ;(setq len (vlax-get-property my 'Length));获取周长<br />                    (setq lay (vlax-get-property my 'Layer));获取图层          <br />     <br />                                  (if(> area 1.0);;面积大小要求<br />                (progn<br />           (setq idid (+ 1 idid));;图版个数统计，可用于图版的编号<br />             (while (nth i e1);按顺序每次取出图元表中的一个点对<br />                                        <br />                 (setq n (car(nth i e1)))<br />                    (if(= n 10)    ;判断点对表是否记录的是坐标<br />                        (progn<br />           (setq num (+ 1 num))<br />                  <br />                  (setq x(cadr(nth i e1)))<br />                   (setq y(caddr(nth i e1)))<br />                   (setq xx (rtos x 2 3));2表示输出为十进制 3表示精度为3位<br />                         (setq yy (rtos y 2 3))<br />           (setq num1 (rtos num 2 0))<br />                  (setq m1 (rtos m 2 0))<br />                  (setq area1 (rtos area 2 3))<br />                  (setq idid1 (rtos idid 2 0))<br />                  ;;(princ ( strcat m1 "     "num1 "     "xx "     " yy "     " area1"     " lay "\n") file);文件输出<br />                  (princ ( strcat idid1 "     "num1 "     "yy "     " xx "     " area1"     " lay "\n") file);文件输出<br />                <br />                        )<br />                    )<br />                       (setq i (+ 1 i))<br />             )<br />                                     )<br />                                 )<br />             <br />      <br />    <br />    )<br />   )<br />          (setq e (entnext e))<br />          )<br />   <br />       (close file)<br /> )<br />

e2002

(vl-load-com) 先

匡匡

(vl-load-com)已经有了

匡匡

有的时候还会提示错误：
; 错误: ActiveX 服务器返回错误: 未知名称: AREA

就一小卒

回复 匡匡 的帖子

有的图元没有  AREA 属性

yqg1958

参数类型错误: VLA 对象集合: #<VLA-OBJECT 0b741f74>