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

翔羽 · 发表于 2007-10-29 21:42:00

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

翔羽 · 发表于 2007-10-29 22:27:00

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的。