[求助]：关于应用反应器

tfod2000

各位老师，可否教教我如何应用反应器的语句
  我现在想实现的是先画几个点然后再连成线，当选择任意的点的时候，改变这个点的坐标，这时和这个点连接的直线也跟着这个点
移动到相应的位置。我不知道如何实现。请各位帮帮忙。最好是给点程序。先谢谢了。

tfod2000

各位斑竹，高手快帮帮忙呀。

雪山飞狐(lzh)

VBA没有反应器，有的是事件处理
你说的情况好像不需要事件处理，可以详细说明一下是用到什么方面的麽？

winabcd

我想他的问题是，有一列点连成的折线（或多义线），现在其中有一点的坐标发生改变，而其它点坐标不变，如何重新指定该点坐标后，自动生成新的折线（多义线）。
我也想要这样程序，但我做不出来，请指教

雪山飞狐(lzh)

Signature

object.Coordinate(index)

object

3DPoly, Leader, LightweightPolyline, Point, PolyfaceMesh, PolygonMesh, Polyline, Solid, Trace
The object or objects this property applies to.

Coordinate

Variant (three-element or two-element array of doubles); read-write
The array of X, Y, and Z coordinates for the specified vertex.

LightweightPolyline object: The variant has two elements representing the X and Y coordinates in OCS.
Polyline object: The variant has three elements, representing the X and Y coordinates in OCS. The Z coordinate is present in the variant but ignored.

All other objects: The variant has three elements, representing the X and Y coordinates in WCS; the Z coordinate will default to 0 on the active UCS.

Index

Integer
The index in the array of vertices for the vertex you want to set or query. The vertex arrays are 0 based.

Remarks

This property will replace any existing vertices for the specified object. Use standard array-handling techniques to process the values contained in this property.

3DPolyline, Polyline, PolygonMesh: For simple polylines (not splined or curve fit), this property specifies simple vertices. For splined or curve-fit polylines, this property specifies control point vertices.

The OCS coordinates for the Polyline and LightweightPolyline objects can be converted to and from other coordinate systems using the TranslateCoordinates method.

winabcd

看了班竹的贴子，能修改多义线了，但我还是不能判别一个选定的点是多义线数组中第几个点，如有这样的函数，请指教，谢谢

雪山飞狐(lzh)

依次判断该点到多段线的各点距离，最短的就是