|
CATIA V5 Programmierung : Probleme mit VBA
danielsc am 29.07.2009 um 13:55 Uhr (0)
Ich hab ja schon vor längerer zeit mal geschrieben das ich Probleme mit meinem VBA unter CATIA hab (hier) und dachte damals ich hab alle Fehler behoben. Jetzt ist mir aber schon vor ein paar wochen aufgefallen das ich von einem Modul kein anderes Modul aufrufen kann. Also im ersten Modul steht:Code:Sub Variable()a="Test"call Zeigen(a)end subund im zweiten Modul steht:Code:Sub Zeigen(a)Msgbob aend subWenn ich jetzt des erste Modul starte müßte er mir ja einfach eine Msgbox mit dem Text "Test" ausgeben. Mach ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Code läuft nicht in CommandButton
moppesle am 08.11.2019 um 20:58 Uhr (1)
Hallo zusammen,@Martin. Es waren keine Missing Referenzen vorhanden.Danke für den Tip@JoernemanDein Code funktioniert bei mir auch.@Joerneman , @BerndEr war bis auf CATMain identisch mit dem von Joerneman.Die CatMain hatte ich in der Form integriert.Nun dachte ich schön, lege ein Modul an und kopiere die CATMain hinein und gut iss.Doch leider funktionierte es immer noch nicht.Wenn ich nun in Joerneman´s Code die CATMain in die Form eingebaut hatte lief das Makro auch.Jetzt habe ich kurzerhand ein neues Pro ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Frei einfärben gemäß Krümmungsanalyse
ThomasJay am 10.07.2012 um 09:31 Uhr (0)
Ja klar, aber dann muss er trotzdem erst 1000e von Geraden erzeugen und speichern. Was ich meine ist, ob es möglich ist, dass CATIA die Geometrie sofort wieder verwirft, also auch im Hintergrund nicht speichert. Ich erzeuge zum Beispiel zwei Punkte mach eine Gerade dazwischen und prüfe ob diese Gerade ein Bauteil schneidet. Diesen Schnittpunkt zähle ich, die Punkte und GEraden brauche ich anschließend nicht mehr. Ich habe nun eben festgestellt, dass dieses zählen auch möglich ist, wenn ich die Punkte u Ger ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Instance Name
Augustiner am 21.06.2007 um 10:26 Uhr (0)
Servus ich möchte eine beliebige Struktur umbenennen(Partnumber und Name).Nun Partnumber ist kein Problem.Aber wie muss ich das Produkt deklarieren damit ich den InstanceNamen umbenennen kann.Hab schon die Beiträge im Forum durchgelesen konnte aber nicht viel damit anfangen.Ich les die Struktur in etwa so aus wie unten dargestellt.Ich hoff es kann mir mal jemand auf die Sprünge helfen........Code:Sub CATMain ()Produktauslesen(CATIA.ActiveDocument.Product)End SubDim x as IntegerSub Produktauslesen (P As Pro ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Define in Work Makro ????
bgrittmann am 19.05.2010 um 19:11 Uhr (0)
ServusDieses Makro lässt sich erzeugen, indem du rekursiv (Forensuche) durch die Produktstruktur durch gehst, und bei jedem Part deinen Code ausführst.Alternativ könnte dass noch durch eine Selektion gehen, zB (ungetestet):Code:Sub CATMain()Dim productDocument1 As DocumentSet productDocument1 = CATIA.ActiveDocumentDim selection1 As SelectionSet selection1 = productDocument1.Selectionselection1.Search "CATProductSearch.Part,all"For X = 1 To selection1.Count2 Dim part As part Set part = selection1.Item ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA V5 Parameter über Python auslesen
zoltan.bekesi am 23.06.2010 um 19:47 Uhr (0)
Hallo,so einfach ist die Sache leider nicht.ich würde es in zwei ineinander verschachtelte ifs machen:Code:if TypeName(param1) = "Dimension" then Länge, Winkel und andere Parameter mit Einheit haben in VB(A) den Datentyp "Dimenion" Dim oDimParam As Dimension Set oDimParam = param1 dieser Schritt würde aber Fehler bringen, wenn es kein "Dimension" wäre if lcase(oDimParam.Unit.Magnitude)="length" then du hast ein Parameter der Typ Länge LCase ist nur für die Vereinfachung drin andere Typen kannst du ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Abmasstabelle
leo666 am 24.11.2004 um 08:54 Uhr (0)
Zitat:Original erstellt von michaelroesch:Hallo Norbert,Das Script schreibt die Abmasse in eine Tabelle und ergänzt die obere und die untere ToleranzDie Tabelle muss auf C:CATIA liegen.die funktion mit folgenden Parametern aufrufen:CATMain(X, Y, A)X = Tabelle in X RichtungY = Tabelle in X RichtungA = z.b. CatTableTopRight (Aufhängepunkt der Tabelle)wenn ihr den Code verbessert ;-) oderdie Abmasstabelle ergänzen solltet bittesendet mir bitte eine kopie damit ich Schreibkram SpareGruß Michael[Diese Nachrich ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Sub in Modul in CATVBA durch/in CATVBS starten
Florian Held am 13.03.2009 um 20:38 Uhr (0)
Hi,aus einem Sub in einem Modul herraus ein catvbs zu starten ist ja kein Problem:Code:Dim NurBeispiel()CATIA.SystemService.ExecuteScript "D:Makros", catScriptLibraryTypeDirectory, "VB_gestartet.catvbs", "Test", NurBeispielABER:Weis jemand ob ich auch von einem CATVBS ein Sub in einem Modul in einer CATVBA starten kann?Habe das Problem dass mein Startmakro catvbs ist und ich dies auch nicht auf catvba umstellen kann.Und vielleicht geht es ja sogar. Weis da jemand was zu ?Danke für alle Zuschriften!------- ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Path von Part in Product herausfinden
mm-home am 07.09.2015 um 11:00 Uhr (1)
Hallo Bernd,ich habe jetzt den DEFAULT_MODE ausprobiert, jedoch lädt mir da Catia zuviel nach...Bei meinem aktuellen Worst Case Szenario dautert das Laden in den DEFAULT_MODE 15 Minutenund es werden 15GB an Daten nachgeladen.Ich hab auch wie in deinem Hinweis zuerst den VISUALIZATION_MODE "geladen", was bei mir scheinbar jedoch nichts bringt.Übers Wochenende kam mir noch eine Idee, jedoch hab ich noch keine Methode "GetParent" gefunden(oder ich stell mich gerade nur etwas an...)Hintergrund ist, dass ich ve ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Teilenamen ändern in einer Unterkomponente
CTenschert am 12.08.2004 um 16:45 Uhr (0)
Getestet auf Win2k R12SP5 und WinXP R10Sp4 Ich möchte abc.1 in xyz.1 umbenennen Folgende Productstruktur +Part1(abc.1) | +Komponente + Part1(abc.1) | + Part1(abc.2) Dann rufe ich dieses VBA-Makro auf: Sub CATMain() Dim MyProduct As ProductDocument Dim MyProducts As Products Set MyProduct = CATIA.ActiveDocument Set MyProducts = MyProduct.Product.Products MyProducts.Item(1).Name = xyz.1 MyProducts.Item(2).Products.Item(1).Name = xyz.2 MyProducts.Item(2).Product ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektion abbrechen
Bernod am 08.06.2010 um 15:26 Uhr (0)
Hallo,ja, wie erwähnt kann man das über ESC abbrechen. Der Code kann dann z.b. So aussehenCode: Dim Filter(0) Filter(0) = "Point" Dim Text As String Text = "Bitte einen Punkt selektieren. Zum Abbrechen ESC drücken." Set Sel = CATIA.ActiveDocument.Selection Sel.Clear Dim intselabfragestr As String intselabfragestr = Sel_Body.SelectElement2(Filter, Text, False) Gibt Rückgabewert über Status der Selektion If intselabfragestr = "Normal" Then Wenn Selektion erfolgreich, dann.. [was auch ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Elemente in Drawing: Farbe ändern
wumpel am 30.10.2008 um 08:17 Uhr (0)
Hallo,ich versuche mich seit einiger Zeit daran in einer CATDrawing alle Elemente mit der Farbe "orange" in "schwarz" zu ändern.Es klappt aber nicht.Mittlerweile glaube ich nicht mehr an den Erfolg.Eine ähnliche Aktion führe ich im 3D aus - klappt wunderbar.Nur im Drawing macht das Script nicht das, was ich möchte.Kann mir jemand die Zeilen umstricken, die ich vermasselt habe?Irgendwo hierdrin habe ich mich verrannt: Code:Dim DrawingDocument1 As Document Set DrawingDocument1 = CATIA.ActiveDocument Dim dr ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zugriff auf UserSurface
Robert B. am 24.06.2009 um 10:35 Uhr (0)
Hallo,ich bin neu in der Welt der Makroprogrammierung und scheitere beim Versuch ein UserSurface anzusprechen. Ich bekomme die Fehlermeldung "Method IsNull of object UserSurfaces failed"Kann mir jemand sagen was ich falsch mache?Hier der Code: Sub catmain() Dim documents1 As Documents Set documents1 = CATIA.Documents Dim partDocument1 As PartDocument Set partDocument1 = documents1.Item("Test.CATPart") Dim part1 As Part Set part1 = partDocument1.Part Dim usersurfaces1 As UserSurfaces Set usersurfaces1 = par ...
|
| In das Form CATIA V5 Programmierung wechseln |
