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

dwjnet 发表于 2002-4-24 14:23:00

龙龙仔 发表于 2002-4-22 10:50:00

[转贴]求POLYLINE,LWPOLYLINE顶点(作者:XDSoft)

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

dwjnet 发表于 2002-4-22 20:54:00

dwjnet 发表于 2002-4-24 09:15:00

mccad 发表于 2002-4-24 09:23:00

以下语句可返回多段线的全部坐标值

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

dwjnet 发表于 2002-4-26 20:10:00

hhxh 发表于 2002-4-26 21:01:00

delphi中用“VarArrayHighBound(recoord,1)"可求出个数。

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

dwjnet 发表于 2002-4-27 09:26:00

geo123456789 发表于 2009-7-22 15:20:00

谢谢共享，急需！！！！
页: [1] 2
查看完整版本: 如何求出pline绘制的线条的各个坐标值。