问几个简单的问题！

fantasyhk

我现在已经编写好左半边图形程序，怎么把它镜像，使之为图中的效果。最好说具体点！ 1.偏置线段为什么出错？ 。。。。。 Set LineObj2 = AcadApp.ActiveDocument.ModelSpace.AddLine(Pnt5, Pnt6) LineObj3=LineObj.offset (-(H+L)/2)
(H,L为变量，运行时提示错误，为什么啊？） 2动态绘图，用轻便多义线生成一矩形框，框名为“aaa”，画剖面线时用 hatchObj.AppendOuterLoop (aaa),提示有错。但是这样谢确可以，为什么呢？为什么要用数组？ Dim LoopObj(0 To 0) As AcadEntity
Set LoopObj(0) = AcadApp.ActiveDocument.ModelSpace.AddLightWeightPolyline(Pnt1) hatchObj.AppendOuterLoop (LoopObj)

fantasyhk

已经把图形镜像了！

mccad

注意的一些内容：
1.偏移的返回值是对象数组，而不是单一的对象，因为有时会返回不只一个对象。
2.添加填充边界也是使用对象数组，而不是对象，因为一个边界可以由多个对象形成。
3. 镜像必须单独对每一对象进行操作，而不能直接对多个对象或整个选择集同时操作。

fantasyhk

明白了，谢谢了！