请Lisp兄弟指导

匡匡

(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)
  
        (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));获取图层         
   
     (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))
             (princ ( strcat m1 "     "num1 "     "xx "     " yy "     " area1"     " lay "\n") file);文件输出
            
               )
            )
       (setq i (+ 1 i))
     )
            
     
   
  )
        (setq e (entnext e))
         )
  
      (close file)
)



这是源代码，功能是把AutoCAD中的多边形坐标、面积、图层数据输出为记事本。
可有的时候出错，有的时候正确，出错提示如下：

命令: kk
; 错误: ActiveX 服务器返回错误: 未知名称: AREA

不知道是为什么？
似乎是     (setq area(vlax-get-property my 'Area));获取面积   有问题
还请指教！

caoyin

AREA 属性只对Arc, Circle, Ellipse,Hatch, LightweightPolyline, Polyline, Region, Spline
对象有效,对于其他对象自然会出错

匡匡

我限制了图元是多边形 ，if(= "LWPOLYLINE" (cdr(assoc 0 e1)))
怎么还出错呢

Andyhon

或许得加个 isClosed 属性吧   or (70 . 1)

匡匡

"LWPOLYLINE"是不是判别Pline的唯一标识呢？

匡匡

我在cad里面画了一条直线，
(setq e(entnext))(setq elist (entget e))
<图元名: 7ef7a078>
((-1 . <图元名: 7ef7a078>) (0 . "LINE") (330 . <图元名: 7ef62cf8>) (5 . "107") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbLine") (10 93.2074 155.562 0.0) (11 169.829 151.845 0.0) (210 0.0 0.0 1.0))
_$
可是if(= "LWPOLYLINE" (cdr(assoc 0 e1)))怎么还能还能成立

ZZXXQQ

你的if之前少了左括弧。所以判断无效。

匡匡

多谢！

yshf

用选择集选择当前图中的所有多段线，再进行操作不是更快捷吗？
(setq ssa (ssget "x" '((0 . "LWPOLYLINE"))))