Dim currentProjectV1 As IIMInspectProject Dim currentProjectV2 As IIMInspectProject2 Dim iminspect As IMInspectLib.iminspectPublic Sub main()Set iminspect = New IMInspectLib.iminspect'get the basic project interfaceiminspect.ProjectGetCurrent currentProjectV1'ask for the second version of the project interfaceSet currentProjectV2 = currentProjectV1 End Sub
# -*- coding: mbcs -*- # Created by makepy.py version 0.5.01 # By python version 3.8.0 (tags/v3.8.0:fa919fd, Oct 14 2019, 19:37:50) [MSC v.1916 64 bit (AMD64)] # From type library '1' # On Wed Mar 9 21:17:40 2022 'PolyWorks|Inspector 20XX (64-bit) Type Library' makepy_version ='0.5.01' python_version = 0x30800f0 import win32com.client.CLSIDToClass, pythoncom, pywintypes import win32com.client.util from pywintypes import IID from win32com.client import DispatchThe following 3 lines may need tweaking for the particular server # Candidates are pythoncom.Missing, .Empty and .ArgNotFound defaultNamedOptArg=pythoncom.Empty defaultNamedNotOptArg=pythoncom.Empty defaultUnnamedArg=pythoncom.EmptyCLSID = IID('{23E630FD-A4D5-47AD-A3B2-7D2779FFF888}') MajorVersion = 1 MinorVersion = 0 LibraryFlags = 8 LCID = 0x0