用VBA 如何把（多段线）转换成，（二维多段线）呢？？？

373294296 · 发表于 2018-10-8 22:54:00

请高手，提供思路，代码

mikewolf2k · 发表于 2018-10-9 09:30:00

坐标读出来，新建。

poly168 · 发表于 2018-10-9 15:10:00

dim pnt as variant ,d2() as double,n as long
pnt=多段线.coordinates
n=(ubound(pnt)+1)/2
redim d2(n*3-1）
for i=0 to n
d2(i*3)=pnt(i*2) :d2(i*3+1)=pnt(i*2+1
next i
set 二维多段线=thisdrawing.modespace.addpolyline(d2)
二维多段线.图层/颜色/线盘等=多段线.相对特性
多段线.delete