| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für CATIA & Co. |
| | |
 | Schnell, effizient und günstig: Mit der Kisters 3DViewStation 3D Arbeits- und Reparaturanleitungen einfach erstellen und pflegen, eine Pressemitteilung
|
|
Autor
|
Thema: Remove in Product (1488 mal gelesen)
|
JohannesWW Mitglied
 
 Beiträge: 158 Registriert: 09.10.2008 CATIA v5 R16 Intel Core Duo 2,5Ghz 2 GB RAM Windows XP SP3
|
erstellt am: 21. Jul. 2014 15:05 <-- editieren / zitieren --> Unities abgeben:         
Hallo! Mit Remove kann ich Items aus der Klasse Products entfernen. Beispiel: Dim oProducts As products oProducts.Remove oProducts.Item(1) Geht das auch mit dem Typ product? Dim oProduct As Product Oder wie kann man es anstellen? Gruß aus dem Westerwald Johannes Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RSchulz Ehrenmitglied V.I.P. h.c. Head of CAD, Content & Collaboration / IT-Manager

 Beiträge: 5541 Registriert: 12.04.2007 @Work Lenovo P510 Xeon E5-1630v4 64GB DDR4 Quadro P2000 256GB PCIe SSD 512GB SSD SmarTeam V5-6 R2016 Sp04 CATIA V5-6 R2016 Sp05 E3.Series V2019 Altium Designer/Concord 19 Win 10 Pro x64
|
erstellt am: 21. Jul. 2014 15:30 <-- editieren / zitieren --> Unities abgeben:          Nur für JohannesWW
Zitat: Original erstellt von JohannesWW: Dim oProduct As Product
Hallo Johannes, irgendwie hast du das Objektmodell noch nicht verstanden. Ich versuche es mal zu erklären. Das Mainproduct ist ein Object mit dem Inhalt eines "Product". Die Kinder sind im Pool Products und jeder einzelne Produktknoten ist ebenfalls ein Product. Demnach würde das was du machen möchtest wie folgt aussehen.
Code:
Set oProduct= CATIA.ActiveDocument.Product oProduct.Products.remove oProducts.item(1)
...oder was genau plagt dich gerade? ------------------ MFG Rick Schulz Nettiquette (CAD.de) - Was ist die Systeminfo? - Wie man Fragen richtig stellt. - Unities 
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
JohannesWW Mitglied
 
 Beiträge: 158 Registriert: 09.10.2008 CATIA v5 R16 Intel Core Duo 2,5Ghz 2 GB RAM Windows XP SP3
|
erstellt am: 22. Jul. 2014 07:36 <-- editieren / zitieren --> Unities abgeben:         
Hallo Rick! Was mich gerade plagt? Catia! Und folgendes Problem: Dim n As Integer Dim ProductList() As Product ReDim ProductList(oProducts.Count) Dim Index As Integer Index = 1 For n = 1 To oProducts.Count Set TempProduct = oProducts.Item(n) If QtyDict.exists(TempProduct.PartNumber) = True Then QtyDict.Item(TempProduct.PartNumber) = QtyDict.Item(TempProduct.PartNumber) + 1 Else QtyDict.Add TempProduct.PartNumber, 1 Set ProductList(Index) = TempProduct Index = Index + 1 End If Next n
Hier wird ja ein Product ausgelesen. Die Teile finden sich nun im Objekt ProductList. Nun möchte ich in dieser "Liste" gezielt einige Products löschen. Gruß Johannes Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
RSchulz Ehrenmitglied V.I.P. h.c. Head of CAD, Content & Collaboration / IT-Manager

 Beiträge: 5541 Registriert: 12.04.2007 @Work Lenovo P510 Xeon E5-1630v4 64GB DDR4 Quadro P2000 256GB PCIe SSD 512GB SSD SmarTeam V5-6 R2016 Sp04 CATIA V5-6 R2016 Sp05 E3.Series V2019 Altium Designer/Concord 19 Win 10 Pro x64
|
erstellt am: 22. Jul. 2014 10:14 <-- editieren / zitieren --> Unities abgeben:          Nur für JohannesWW
|
JohannesWW Mitglied
 
 Beiträge: 158 Registriert: 09.10.2008 CATIA v5 R16 Intel Core Duo 2,5Ghz 2 GB RAM Windows XP SP3
|
erstellt am: 22. Jul. 2014 12:27 <-- editieren / zitieren --> Unities abgeben:         
|