sri91
Mechanical
- Aug 29, 2019
- 43
Hi,
Is there any API to get the data of a assembly when it is opening in VPM Navigator workbench.
The below code i got when I record.
Sub CATMain()
Dim settingControllers1 As SettingControllers
Set settingControllers1 = CATIA.SettingControllers
Dim languageSheetSettingAtt1 As LanguageSheetSettingAtt
Set languageSheetSettingAtt1 = settingControllers1.Item("CATLieLanguageSheetSettingCtrl")
Dim short1 As Integer
short1 = languageSheetSettingAtt1.LoadExtendedLanguageLib
Dim short2 As Integer
short2 = languageSheetSettingAtt1.LoadAllPackages
Dim bSTR1 As String
bSTR1 = languageSheetSettingAtt1.ListOfPackagesToLoad
Dim knowledgeSheetSettingAtt1 As KnowledgeSheetSettingAtt
Set knowledgeSheetSettingAtt1 = settingControllers1.Item("CATLieKnowledgeSheetSettingCtrl")
Dim short3 As Integer
short3 = knowledgeSheetSettingAtt1.ParameterNameSurroundedByTheSymbol
Dim specsAndGeomWindow1 As SpecsAndGeomWindow
Set specsAndGeomWindow1 = CATIA.ActiveWindow
Dim viewer3D1 As Viewer3D
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer
Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D
End Sub
Any help in this is appreciated.
Thanks
SURYASRI
Is there any API to get the data of a assembly when it is opening in VPM Navigator workbench.
The below code i got when I record.
Sub CATMain()
Dim settingControllers1 As SettingControllers
Set settingControllers1 = CATIA.SettingControllers
Dim languageSheetSettingAtt1 As LanguageSheetSettingAtt
Set languageSheetSettingAtt1 = settingControllers1.Item("CATLieLanguageSheetSettingCtrl")
Dim short1 As Integer
short1 = languageSheetSettingAtt1.LoadExtendedLanguageLib
Dim short2 As Integer
short2 = languageSheetSettingAtt1.LoadAllPackages
Dim bSTR1 As String
bSTR1 = languageSheetSettingAtt1.ListOfPackagesToLoad
Dim knowledgeSheetSettingAtt1 As KnowledgeSheetSettingAtt
Set knowledgeSheetSettingAtt1 = settingControllers1.Item("CATLieKnowledgeSheetSettingCtrl")
Dim short3 As Integer
short3 = knowledgeSheetSettingAtt1.ParameterNameSurroundedByTheSymbol
Dim specsAndGeomWindow1 As SpecsAndGeomWindow
Set specsAndGeomWindow1 = CATIA.ActiveWindow
Dim viewer3D1 As Viewer3D
Set viewer3D1 = specsAndGeomWindow1.ActiveViewer
Dim viewpoint3D1 As Viewpoint3D
Set viewpoint3D1 = viewer3D1.Viewpoint3D
End Sub
Any help in this is appreciated.
Thanks
SURYASRI