---

Hallo miteinander

Möchte gerne noch mal ein altes Problem aufrollen (vom 07.Jan.2003), und zwar schrieb rolF:

„Hallo zusammen !
ich würde gerne aus eine VB-Makro heraus einen Katalog öffnen und daraus Teile selektieren die an bestimmten Positionen in mein Dokument eingefügt werden. Leider hab ich nirgends rausbekommen wie man in der Skriptsprache auf Kataloge zugreifen kann.“

Leider habe ich ein ähnliches Problem, hat jemand eine Idee wie man an die Problematik herangeht ????

Gruss Thorsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Thorsten,

bei mir geht es so:

Sub main()
Set DrwDocument = Catia.ActiveDocument
Set DrwSheets = DrwDocument.Sheets
Set DrwSheet = DrwSheets.ActiveSheet
Set DrwView = DrwSheet.Views.Item(1)

Set KatalogDocument = Catia.Documents.Read("C:\Catia\Katalog\Katalog.CATDrawing") 'Pfad der KatalogDrawing
Set KatalogSheets = KatalogDocument.Sheets
Set KatalogSheet = KatalogSheets.Item("2D Komponenten")
Set KatalogViews = KatalogSheet.Views
Set KatalogView = KatalogViews.Item("XXX") 'Name der 2D-Komponente
Set KatalogComponents = DrwView.Components
Set KatalogComponent = KatalogComponents.Add(KatalogView, 50, 100)
End Sub

Gruß
Guido

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Besten Dank für die Antwort 

Muss das ganze nur noch auf einen Bearbeitungsprozess im "Advanced Machining" umschreiben, hoffe mal das gestaltet sich nicht all zu schwer...

Gruss Thorsten

[Diese Nachricht wurde von thorstenS am 15. Mai. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo guido

ich hab dein code uebernommen da ich eine aenliche aufgabe erledigen muss. doch ich bekomme immer wieder die fehlermeldung:
object doesen't support tjs property or method: KatalogDocument.Sheet no supported 

was fehlt ihm denn??! 

koenntest du mit bitte dabei behilflich sein?

danke
sha

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

> was fehlt ihm denn?

Ein "s". Sheet und Sheets sind zweierlei.

Markus

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

scriptfehler.JPG

> > was fehlt ihm denn?
> Ein "s". Sheet und Sheets sind zweierlei.

danke markus, aber das ist mir klar. war ein tippfehler von mir    das ding klemmt irgendwo anders.
anbei ein screenshot mit der fehlermeldung.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo leute

das geheimnis hat sich gelueftet
die methode funktioniert nur bei catdrawing!!! bei catalogobiekte klemmt es eben 
tja, wenigstens hab' ich das herausgefunden...

hat jemand 'ne ahnung wie man elemente aus .catalog dateien rausfischen kann?

gruesse aus transylvanien
sha

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Kann mich dieser Frage nur anschließen..

"hat jemand 'ne ahnung wie man elemente aus .catalog dateien rausfischen kann?
"
Wäre toll wenn jamand ne gute idee hat.

Gruss Thorsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo zusammen,
wenn in einem Code so etwas wie DrwDocument (Drw Abkürzung für Drawing) oder 2D-Komponente steht, ist es glaube ich kein Geheimnis, dass dieses Skript nur aus einer Zeichnung gestartet wird. Wenn ich in einem Assembly ein Katalogteil einfügen möchte handelt es sich doch nur um ein gewöhnliches Part. Also habe ich einfach mal eine Makroaufzeichnung gestartet(aus Assembly Design). Da kommt (oh wunder) auch mal etwas sinnvolles heraus:

Sub CATMain()

Dim productDocument1 As ProductDocument
Set productDocument1 = Catia.ActiveDocument

Dim product1 As Product
Set product1 = productDocument1.Product

Dim products1 As Products
Set products1 = product1.Products

Dim arrayOfVariantOfBSTR1(0)
arrayOfVariantOfBSTR1(0) = "C:\Catia\B16\intel_a\startup\components\MechanicalStandardParts\ISO_Standards\Models\ISO_1207_GRADE_A_SLOTTED_CHEESE_HEAD_SCREW.CATPart"
Set products1Variant = products1
products1Variant.AddComponentsFromFiles arrayOfVariantOfBSTR1, "All"

End Sub

Vielleicht hilft es ja.

Gruß
Guido

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ich glaube, ich habe mich nicht ganz eindeutig ausgedrueckt...

den skript habe ich aus einer zeichnung gestartet. ziel ist, zeichnungsrahmen und schriftkopf (firmenspezifisch)in einer zeichnung einzufuegen. die obigen habe ich schon als *.catalog-datei abgespeichert. zz habe ich es geschafft, zeichnungsrahmen und kopf per skript im background einzufuegen (instantiate 2d components- teilweise mit makroaufzeichnung erhalten). damit es klappt muessen diese elemente in der zeichnung als details vorhanden sein. die idee ist, objekte aus dem katalog zu holen und im background einfuegen, ohne das die in einem detailsicht erscheinen.
ich hoffe, ich war jetzt klar genug :-)

schrauben usw habe ich schon in assembly design eingefuegt. moechte analog in drafting vorgehn. es muesste doch klappen. oder...?

gruesse
sha

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP