|
CATIA V5 Programmierung : CatVBA Makros auf anderen Rechner
Jens Hansen am 21.01.2009 um 15:39 Uhr (0)
@tomtom,du hast Recht !! Bei LateBinding bekommt man nur das jeweilige Objekt. Man kann nicht wie in VB6 vom ersten Zugriff von V5 von der Application bis bis zum letzten BREP alles auf einmal sehen - wirklich nur das jeweilige Objekt.Da müssen wir wirklich bis CATIA V6 warten - dort solls ja das CATIA-Namespace geben ... warten wir es mal ab SGJens Hansen------------------Inoffizielle CATIA-HilfeseitePrivate SeiteXingKochbuch - CATIA V5 automatisieren
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
CEROG am 21.01.2009 um 19:12 Uhr (0)
Zitat:Original erstellt von bgrittmann:ServusDabei handelt es sich um eine 2D-Komponente diese werden als [b]DrawingComponent angesprochen und nicht als View (siehe Doku).GrußBernd[/B]Nicht ganz, es handelt sich bei DrawingComponents um die Instanzen der 2D-Komponenten. Wenn man über die DrawingComponents geht, wird es komplizierter. Dann mußt du mit CompRef an die Referenz der DrawingComponent und kannst dann an den Namen. Bei einem Makro zum Kopieren einer Ansicht aus einer Zeichnung in eine andere bin ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CatVBA Makros auf anderen Rechner
Jens Hansen am 20.01.2009 um 12:10 Uhr (0)
@Daniel: du hast Recht, wenn du dich auf reine VBA-Makros beziehst. In meinem Buch habe ich aber alle "normalen" Makros (also catvbs) als eigenständige Module geschrieben, die sich problemlos exportieren lassen. Heraus kommt dann ein catvbs, was auch mit dem normalen Macro-Editor hätte geschrieben werden können. Für die VBA-makros mit Oberfläche muss natürlich die VBA-Bibliothek bzw. das VBA-Projekt verfügbar sein.SGJens Hansen------------------Inoffizielle CATIA-HilfeseitePrivate SeiteXingKochbuch - CATIA ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : newWindow (?) für stl export
bgrittmann am 06.12.2013 um 17:04 Uhr (1)
ServusEin STL fügst du in ein CATProduct über die Methode "AddComponentsFromFiles" ein:Code:Sub CATMain()Dim productDocument1 As ProductDocumentDim product1 As ProductDim products1 As ObjectDim arrPartDocument(0) As VariantSet productDocument1 = CATIA.ActiveDocumentSet product1 = productDocument1.ProductSet products1 = product1.Products arrPartDocument(0) = "c: empTestSTL.stl"products1.AddComponentsFromFiles arrPartDocument, "All"End SubGrußBernd------------------Warum einfach, wenn es auch komplizier ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CatVBA Makros auf anderen Rechner
bgrittmann am 20.01.2009 um 11:08 Uhr (0)
ServusIch dachte, dass VB6 automatisch mit CATIA installiert wird?Läuft denn ein "normales" catvbs-Script?Oder ist nur ein anderer Standardeditor eingestellt? Welche Fehlermeldung kommt den?GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
bgrittmann am 21.01.2009 um 14:06 Uhr (0)
ServusMeiner Meinung sollte es so sein (nicht getestet):Code:Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocumentDim drawingSheets1 As DrawingSheetsSet drawingSheets1 = drawingDocument1.SheetsDim drawingSheet1 As DrawingSheetSet drawingSheet1 = drawingSheets1.Item("Details")msgbox(drawingSheet1.name)Dim drawingView1 as DrawingViewSet drawingView1 = drawingSheet1.Views.item("Name1")drawingView1.SetViewName ("","test","")Schau dir mal die Doku an. Dort sind zu den meisten Befehlen kurz ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
CEROG am 22.01.2009 um 11:04 Uhr (0)
Hallo WilliGo,versuch es mal damit:Es fehlen jetzt noch die Deklarationen.[CODE]Details umbenennenFor I = AnzahlBlaetter To 1 Step -1 Set oSheet = oSheets.Item(I) If oSheets.Item(I).IsDetail Then Set oViews = oSheets.Item(I).Views For J = oViews.Count To 3 Step -1 Name = oViews.Item(J).Name Pos = InStr(Name, "[") - 1 If Pos 1 Then oViews.Item(J).Name = Left$(oViews.Item(J).Name, Pos) End If oViews.Item(J).Name = I & "_" & J & "#" & oViews.Item(J) ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
WilliGo am 22.01.2009 um 12:26 Uhr (0)
Hallo CEROGvielen Dank für den Code.Haben den Code eingebaut und getestet. Bekomme jetzt aber die folgende Meldung, die ich aber nicht verstehe. "Anweisungsende erwartet = Next J"Die Schleife ist doch beendet mit Next JVielleicht stecke ich auch noch zu sehr in den Kinderschuhen. Sub CATMain() Dim drawingDocument1 As Document drawingDocument1 = CATIA.ActiveDocument Dim drawingSheets1 As DrawingSheets drawingSheets1 = drawingDocument1.Sheets Dim drawingSheet1 As DrawingSheet drawingShe ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro-Bohrung R16 und R17
Filippo am 22.01.2009 um 14:15 Uhr (0)
Hallo,beim erzeugen von Bohrungen mit Makros habe ich bemerkt das CATIA ab V5R17 weniger Parameter erzeugt als mit V5R16.Natürlich ist jetzt auch so das gerade der Parameter den ich brauche nicht mehr erstellt wird! Hat jemanden sowas auch bemerkt und wenn ja, gibt es eine lösung?Im Anhang ist ein CATPart, ein CATScript und 2 JPG-DateinCiao,Filippo
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
CEROG am 22.01.2009 um 15:25 Uhr (0)
Hallo Willi,räum doch erst mal deinen Code auf. Du hast irgendwelche Objekte - deine ursprünglichen - deklariert und verwendet andere, nämlich die aus meinem Code.... Das ist zumindest schlampig und erschwert die die Fehlersuche.Noch ein Hinweis:Die erste View ist immer die Main View, die zweite die BackgroundView, auch bei DetailSheets. Deshalb gehe ich bis 3 runter. Du kannst natürlich auch hochzählen. In meinem Gesamtcode hat es sich insgesamt als günstiger erwiesen, runter zu zählen...Views solltest du ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SetViewName funktioniert nicht
CEROG am 22.01.2009 um 17:46 Uhr (0)
Hallo zusammen,@WilliGo:Ich habe deinen Code mal bereinigt. In dieser Form ist er noch nicht getestet. Code:Sub CATMain() Dim oDoc As DrawingDocument Dim oSheets1 As DrawingSheets Dim oSheets As DrawingSheets Dim oSheet As DrawingSheet Dim oViews As DrawingViews Dim I, J, Pos As Integer Set oDoc = CATIA.ActiveDocument Set oSheets = oDoc.Sheets Set oSheet = oSheet.Item("Details") -------------Details umbenennen------------ For I = oSheets.Count To 1 Step -1 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Produkt und Part öffnen, anschließend Part in produkt einfügen
Florian Held am 22.01.2009 um 18:24 Uhr (0)
Hi, sorry dass ich so eine Anfängerfrage stellen muss aber ich kann nichts finden was mir hilft und es macht mich fast Wahnsinnig.Mein Code:Path = "C:"Set MyRoot = CATIA.Documents.Open(Path & "HANS.CATProduct")Set MyInsert = CATIA.Documents.Open(Path & "EGON.CATPart")MyRoot.Product.Products.AddComponent (MyInsert.Product)Die Letzte Zeile, welche das geöffnete Part EGON.CATPart in das geöffnete Produkt HANS.CATProduct einfügen soll bringt einen Fehler.Weis wer warum bzw. was ich falsch mache?PS: AddComponen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : newWindow (?) für stl export
CAMiCADse am 22.01.2009 um 20:07 Uhr (1)
Hall Smerg, Zitat:Original erstellt von Smerg:hmmm, ist leider nicht, dass was ich meine...Ich möchte direkt aus einem Produkt heraus ein neues Window machen und dort nur aus dem aktiven Produkt, die Komponenten für den stl Export einfügen... und soweit ich weiß geht der Export eines Produktes nicht als stl!?hmmm, hast du meinen Vorschlag schon mal ausprobiert?Solltest du mal machen, ist nämlich genau dass, was du meinst...(Vorausgesetzt, da funkt kein PDM dazwischen)Da CATIA das Document nicht neu von der ...
|
| In das Form CATIA V5 Programmierung wechseln |
