[求助]：vba请教

suwei0072000

我在尝试做一个二维的元件系统，此系统会重复用到很多宏（如插入块宏)
我的问题是：当我插入一个块 并且 画了一条直线（直线的一端在块上） 实现块移动时直线随动
我知道vba有modify event可以触发代码（先删除所连直线，再根据在块上的point 重画一条直线 再update一下。但问题是：当我移动块的时候我如何知道是那条直线
连着了，我甚至无法在move block时让直线的点也跟着动，vba有触发事件 但如何触发直线的
重置（并且使系统知道该触发谁）

-----------------------------请您多指教---------------------------------------

-----------------------------谢谢！！-----------------------------------------
D:\Documents and Settings\Administrator\My Documents\professionalDiss\followBlock.JPG

efan2000

在移动之前先用选择集对象的SelectAtPoint获取一点处的对象，待块移动后，根据相对位置更改这个对象的属性。