[编程申请]：有圆弧和直线组成的多段线编程实现问题

yj821005

我想问一下，要画一个由圆弧，直线等组成的多段线，起点由鼠标在屏幕上点一点或者由其他的函数的返回点决定。怎么用VBA实现！多谢！*-*3 *-*3 *-*3 *-*3 *-*3
还有一个问题，如何设置多段线的线宽（不是lineweight，它好像不能随比例尺的改变而改变）类似于setwidth（但是它好像是设置具体第几段的线宽，）而我要的是一个在不晓得这根多段线有多少段线的情况下把整条多段线的线宽都改变！谢谢！急死了

雪山飞狐(lzh)

1、
语法

object.SetBulge Index, Value

Object

LightweightPolyline, Polyline
使用该方法的对象。

Index

Integer[整数]; 仅用于输入
想要设置的顶点的索引位置。索引必须是从0开始的正整数。

Value

Double[双精度]
给定索引顶点的凸度值。

说明

Polyline：如果多段线类型 Type 属性不是 acSimplePoly 则此方法失败。

凸度是多段线顶点列表中选定顶点和下一顶点之间的圆弧所包含角度的 1/4 的正切值。负的凸度值表示圆弧从选定顶点到下一顶点为顺时针方向。凸度为0 表示直线段，凸度为1表示半圆。
2、
首先获取多段线的Coordinates属性
LightweightPolyline 对象：变体为 OCS 坐标系统的二维点数组。
Polyline 对象：变体为三维点数组， X 和 Y 坐标为 OCS 坐标系统； Z 坐标忽略。
再通过Ubound(Coordinates)计算出多段线的段数

yj821005

多谢，小弟刚刚接触VBA，斑竹可能讲得太深了点，回去再琢磨琢磨，还有个简单的问题：已知一个点（用鼠标在屏幕上点，或者其他函数返回的点）我们记为P吧，另一个点Q是与P点有个位移差，这个位移差是已知的，请问有什么表达式能求出Q（就是相当于用一个带有P的表达式赋值给Q）是不是很傻瓜啊*-*6 *-*2 *-*6 *-*6
还有对于一个点P，有没有类似p.x或者p.y 之类的函数来获取P点的坐标值

雪山飞狐(lzh)

VBA中的点是三维双精度数组，可以通过P(0)/P(1)/P(2)获取点的X/Y/Z坐标

yj821005

多谢，小弟又有问题了，用什么办法可以将某个对象（如圆（弧），直线，椭圆（弧））转变为多段线

officer

呀，小弟正想问这个问题呢！楼上这位兄弟的问题也困惑我好久了，请各位大侠帮忙，小弟是新来的 ！*-*6

wtkc

多段线线宽如不分段控制，用属性ConstantWidth设置全局宽度即可