Autor
|
Thema: In aktivem Part arbeiten. (allg. gültig) (869 mal gelesen)
|
Booyaka Mitglied
Beiträge: 122 Registriert: 22.06.2012 CATIA V5 R19, 24, 26, 28, 29
|
erstellt am: 17. Aug. 2018 08:10 <-- editieren / zitieren --> Unities abgeben:
Hallo, Ich hätte mal ein neues anliegen. Gearbeitet wird in einem "Hauptproduct"(welches auch das aktive Fenster darstellt) mit Unterproducts und ner Menge Parts und ich möchte im jeweiligen aktivem Part(Blau hinterlegt -> PartDesign) Elemente (Geo-Sets, Punkte etc.) per Makro einfügen. Da ich ja jedes X-belibige Part aktiv haben kann macht es das mit dem "ReferenceProduct.Parent....." von oben nach unten durchzählen ja glaube ich eher schwer und weniger Sinn, oder? Deswegen war meine Idee das über eine UserSelection zu lösen, doch leider funktioniert das auch noch nicht so richtig. Code:
Set oActDoc = CATIA.ActiveDocument Set oUserSel1 = oActDoc.SelectionoUserSel1.Clear MsgBox "Bitte (nach OK) Part selektieren ...", 16, oMakroname + oVersion Dim oSel1 (0) oSel1 (0) = "Part" oChoice = oUserSel1.SelectElement2(oSel, "Part ...", False) If oChoice = "Normal" Then MsgBox "Ausgewählt wurde: "& oUserSel1.Item(1).Value.Name Else MsgBox "Abbruch" Exit Sub End If oPartName = oUserSel1.Item(1).Value.Name & ".CATPart" MsgBox oPartName Set oPart = ????
wie gesagt ich verzweifel da grad dran wie ich jetzt das Part aktiv schalten kann um z.B. etwaige GeoSets einzufügen. Folgendes Funktioniert nicht :/
Code:
Set oPart = oActDoc.Item(oPartName) Set oPart = oUserSel1.Item(oPartName)
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: 17. Aug. 2018 08:22 <-- editieren / zitieren --> Unities abgeben: Nur für Booyaka
Servus Booyaka Bei der Selektion müsste Code: Set oPart = oUserSel1.Item(1).Value
das Part sein. Oder über falls du den Partnamen (Dateinamen) schon kennst direkt über: Code: Set oPart = CATIA.Documents.Item("MeinPart.CATPart").Part
Gruß Bernd ------------------ Warum einfach, wenn es auch kompliziert geht. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Booyaka Mitglied
Beiträge: 122 Registriert: 22.06.2012 CATIA V5 R19, 24, 26, 28, 29
|
erstellt am: 17. Aug. 2018 08:35 <-- editieren / zitieren --> Unities abgeben:
Ja also der Name ist mir nie wirklich bekannt (von Projekt zu Projekt teilweise anders). Aber das mit UserSel1.Item(1).Value funzt super ich dank dir vielmals Da fällts mir wie Schuppen von den Augen, da hab ich aber schon ein groben Schnitzer gehabt. Danke fürs Aufzeigen meines Fehlers
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
afaliwan Mitglied Entwicklungsingenieur
Beiträge: 6 Registriert: 10.06.2016 CatiaV5 R24 SP01 Windows 7 Professionel x64 Service Pack 1 DirectX 11.0 i7-2600K CPU @ 3.40GHz Gigabyte Z68MA-D2H-B3 DDR3 16 GBytes NVIDIA Quadro K4000 3072 MBytes GDDR 5
|
erstellt am: 22. Aug. 2018 10:25 <-- editieren / zitieren --> Unities abgeben: Nur für Booyaka
Hallo, du hast zwar schon eine Lösung gefunden, aber ich dachte vielleicht kann's jemand trotzdem gebrauchen. Vor längerer Zeit hatte ich ein ähnliches Problem und habe auch das Blau hinterlegte Produkt benötigt. Dazu hatte ich von Birger Hahn unter http://www.tech-ecke.de/index_quereinstieg.htm?/catscript/diverse_codeschnipsel.htm folgendes gefunden:
Code: Sub CATMain()if TypeName(CATIA.ActiveDocument) = "ProductDocument" then set selection1 = CATIA.ActiveDocument.Selection selection1.Clear selection1.Search "(CATProductSearch.Product),in" if selection1.Count = 0 then ' wenn ein Part innerhalb des Products aktiv ist ---> Part im Product selection1.Search "(CATPrtSearch.PartFeature),in" set DokumentInst = GetDocumentByName(selection1.item(1).Value.Name) ' Instanz set Dokument = DokumentInst.ReferenceProduct.Parent ' Dokument selection1.Clear else ' wenn ein Product innerhalb des Products aktiv ist ---> Product im Product set DokumentInst = selection1.Item(1).Value ' Instanz set Dokument = DokumentInst.ReferenceProduct.Parent ' Dokument selection1.Clear end if else ' wenn das aktive Dokument ein Part ist set Dokument = CATIA.ActiveDocument end if MsgBox TypeName(Dokument) &": " &Dokument.Name ' Ergebnis = das aktive Part bzw. Product End Sub Function GetDocumentByName(DokName) On Error Resume Next set Dokumente = CATIA.Documents for n = 1 to Dokumente.count set Produkte = Dokumente.Item(n) WieOft = 0 WieOft = Produkte.product.products.count for i = 1 to WieOft set Produkt = Produkte.product.products.item(i) if DokName = Produkt.PartNumber then set GetDocumentByName = Produkt Exit Function end if next next End Function
Damit lässt sich das aktuell in Bearbeitung befindende Part/Produkt abfragen.
Gruß, Sebastian
------------------ "Die Genialität einer Konstruktion liegt in ihrer Einfachheit. Kompliziert bauen kann jeder." - Sergej P. Koroljow Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|