请问：用vba怎样编程来实现cad中的镜像mirror命令？

翔羽

我想请问：用vba如何实现cad中的镜像命令mirror的功能？

本人打算用vba来实现mirror命令的功能，先选择对象，然后提示选择两个点作为镜像的轴线，然后提示用户输入参数y或者n是否保存原对象？我现在打算先做最简单的，镜像的轴线或者是x轴，y轴,z轴,镜像的对象暂为直线，多段线，文字，样条曲线。请问有做过类似的例子没有？另外，当镜像的轴线不是x轴，y轴,z轴的时候，镜像后对象是怎么定位的？

请高手指教！！

谢谢。

翔羽

Sub mi()
'创建选择集
Dim ss As AcadSelectionSet
On Error Resume Next
ThisDrawing.SelectionSets("mccad").Delete
Set ss = ThisDrawing.SelectionSets.Add("mccad")

'对象选择
ThisDrawing.Utility.Prompt vbCr & "请选择镜像的对象："
ss.SelectOnScreen

'选择两个镜像线的点
Dim pnt1, pnt2
pnt1 = ThisDrawing.Utility.GetPoint(, vbCr & "指定镜像线的第一点：")
pnt2 = ThisDrawing.Utility.GetPoint(pnt1, vbCr & "指定镜像线的第二点：")

'进行镜像
Dim ent As AcadEntity
If ss.Count > 0 Then
For Each ent In ss
ent.Mirror pnt1, pnt2
Next
End If

End Sub

这个是论坛上的

当要删掉或者保留镜像的源对象时用程序是怎么处理的？cad中的mirror命令是提供用户输入y或n的。

翔羽

顶一下

高手帮忙啊~~

crazylsp

我也在研究这个问题。

wuyunpeng888

对象本身对应的方法，如果是多个对象的话，一个循环就摆平了