songcf 发表于 2011-2-23 11:41:57

Polyline2d怎样转换成Polyline

Polyline2d转换成Polyline，怎样能获取Polyline2d上的点

LONGXIN 发表于 2011-2-24 00:24:19

(defun POL_coord (E1 / dxf XY E2 count_xy pd)
      (setq count_xy nil
          dxf
             (entget e1)
          DXF
             (MEMBER (ASSOC 330 DXF) DXF)
          E2
             (ENTNEXT E1)
          DXF
             (ENTGET E2)
      )

      (setq e1 (cdr (assoc 0 dxf)))
      (while (= e1 "VERTEX")
        (setq e1 (cdr (assoc 10 dxf)))
        (setq pd (cdr (assoc 70 dxf)))
        (if (/= pd 16)
          (setq count_xy (cons e1 count_xy))
        )
        (setq e1 e2)
        (SETQ E2(ENTNEXT E1)
              DXF (ENTGET E2)
              e1(cdr (assoc 0 dxf))
        )
      )
      (setq COUNT_XY (reverse count_xy))
    )
页: [1]
查看完整版本: Polyline2d怎样转换成Polyline