Hallo,
prinzipiell geht es drum die Variablen mit ins Unterprogramm zu nehmen.
Da funktioniert auch, aber die Funktion "workpart...." wird nicht erkannt
Leider verstehe ich nicht warum. Vielleicht kann jemand helfen.
Hier ein einfaches Beispiel:
Imports System
Imports NXOpen
Imports System.Threading
Module NXJournal
Sub Main ()
Dim TeilName as String
Dim TeilRevision as String
try
TeilName ="Zeichnung003"
TeilRevision ="013"
Catch ex As Exception
End try
Unterprogramm(TeilName,TeilRevision)
End Sub
Sub Unterprogramm(ByVal _teilname as String, ByVal _teilRevision as String)
Dim theSession As NXOpen.Session = NXOpen.Session.GetSession()
Dim workPart As NXOpen.Part = theSession.Parts.Work
'Dim displayPart As Part = theSession.Parts.Display
'**** Zeichnung aus Teamcenter öffnen ****
Dim basePart2 As NXOpen.BasePart = Nothing
Dim partLoadStatus1 As NXOpen.PartLoadStatus = Nothing
basePart2 = theSession.Parts.OpenBaseDisplay("@DB/" & _teilname & "/" & _teilRevision & "", partLoadStatus1)
'in Konstuktion wechseln
theSession.ApplicationSwitchImmediate ("UG_APP_MODELING")
'alle einpassen
workPart.ModelingViews.WorkView.Fit() '<-- Warum ? (Einpassen mal als einfaches Beispiel)
End Sub
End Module
Dankeschön
Gruß
Holgi
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP