一个能自由按90度旋转模型的程序

fuzhan

一直以来都在想着实现这个，一个模型的视图方向除能用AIP本身的功能实现，还应能快速向左、向右、向上、向下、顺时针、逆时针旋转90度的要求，做了很长时间的试才试出来。最有作用的地方是当用AIP的观察方向命令得到的视图方向不适合自己，需要顺时针或逆时针旋转90度才适合时，用个就最好了。有没有意义这个就要你自己评价了。
来个视频：

 

想来想去，最后出来的效果是直接用快捷方式控制，当然你要其它效果或者更多角度，自己按需求改代码。
1、在VBA中新建一个模块（你亦可以在原有模块中加入），复制以下代码进去。
Private View1 As View
Private Camera1 As Camera
Private TransGeom1 As TransientGeometry
Private point1, point2 As Point2d

Private Sub ffu1(ByVal inte1 As Single, ByVal inte2 As Single)
If ThisApplication.Documents.Count = 0 Then
Exit Sub
End If
If ThisApplication.ActiveDocument.DocumentType = 12291 Or 12290 Then
Set View1 = ThisApplication.ActiveView
Set Camera1 = View1.Camera
Set TransGeom1 = ThisApplication.TransientGeometry
Set point1 = TransGeom1.CreatePoint2d(0, 0)
Set point2 = TransGeom1.CreatePoint2d(inte1, inte2)
Call Camera1.ComputeWithMouseInput(point1, point2, 0, 30209)
End If
End Sub

Sub fu4() '向左转，可设置Ctrl键+小数字键盘4作快捷键
Call ffu1(94.24775, 0)
Camera1.Apply
End Sub

Sub fu6() '向右转，可设置Ctrl键+小数字键盘6作快捷键
Call ffu1(-94.24775, 0)
Camera1.Apply
End Sub

Sub fu8()  '向上转，可设置Ctrl键+小数字键盘8作快捷键
Call ffu1(0, 94.24775)
Camera1.Apply
End Sub

Sub fu2()  '向下转，可设置Ctrl键+小数字键盘2作快捷键
Call ffu1(0, -94.24775)
Camera1.Apply
End Sub

Sub fu1()  '逆时针转，可设置Ctrl键+小数字键盘1作快捷键
Call ffu1(94.24775, 0)
Set point2 = TransGeom1.CreatePoint2d(0, 94.24775)
Call Camera1.ComputeWithMouseInput(point1, point2, 0, 30209)
Set point2 = TransGeom1.CreatePoint2d(-94.24775, 0)
Call Camera1.ComputeWithMouseInput(point1, point2, 0, 30209)
Camera1.Apply
End Sub

Sub fu3()  '顺时针转，可设置Ctrl键+小数字键盘3作快捷键
Call ffu1(94.24775, 0)
Set point2 = TransGeom1.CreatePoint2d(0, -94.24775)
Call Camera1.ComputeWithMouseInput(point1, point2, 0, 30209)
Set point2 = TransGeom1.CreatePoint2d(-94.24775, 0)
Call Camera1.ComputeWithMouseInput(point1, point2, 0, 30209)
Camera1.Apply
End Sub

2、设置快捷方式，如图示。

3、在零部件环境（包括草图）中需要转动时直接按定义好的快捷键。
4、还没有想到好方法将快捷方式加到鼠标上，如果加在鼠标上，要先启动命令，再用鼠标控制，还没有好想法利用鼠标的三个键控制6种或更多方向的旋转。

yingxunxue

感谢分享！不过你的程序能不能做到像ＡＩＰ本身工程图创建中，自定义视图中的按任意角度旋转（４５）等命令．不知道ＡＩＰ为什么不在零件环境下启用这个命令．

canyouzeng

这个不能满足要求吗？