|
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 : 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 : 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 |
|
CATIA V5 Programmierung : VBA, Parameterwerte auslesen
Tweety79 am 02.05.2016 um 15:34 Uhr (1)
Servus,echt spitze, vielen Dank!!Über die Selection mache ich viel, weil ich das so über das Fernglas in CATIA aufzeichnen kann.auf anderen Wegen funktioniert das Aufzeichnen nur bedingt oder mit vielen Lücken dazwishcen.THX
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Name eines Parameters nach Excel
Tweety79 am 12.05.2016 um 10:36 Uhr (1)
Servus,ich habe jetzt folgendes als Code: Dim myCatiaApp As INFITF.Application Dim myCatiaDoc As MECMOD.PartDocument Dim myPart As MECMOD.Part Dim xlsApp As Excel.Application Dim xlsWB As Excel.Workbook Dim xlsSheet As Excel.Worksheet Dim xlsCell As Excel.Range Dim xlsDatei As String xlsApp = New Excel.Application xlsApp.Visible = True xlsWB = xlsApp.Workbooks.Open("F:PFDMacros_ToolsCATIA_to_ExcelParameter_To_ExcelParameter_CATIA.xlsx") xlsSheet = xlsWB.Worksheets(1) ...
|
| 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 : Fortschrittsbalken für Schleife
Tweety79 am 15.07.2016 um 11:25 Uhr (1)
Hallo,ich habe einen Fortschrittsbalken und dazu einen Backgroundworker.Etappenweise lasse ich den Fortschrittsbalken um einen Prozentsatz steigen, den ich aus der Zeit ermittle, die bis zu diesem Schritt benötigt wurde.Dann komme ich zu einer Schleife, die Werte in einer großen Excel Datei ausliest und in CATIA operationen durchführt.Bis zu der Schleife werden 40% angezeigt, dann steht der Balken für 10min und danach sprigt der Balken auf 80%, weil ich das so eingestellt habe.Wie kann ich sagen, dass in d ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : 3D Section automatisch umbenennen
Tweety79 am 10.11.2016 um 13:41 Uhr (1)
Jetzt habe ich es so umgeschrieben dass nichts mehr mit Dim ... drin steht und es funktioniert:Sub CATMain() Set oprod = CATIA.ActiveDocument.Product Set TheSections = oprod.GetTechnologicalObject("Sections") Set mySection = CATIA.ActiveDocument.Product.GetTechnologicalObject("Sections") Set oSection = oprod.GetTechnologicalObject("Sections") Set oSection = mySection.item(1)MsgBox oSection.Name oSection.Name = "BlaBla"End SubVerstehe aber trotzdem nicht, wo der Fehler war ...Grüße
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Umbenennen Products auf allen Ebenen
Tweety79 am 25.11.2016 um 17:17 Uhr (1)
Hallo,ich möchte in einem PRoduct ALLE darin enthaltenen Products auf ALLEN Ebenen so umbenennen, dass der ursprüngliche Name duch Datum erweitert wird.Mit meinem Code werden ALLE Products gefunden, in der Schleife auch deren Namen, aber umbenannt wird zum Schluss nur der Name des obersten Products.Was ist in meinem Code falsch?Hier mein Code: Dim myCatiaApp As INFITF.Application Dim myProduct As ProductStructureTypeLib.Product Dim myProductDoc As ProductStructureTypeLib.ProductDocument Dim myP ...
|
| 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 FEM : Übungsaufgaben
Tweety79 am 18.11.2008 um 11:23 Uhr (0)
Hi!Weiß jemand Links, wo man Aufgaben zu FEM in CATIA, z.B. für Studenten finden kann?Danke.
|
| In das Form CATIA V5 FEM 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 |
