|
CATIA V5 Programmierung : Symbole in Tabelle einfügen
Lusilnie am 25.07.2008 um 01:03 Uhr (0)
Hallo VBAler,wie ich mir dachte, ist die Theorie die gleiche wie in V4 - Text mit speziellem Font- , doch die Nachforschungen dauerten leider etwas.Fazit: Auch in V5 sind Symbole NUR Text-Charakter mit einem speziellen Font.Als Beispiel habe ich Dir mal ein Script mit dem Symbol "Symmetrie" gezimmert:Code:Sub CATMain() Dim drawingDocument1 As DrawingDocument Set drawingDocument1 = CATIA.ActiveDocument Dim processView As DrawingView Set processView = drawingDocument1.Sheets.ActiveSheet.Views.ActiveVie ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part anhand seines Dateinamen suchen
Lusilnie am 28.02.2006 um 22:19 Uhr (0)
Hallo yvi5555,was meinst Du mit "als Part deklariert/aktiviert werden"?Wenn Du das soeben eingefügte Part ansprechen willst, sollte dies mit:Code:Dim iPart As PartSet iPart = products1.Item(products1.Count)funktionieren. Alle Operationen und Kommandos, die Du dann auf "iPart" beziehst, werden in diesm Part ausgeführt!zu Frage 2 (Informationsquellen): - http://catia.cad.de/v5/didaktv5.htm - Visual Basic Editor (Ist bei Windows-CATIA-Version enthalten) - damit kann man auch CATScript (mit kleinen Anpassun ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Edit Back ground
Lusilnie am 20.10.2006 um 10:09 Uhr (0)
Hallo leipziger,hilft Dir dies:Code:Option ExplicitLanguage = "VBSCRIPT"Sub CATMain() Dim drawingDocument1 As drawingDocument Set drawingDocument1 = CATIA.ActiveDocument Dim drawingSheets1 As drawingSheets Set drawingSheets1 = drawingDocument1.Sheets Dim drawingSheet1 As drawingSheet Set drawingSheet1 = drawingSheets1.ActiveSheet If drawingSheet1.Views.ActiveView.name = drawingSheet1.Views.Item(2).name Then drawingSheet1.Views.Item(1).Activate Else drawingSheet1.Views.Item(2).Activate End If ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Text Properties im Drawing
Lusilnie am 25.10.2006 um 22:14 Uhr (0)
Hallo Hokay,nach meiner Meinung funktioniert das mit der Textbreite nur für Texte, nicht für eine Selektion!Es müßte also etwa so lauten (ungetestet, da CATIA gerade nicht vorhanden!):Code:Dim K as IntegerFor K = 1 to selection1.count selection1.Item(K).Value.visProperties.SetParameterOnsubString catCharSpacing,0,0,70Next( Oder ohne ".Value" ?)mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!frei nach größeren Geistern
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Text Properties im Drawing
Lusilnie am 25.10.2006 um 22:14 Uhr (0)
Hallo Hokay,nach meiner Meinung funktioniert das mit der Textbreite nur für Texte, nicht für eine Selektion!Es müßte also etwa so lauten (ungetestet, da CATIA gerade nicht vorhanden!):Code:Dim K as IntegerFor K = 1 to selection1.count selection1.Item(K).Value.visProperties.SetParameterOnsubString catCharSpacing,0,0,70Next( Oder ohne ".Value" ?)mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!frei nach größeren Geistern
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Text Properties im Drawing
Lusilnie am 25.10.2006 um 22:14 Uhr (0)
Hallo Hokay,nach meiner Meinung funktioniert das mit der Textbreite nur für Texte, nicht für eine Selektion!Es müßte also etwa so lauten (ungetestet, da CATIA gerade nicht vorhanden!):Code:Dim K as IntegerFor K = 1 to selection1.count selection1.Item(K).Value.visProperties.SetParameterOnsubString catCharSpacing,0,0,70Next( Oder ohne ".Value" ?)mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!frei nach größeren Geistern
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Geometrie aus dem Blatthintergrund
Lusilnie am 22.01.2008 um 00:05 Uhr (0)
Hallo cevk,sollte es nicht so gehen:Code:Sub copieren() Set drwdocument = CATIA.ActiveDocument Set DrwSheets = drwdocument.Sheets Set DrwSheet = DrwSheets.ActiveSheet Dim selection3 As Selection Set selection3 = drwdocument.Selection selection3.Clear selection3.Add DrwSheet.Views.Item(2) selection3.Search ("Name=*Testlinie*,all") selection3.Copy selection3.Clear selection3.Add DrwSheet.Views.Item(2) selection3.PasteEnd SubDamit sollte die Auswahl aus dem Background des aktuellen Sheets kopiert ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameter überprüfen ob vorhanden
Lusilnie am 18.08.2007 um 00:39 Uhr (0)
Hallo AndreeX00X,der Code kann nicht das gewünschte Ergebnis haben, denn es bringt nichts, erst zu prüfen, ob ein bestimmter Paramter existiert und ihn dann, ungeachtet des Prüfergebnisses, neu anzulegen. Du solltest das Prüfergebnis schon verarbeiten, etwa so:Code:Sub ParameterErzeugen() Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument ***** Deklarationen wenn notwendig Dim part1 As Part Set part1 = partDocument1.Part Dim parameters1 As Parameters Set parameters1 = part1.Param ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : SPAWorkbench - Measurable
Lusilnie am 25.07.2008 um 02:11 Uhr (0)
Hallo FiRo,meine erste (dumme) Frage ist: Weißt Du eigentlich, was Du tust bzw. programmierst?Nach meinem bescheidenen Verständnis kann das, was Du da an Code-Schnipsel hast, nie funktionieren! Warum? Du deklarierst zwar einen Punkt, erzeugst ihn aber nicht. Und dann versuchst Du die Koordinaten dieses nicht vorhandenen Punktes auszulesen und wunderst Dich, dass CATIA sagt: "Geht nicht!".Ich habe Deinen Code mal so angepasst, dass er läuft:Code: Dim p As Part Dim hybridBody As HybridBody Dim hybridShapeFac ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Variablendeklaration, warum plötzlich nötig?
Lusilnie am 25.04.2007 um 20:18 Uhr (0)
Hallo Goosnargh,noch ein Tipp /eine Erklärung: Falls Du das Problem bei der Arbeit mit dem VBA-Editor von CATIA hast, dort kann man das explizit in den Optionen einstellen, ob das "Nicht-Deklarieren" zugelassen wird oder nicht.mfg,Lusilnie------------------Alle Aussagen zu DassaultSystemes-Produkten sind sehr optimistisch, selbst diese!!!frei nach größeren Geistern
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : absolute Koordinaten von Punkten im Product
Lusilnie am 08.09.2005 um 22:49 Uhr (0)
Hallo achulio,ich weiß nicht, ob Du noch einen Lösungsvorschlag brauchst, aber das runterrechnen der Position des Punktes aus dem Part auf das Produkt müßte mit einer Matrix-Multiplikation in Art der Beispiele aus der CATIA-Hilfe (DMUPstCopyPasteKeepAbsolutePosition.CATScript und DMUPstCutPasteKeepAbsolutePosition.CATScript, siehe Anhang) funktionieren.Ich habe das spezielle Vorgehen in Deinem Fall allerdings auch noch nicht probiert. Ist nur eine Idee!mfg,Lusilnie
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA hat keine Kontrolle nach Makro lauf
Lusilnie am 26.09.2005 um 00:44 Uhr (0)
Hallo Filippo,versuchs mal mit: Dim Status As Integerund If Status = "2" Then Exit Submfg,Lusilnie
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA hat keine Kontrolle nach Makro lauf
Lusilnie am 26.09.2005 um 23:13 Uhr (0)
Hallo Filippo,entschuldige bitte, war die Abfrage fuer MsgBox!Habe Dein Scenario nochmal durchgespielt und muss "Stoffel" recht geben: Es funktioniert mit "Cancel" und bringt einen Fehler mit "cancel"!Meine Test-Umgebungen: V5R14SP3HF22 und V5R14SP3HF26mfg,LusilniePS: Bei V5R14 (ohne SP und HF) funktioniert sowohl "Cancel" als auch "cancel" !!!
|
| In das Form CATIA V5 Programmierung wechseln |
