如何求出pline绘制的线条的各个坐标值。

龙龙仔

[转贴]
;;;求POLYLINE,LWPOLYLINE顶点(作者:XDSoft)
  (defun GETPLVTX (E / ED)
    (defun DXF (NO)
      (cdr (assoc NO ED))
    )
    (defun GETLWPL (ED / PL)
      (while (setq ED (cdr (member (setq PL10 (assoc 10 ED))
                                   ED
                           )
                      )
             )
        (setq PL (cons (cdr PL10) PL))
      )
      (reverse PL)
    )
    (defun GETPL (ED / E PL P10)
      (setq E (DXF -1))
      (while (setq E (entnext E))
        (if (setq P10 (cdr (assoc 10 (entget E))))
          (setq PL (cons P10 PL))
        )
      )
      (reverse PL)
    )
    (setq ED (entget E))
    (setq PLTYPE (DXF 0))
    (cond
      ((= "OLYLINE" PLTYPE)
       (GETPL ED)
      )
      ((= "LWPOLYLINE" PLTYPE)
       (GETLWPL ED)
      )
    )
  )

mccad

Dim retCoord As Variant
    retCoord = plineObj.Coordinates
该数组中的项目数/3就是顶点的个数。

hhxh

我为此还查了半天DELPHI的HELP。

geo123456789

谢谢共享，急需！！！！