如何获取多边形的各顶点坐标

mcxiangxin

请问:如何获取多边形的各顶点坐标?谢谢

王咣生

是多义线的坐标吗?

下面的函数通过传递实体名返回坐标点表:

(defun GetVertexList (Ename / obj tmp coords oname start end)
  (setq obj (vlax-ename->vla-object Ename)
 coords '()
 oname (vlax-get-property obj 'ObjectName))
 
  (if (member oname '("AcDbPolyline" "AcDb2dPolyline"))
    (progn
      (setq tmp (vlax-safearray->list (vlax-variant-value (vlax-get-property obj 'Coordinates))))
      (cond
 ((= oname "AcDb2dPolyline") olyline
  (while tmp
    (setq coords (append coords (list (list (car tmp)(cadr tmp)(caddr tmp))))
   tmp  (cdddr tmp))
  );while
 );
 ((= oname "AcDbPolyline") ;LWPolyline
  (while tmp
    (setq coords (append coords (list (list (car tmp)(cadr tmp))))
   tmp  (cddr tmp))
  );while
 );
      );cond
    );
  );if

  (if (= oname "AcDbLine")
    (progn
      (setq start (vlax-safearray->list (vlax-variant-value (vlax-get-property obj 'StartPoint)))
     end (vlax-safearray->list (vlax-variant-value (vlax-get-property obj 'EndPoint)))
     coords (list start end))
    )
  );if
  coords
)

sailorcwx

(setq coords '())
(mapcar 'labmda(x) (if (= (car x) 10)(setq coords (append coords (list (cdr x))))) (entget ent))

王咣生

对于LWPOLYLINE可以通过(entget pl)的组码10来得到结点坐标 ,

但对于POLYLINE就不能简单地通过(entget pl)的组码10来取得了.

如LWPOLYLINE:

Select object: ((-1 . <Entity name: 7ef3be88>) (0 . "LWPOLYLINE") (330 .
<Entity name: 7ef3bcf8>) (5 . "81") (100 . "AcDbEntity") (67 . 0) (410 .
"Model") (8 . "0") (100 . "AcDbPolyline") (90 . 4) (70 . 1) (43 . 0.0) (38 .
0.0) (39 . 0.0) (10 841.233 680.569) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10
753.521 372.787) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 1237.26 298.495) (40 .
0.0) (41 . 0.0) (42 . 0.0) (10 1335.61 529.332) (40 . 0.0) (41 . 0.0) (42 .
0.0) (210 0.0 0.0 1.0))

而POLYLINE:

Select object: ((-1 . <Entity name: 7ef3bec0>) (0 . "POLYLINE") (330 . <Entity
name: 7ef3bcf8>) (5 . "88") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"0") (100 . "AcDb2dPolyline") (66 . 1) (10 0.0 0.0 0.0) (70 . 0) (40 . 0.0) (41
. 0.0) (210 0.0 0.0 1.0) (71 . 0) (72 . 0) (73 . 0) (74 . 0) (75 . 0))

无痕

不用分

（vlax-curve-getpointatparam plineobj i）