[求助]请问哪位老师能用“VBA“实现如下功能

HQ_2003

如下图所示

线A是要偏移的物体，线B和线C是偏移之后产生的物体。请问如何实现偏移一次之后同时产生线B和线C，而且线B和线C的各种属性（如颜色，线型，图层等）要符合图中所示。


本人在工作中经常用到偏移命令，而偏移之后的物体往往不合适。因此需要用各种方法（如特性匹配，拷贝等）手工修改。再说如上图所示的线B和线C需要偏移两次才能产生。于是产生以上想法。

hezhenhn

HQ_2003

用阵列这个命令只能产生等距离的两条或多条直线，但是线A、线B,C,...之间的距离并不一定相等。[br]

mccad

首先选定对象，再选择第一线的偏移距离，然后选定偏移方向。
这样就可以让程序计算第一线的位置，在程序中可以使用对象复制后移动，然后再改对象的颜色。
然后再通过偏移距离和偏移方向计算第三条线的位置，也通过对象的复制后移动来完成。
注意首选要对线型进行判断，判断是否有指定线型存在，如果没有则要加载线型后再改线型了。
我想这样的思路你应该可以编写程序了吧。