|
CATIA V5 Programmierung : Macro-Punkte
Tweety79 am 18.12.2008 um 09:00 Uhr (0)
Hi, Denyo_1!Danke auch dir erstmal für alles Bisherige.Nun zu deinen Fragen:Ich brauche einen Srcipt nicht das andere.Mein Kernproblem und das was ich am allernötigsten brauche, ist dass mir das MAcro 3DKoordinaten für Punkte und Namen dieser Punkte in der Zeichnung in ein kleines TAbellchen schreibt - jeder Punkt eine Tabelle. Die Ansichtserstellung war auch sehr nötig, aber das habe ich noch hingebogen, dass es funktioniert.Also:In meinem Part habe ich z.B. einen Punkt, der heißt "Mittelpunkt". Ich will ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Drafting : Text im Kreis
Tweety79 am 04.08.2009 um 14:14 Uhr (0)
Hi!Vielen dank für die Antworten. Insbesondere für das Macro. Ich versuche mir gerade die Programmierung beizubringen und bin am anfang.Ich habe da sMacro gestartet und ich kann schreiben, aber nicht im Kreis.Mal kurz für blöde: was muss ich da anpassen, damit es geht? Ich habe es gestartet, dann will er ein Befehl. Da bin ich auf schreiben und habe geschriben was ich haben wollte. Aber im Macro ist der Text enthalten. d.H. ich ´üßte gar net schreiben. welchen Befehl will er haben?Danke.
|
| In das Form CATIA V5 Drafting wechseln |
|
CATIA V5 Programmierung : SN suchen
Tweety79 am 19.03.2009 um 14:01 Uhr (0)
Hi!Hier eine Frage, die eher nur mit Programmierung generell als mit CATIA zu tun hat, aber vielleich weiß es jemand:Gibts irgendwo ein Programm, mit dem ich in einem Ordner auf Laufwerk X, in allen Excel-Dateien nach einer SN (Sachnummer), z.B. *7561223* suchen kann?Danke.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Befehl - Text in nächste Zeile
Tweety79 am 03.01.2009 um 21:37 Uhr (0)
Hi!Weiß jemand wie beim Schreiben von Texten der Befehl für "spring in die nächste Zeile" lautet?In meinem Macro heißt es wie folgt:Set dText = DrawingView.Texts.Add ("Punkt = " & refpoint1.Name & " X = " & FormatNumber(Round(CStr(koords1(0)),1),1), dPosX+10, dPosY+20)Nach "refpoint1.Name" will ich, dass "X" und was folgt in die nächste Zeile geschrieben wird - siehe JPG.Ich habe versucht nochmals Koordinaten einzufügen mit dPosY+16, aber das erlaubt CATIA nicht.Kennt sich jemand aus?Danke.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Macro-Punkte
Tweety79 am 16.12.2008 um 15:25 Uhr (0)
Ok. Ich lasse es sein.Danke.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameterwerte bei Single values abgreifen
Tweety79 am 13.05.2016 um 12:38 Uhr (1)
Hi Bernd, du hattest Recht. Ich habe nun MyArrayWert() As String in MyArrayWert() As Object geändert und die Werte erscheinen als Zahlen.Ist der Wert in Catia 2000 mm² wird er aber als 0,002 in Excel geschrieben.Wenn ich das noch gelöst habe, habe ich heute viel gelernt :-).Grüße
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Macro-Punkte
Tweety79 am 16.12.2008 um 14:52 Uhr (0)
Ist klar. Ich dachte es gibt etwas, wo wenigstens Teile der Befehle drin sind.Danke.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PatternName Save Management
Tweety79 am 05.12.2016 um 10:59 Uhr (1)
Hi Joe,ich habe mein Profil erweitert, danke für den Hinweis.Vielleicht liegt es daran, dass ich V5R24 schon verwende, dass dein Macro bei mir nicht funktioniert.Sobald eine Deklaration Dim ... enthalten ist, wird sofort ein Fehler ausgegeben.Den Fehler in der Zeile, mit der man CATIA App aktiviert habe ich umgehen können durch:Imports VB = Microsoft.VisualBasicVB.Interaction.AppActivate("Save Management")an der Stelle geht es also schon mal weiter.Wo aber meine SendKeys danach landen, weiß ich nicht. Am S ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zugridd auf Compare in DMU
Tweety79 am 18.03.2019 um 15:49 Uhr (1)
Servus Bernd und alle anderen,ich haben mir inzwischen soviel zusammen geschustert:Erstmal ist einfach nur ein Product mit zwei Bauteilen offen, um zu sehen, ob ich das Macro überhaupt hinbekomme.Sub CATMain() Set productDocument1 = CATIA.ActiveDocument Set product1 = productDocument1.Product Set products1 = product1.ProductsSet compareWorkBench1 = productDocument1.GetWorkbench("Digital Mock-Up Space Analysis Workbench") ' Was vergleiche ich: Part 1 und 2 des Products Set product2 = products1.Item(1) Set p ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Macro-Punkte
Tweety79 am 19.12.2008 um 08:32 Uhr (0)
Vielen, vielen Dank.Frohe Weihnachten.Schönen Gruß
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Name eines Parameters nach Excel
Tweety79 am 11.05.2016 um 20:11 Uhr (1)
Hallo,wie kann ich die Namen aller Parameter eines ParameterSets, die mit "Fall" anfangen, kopieren und in Excel in die Zellen schreiben?vb.NETEs sind zum Beispiel 5 Parameter, deren Name mit "Fall" anfangen ( unter insgesamt 12 ).Der erste Name kommt in Excel nach B2, der zweite nach C2, der dritte nach D2 ...Ich habe dies als Ansatz:Dim myParamSet As parameterset Dim ModelEl As INFITF.ModelElementmyParamSet = myCatiaDoc.Selection.Item("Fall*").NameModelEl = myParamSet.GetItem("ModelElement")ModelEl.Selec ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Macro Text für Maße
Tweety79 am 24.09.2009 um 11:02 Uhr (0)
Hi!Was muss ich diesem Code noch einfügen, damit er mir auch alle Maße in der Schriftart "SSS1" schreibt, allerding in Größe 3,5?Sub CATMain() Set oDRWDoc = CATIA.ActiveDocument Set oSel = oDRWDoc.Selection Dim i As Integer Dim j As Integer Dim iFont As String Dim iSize As Single oSel.Clear **********************************Definition Schriftart (bei Bedarf anpassen)********************************** iFont = "SSS1" iSize = 20 **********************************Schleife fuer alle Texte************ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Macro Text für Maße
Tweety79 am 24.09.2009 um 11:02 Uhr (0)
Hi!Was muss ich diesem Code noch einfügen, damit er mir auch alle Maße in der Schriftart "SSS1" schreibt, allerding in Größe 3,5?Sub CATMain() Set oDRWDoc = CATIA.ActiveDocument Set oSel = oDRWDoc.Selection Dim i As Integer Dim j As Integer Dim iFont As String Dim iSize As Single oSel.Clear **********************************Definition Schriftart (bei Bedarf anpassen)********************************** iFont = "SSS1" iSize = 20 **********************************Schleife fuer alle Texte************ ...
|
| In das Form CATIA V5 Programmierung wechseln |
