SOLIDWORKS二次开发装配体镜像命令.docVIP

Sub main() Set swApp = Application.SldWorks Set Part = swApp.ActiveDoc Dim boolstatus As Boolean boolstatus = Part.Extension.SelectByID2(右视基准面, PLANE, 0, 0, 0, False, 0, Nothing, 0) Dim Plane As Object Set Plane = Part.SelectionManager.GetSelectedObject6(1, -1) 基准面 boolstatus = Part.Extension.SelectByID2(零件3-1@装配体1, COMPONENT, 0, 0, 0, False, 0, Nothing, 0) Dim ComponentsToInstance(0) As Component2 Set ComponentsToInstance(0) = Part.SelectionManager.GetSelectedObject6(1, -1) 要镜像的对象 Dim mirrorCompoOriFileName As String mirrorCompoOriFileName = Part.GetPathName() 获得文件名？ Dim lastSlashPos As Integer lastSlashPos = InStrRev(mirrorCompoOriFileName, \) ？不懂 Dim MirroredFileLocation As String MirroredFileLocation = Left(mirrorCompoOriFileName, lastSlashPos - 1) Part.ClearSelection2 True Dim MirroredComponentFilenames As Variant MirroredComponentFilenames = Empty Dim RecreateMates As Boolean RecreateMates = True Dim ComponentModifier As Integer ComponentModifier = swMirrorComponentName_Suffix 后缀 Dim ComponentNameModifier As String ComponentNameModifier = _镜像 Dim CopyCustomProperties As Boolean CopyCustomProperties = True Dim swAssy As AssemblyDoc Set swAssy = swApp.ActiveDoc Dim vNewComps As Variant vNewComps = swAssy.MirrorComponents(Plane, ComponentsToInstance, ComponentsToMirror, MirroredComponentFilenames, RecreateMates, ComponentModifier, ComponentNameModifier, MirroredFileLocation, CopyCustomProperties) Part.ClearSelection2 True Part.ClearSelection2 True End Sub