获取对象的坐标点的函数

Lisphk

下面函数能获取二维多段线、LWPOLYLINE、三维多段线的顶点坐标

1. (defun getcoords (ent)
   
2.   (vlax-safearray->list
   
3.     (vlax-variant-value
   
4.       (vlax-get-property
   
5.     (vlax-ename->vla-object ent)
   
6.     "Coordinates"
   
7.       )
   
8.     )
   
9.   )
   
10. )
    
11. 
    

(defun getcoords (ent)<br />   (vlax-safearray->list<br />     (vlax-variant-value<br />       (vlax-get-property<br />     (vlax-ename->vla-object ent)<br />     "Coordinates"<br />       )<br />     )<br />   )<br /> )<br /> <br />

王子

你这程序不全，数组的定义？

kqqt6236

谢谢分享。

marting

王子 发表于 2018-6-19 07:07
你这程序不全，数组的定义？

定义什么数组？ 函数直接就能用啊

Underway

矩形

Command: (getcoords ee)
(0.0 0.0 7.0 0.0 7.0 4.0 0.0 4.0)

Command: (acet-geom-pline-point-list ee 1e-3)
((0.0 0.0 0.0) (7.0 0.0 0.0) (7.0 4.0 0.0) (0.0 4.0 0.0) (0.0 0.0 0.0))

marting

Underway 发表于 2018-6-19 12:19
矩形

Command: (getcoords ee)

因为不同对象的坐标点数组返回的不一样，LWPOLYLINE返回的是X,Y， 2DPOLYLINE,3DPOLYLINE返回的是X,Y,Z，所以进一步提取坐标还需要根据实体类型二个分组或者三个分组。这是COM编程的特点。

marting

Underway 发表于 2018-6-19 12:19
矩形

Command: (getcoords ee)

LWPOLYLINE:

命令: (setq pts (GETCOORDS (entlast)))
(5291.72 1786.15 6635.39 3023.12 6785.67 1441.57 7961.38 2219.09 7342.59
611.029)

命令: (xd::list:group-n pts 2)
((5291.72 1786.15) (6635.39 3023.12) (6785.67 1441.57) (7961.38 2219.09)
(7342.59 611.029))

3D POLYLINE：

命令: (setq pts (GETCOORDS (entlast)))
(7970.22 3889.0 0.0 8854.21 4595.84 0.0 8863.05 3385.38 0.0 9976.89 4127.56 0.0
9579.09 2395.8 0.0)

命令: (xd::list:group-n pts 3)
((7970.22 3889.0 0.0) (8854.21 4595.84 0.0) (8863.05 3385.38 0.0) (9976.89
4127.56 0.0) (9579.09 2395.8 0.0))

王子

我老是跟VB混了。。。。。