Autor
|
Thema: Fehlermeldung: Object required (1814 mal gelesen)
|
MichaelTreiber Mitglied Technischer Produktdesigner
Beiträge: 63 Registriert: 26.01.2011 Win XP/7 (64 Bit) Catia V5R18
|
erstellt am: 03. Jan. 2012 09:54 <-- editieren / zitieren --> Unities abgeben:
Hallo Community, ich habe ein Problem Ich habe mehrere UserForms die ich nacheinander aufrufe. Auf den Oberflächen steuer ich Parameter von Modellen die ich beim Starten des Makros öffne. Meine vierte UserForm wird jedoch nicht geöffnet. Fehlermeldung: Object required. Und er verweist auf die Zeile "UF_four.show" daher gehe ich davon aus, dass es vielleicht in der UserForm_Initialize (von der UF_four) hapern könnte. Bin mir aber auch nicht sicher. Ich hänge mal 3 Screenshots an und schreibe meinen Code von der UserForm_Initialize: [Vielleicht liegts auch nur am neuen Jahr, dass ich irgendwas übersehe
Code: Private Sub UserForm_Initialize() Dim housingFolder As Folder Dim housingfile As File Dim documents1 As Documents Set documents1 = CATIA.Documents Dim partDocument1 As PartDocument Set partDocument1 = documents1.Item("sbl_skel.CATPart") Dim part1 As Part Set part1 = partDocument1.Part Dim parameters1 As Parameters Set parameters1 = part1.Parameters Dim length1 As Length Set length1 = parameters1.Item("sbl_skel\Ballpin\Diameter_Sphere") Set housingFolder = CATIA.FileSystem.GetFolder("R:\home\treiberm\3d\catia\2011\interne Projekte\SBL Para\housing_templates") Select Case length1.ValueAsString Case "16mm" cbHousing.AddItem "016-0054-032-001.CATPart" Case "19mm" cbHousing.AddItem "019-0054-113-001.CATPart" cbHousing.AddItem "019-0054-153-001.CATPart" cbHousing.AddItem "a0023731.CATPart" Case "20mm" cbHousing.AddItem "020-0054-132-001.CATPart" Case "22mm" cbHousing.AddItem "022-0054-023-001.CATPart" End Select End Sub
------------------ Grüße aus dem schönen Düsseldorf Michael Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bgrittmann Moderator Konstrukteur
Beiträge: 11780 Registriert: 30.11.2006 CATIA V5R19
|
erstellt am: 03. Jan. 2012 11:11 <-- editieren / zitieren --> Unities abgeben: Nur für MichaelTreiber
|
MichaelTreiber Mitglied Technischer Produktdesigner
Beiträge: 63 Registriert: 26.01.2011 Win XP/7 (64 Bit) Catia V5R18
|
erstellt am: 03. Jan. 2012 11:52 <-- editieren / zitieren --> Unities abgeben:
|
MichaelTreiber Mitglied Technischer Produktdesigner
Beiträge: 63 Registriert: 26.01.2011 Win XP/7 (64 Bit) Catia V5R18
|
erstellt am: 03. Jan. 2012 13:13 <-- editieren / zitieren --> Unities abgeben:
Ok , also nun verstehe ich gar nichts mehr. Ich habe nun eine neue UserForm erstellt, diese UF_four genannt und eine ComboBox mit namen cbHousing eingefügt und den Code aus der alten UserForm_Initialize einfach per Copy/Paste eingefügt, nun funktioniert alles einwandfrei... Ich mein ich bin froh, dass es funktioniert aber wer hat bitte die Logik versteckt? ------------------ Grüße aus dem schönen Düsseldorf Michael Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
HoBLila Mitglied Dipl.-Ing. (BA) praktische Informatik - Senior Entwickler CAx
Beiträge: 1118 Registriert: 29.05.2008 DELL PRECISION T3500 Intel(R) Xeon(R) CPU W3540 @ 2.93GHz 12285 MB RAM NVIDIA Quadro FX 1800 Microsoft Windows 7 Enterprise Service Pack 1 CATIA V5 R19 SP09 HF69 VB6.5 CAA RADE CDC
|
erstellt am: 09. Jan. 2012 10:41 <-- editieren / zitieren --> Unities abgeben: Nur für MichaelTreiber
Ich denke mal, Du hattest Deine UserForm nicht UF_four genannt (eventuell ein Tippfehelr drin?) oder sie hat eine Eigenschaft die unglücklich war, oder einfach ein Fehler in der Datei. ------------------ Mit freundlichen Grüßen, Henry Schneider alias Lila Es gibt einen ewigen Wettkampf zwischen der Natur und den Ingenieuren: Die Ingenieure versuchen, immer idioten-sicherere Systeme zu bauen, die Natur versucht, immer bessere Idioten zu bauen Xing Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |