|
CATIA V5 Programmierung : Catia starten ohne den intsallPath zu kennen
Filippo am 10.11.2003 um 14:24 Uhr (0)
Hallo, ich denke so sollte gehen (siehe Anlage). Start- Ausführen... Eingabe: cnext Ciao Filippo
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : ICON mit VBA DEFINITION
Filippo am 22.01.2004 um 19:14 Uhr (0)
Hallo Feyza,noch besser ist wenn man die Startmodelle mit so ein Makro öffnet:#################################################Language="VBSCRIPT"Sub CATMain()Dim documents1 As DocumentsSet documents1 = CATIA.DocumentsDim partDocument1 As DocumentSet partDocument1 = documents1.NewFrom("D:DATENcadCatiaStandard.CATPart")End Sub################################################CiaoFilippo
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zeichnungsrahmen per Makro einfügen
Filippo am 17.05.2004 um 20:58 Uhr (0)
Hallo n4426, hier das Makro. Language= VBSCRIPT +++++++++++++++++++++++++++++++++++++++++++++++++++++ Sub CATMain() Dim documents1 As Documents Set documents1 = CATIA.Documents Dim drawingDocument1 As Document Set drawingDocument1 = documents1.NewFrom( D:DATENCatiaDrawing_Vorlage.CATDrawing ) Dim drawingSheets1 As DrawingSheets Set drawingSheets1 = drawingDocument1.Sheets Dim drawingSheet1 As DrawingSheet Set drawingSheet1 = drawingSheets1.Item( Blatt .1 ) drawingSheet1.Activate End Sub +++++++++++++++++ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Edit_Part_in_Product
Filippo am 12.08.2004 um 19:35 Uhr (0)
Hallo Ronny, ich habe die EXE auch nur vom CAD-Forum, ich weis nur das man alle Catia-Funktionen damit aufrufen kann. Ciao Filippo
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Eigenschaft von Parts bearbeiten
Filippo am 13.11.2003 um 15:37 Uhr (0)
Hallo, ich versuche nochmal das Problem zu beschreiben. Der inhalt diese Variable(Zeile) wird von CATIA mit der funktion Nummerierung generieren erstellt, dabei kann man auswählen ob es mit Zahlen oder Buchstaben gefühlt wird. Ich möchte aber dieses Wert selber schreiben, dazu muss ich wissen wie diese Variable heißt. Mit dieses Schript kann ich auch alle auslesen ausser diese eine. ################################################### Language= VBSCRIPT Sub CATMain() Dim productDocument1 As Document Set ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : GetCoordinates
Filippo am 26.08.2005 um 12:04 Uhr (0)
Hallo AlfaRomeo75,versuche damit.Sub CATMain() Dim Was(0) Was(0) = "Vertex" "Point" Dim UserSel As Selection Set UserSel = CATIA.ActiveDocument.Selection UserSel.Clear Dim E E = UserSel.SelectElement(Was, "Du kannst jetzt einen Punkt wählen!", True) If E = "Normal" Then Else MsgBox ("Abbruch") End If Dim MySelection As Selection Set MySelection = UserSel.Item(1) .Value MsgBox (MySelection.Name) Dim MyPointCoord(2) MySelection.GetCoordinates MyPointCoord Dim Coord_X, Coord_Y, Coord_Z Coord_X = MyPointCoord( ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA hat keine Kontrolle nach Makro lauf
Filippo am 23.09.2005 um 15:01 Uhr (0)
Hallo,ich brauche dringend ein lösung zu diese Problem:Bei dieses Makro (siehe weiter unten) muss der Anwender ein Element auswählen. Wählt der Anwender ein Element oder bricht das Makro mit der Taste "ESC" dann wird das Makro beendet und CATIA bekommt wieder die Kontrolle.Wird aber stat ein Element eine Funktion von der Symbolleiste gewählt dann wird das Makro beendet aber CATIA bekommt keine Kontrolle mehr, d.h. CATIA reagiert auf keine Funktion mehr. Man kann sogar werder Sichern noch beenden.:-((Erst w ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA hat keine Kontrolle nach Makro lauf
Filippo am 23.09.2005 um 20:27 Uhr (0)
Hallo Stoffel,es hat leider nichts mit "Cancel" oder "cancel" zu tun.Trotzdem Danke.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA hat keine Kontrolle nach Makro lauf
Filippo am 26.09.2005 um 07:29 Uhr (0)
Hallo Lusilnie,man kann nicht Status als Integer definieren und dann eine Zeichenkette in die Variable aufnehmen. Es geht nicht!CiaoFilippo
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA hat keine Kontrolle nach Makro lauf
Filippo am 26.09.2005 um 13:44 Uhr (0)
Hallo V5-Gemeinde,vielen Dank für die Hilfe.Ich weiss jetzt woran es liegt. Dassault hat wieder an der Comm-schnittstelle etwas geändert.Ich habe das gleiche Makro in Release 12 ausgeführt und es lauft einwandfrei!Ab Release 14 lauft es nicht mehr stabil bzw. CATIA bekommt, nach eine falsche Eingabe, nicht mehr die volle Kontrolle und sturzt ab.CiaoFilippo
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATIA hat keine Kontrolle nach Makro lauf
Filippo am 27.09.2005 um 07:17 Uhr (0)
Hallo prosper,Hallo Lusilnie,vielen Dank für Hilfe, aber es liegt wirklich nicht an die Befehlzeile If (Status = "cancel") Then Exit Sub denn ich fange diese Abfrage eigendlich so: If LCase(Status) = "cancel" Then Exit Sub .Damit ist es egal ob der inhalt von "Status" klein oder gross geschrieben ist.CiaoFilippo
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Workbench wechseln bzw abfragen
Filippo am 21.12.2005 um 21:40 Uhr (0)
Hallo Baldi,probiere mal so.Sub CATMain()Dim documents1 As DocumentsSet documents1 = catia.DocumentsDim partDocument1 As PartDocumentSet partDocument1 = documents1.Add("Part")If catia.GetWorkbenchId "PrtCfg" Then catia.StartWorkbench "PrtCfg"End IfpartDocument1.CloseEnd SubCiaoFilippo
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Teilenummern mit Makro umbennen
Filippo am 13.04.2006 um 14:42 Uhr (0)
Hallo martin2,die Fehlermeldung bekommst du weil man einen Namen nicht mehrmals verwenden kann.Du musst deine For-Schleife z.B. so ändern:For i = 1 To CATIA.ActiveDocument.Product.Products.Count MsgBox (CATIA.ActiveDocument.Product.Products.Item(i).Name) CATIA.ActiveDocument.Product.Products.Item(i).Name = "Test" + CStr(i) If TypeOf CATIA.ActiveDocument.Product.Products.Item(i) Is ProductDocument Then MsgBox ("als Produkt erkannt") End IfNextCiaoFilippo
|
| In das Form CATIA V5 Programmierung wechseln |
