镜像的部分如何隐藏

hzm112233 发表于 2011-4-21 23:51:21

Dim McenPt As Variant '圆心点
Dim McirObj As AcadCircle
McenPt = GetPoint(KeyBasePt, (Md / 2) * Cos(α * PI / 180), (Md / 2) * Sin(α * PI / 180))
Set McirObj = docObj.ModelSpace.AddCircle(McenPt, kj / 2)
'使用阵列绘制其他的螺钉孔
Dim MArrPolar As Variant '螺钉孔的环形阵列数组
MArrPolar = McirObj.ArrayPolar(n0, 2 * PI * (n0 - 1) / n0, KeyBasePt)

McirObj.Visible = False ’隐藏

？？？？？镜像的部分怎么隐藏

hzm112233 发表于 2011-4-22 08:22:42