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

dwjnet · 发表于 2002-4-22 09:58:00

[转贴]
;;;求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
   ((= &quotOLYLINE" PLTYPE)
   (GETPL ED)
   )
   ((= "LWPOLYLINE" PLTYPE)
   (GETLWPL ED)
   )
)
  )