|
CATIA V5 Programmierung : [HowTo] Interne Befehlsnamen schneller finden (CATNls)
ferdo am 13.05.2012 um 09:48 Uhr (1)
HalloIn CATScript ("English" CATIA).Sub CATMain()Dim strCurWbench as StringstrCurWbench = CATIA.GetWorkbenchIDMsgBox "Current Workbench is: " & strCurWbench & (Chr(10)) & (Chr(10)) & "Available internal commands for this workbench are listed in next window." & (Chr(10)) & (Chr(10)) & "Select desired command and follow instructions in lower left corner of CATIA window." CATIA.StartCommand "Commands List" End Sub------------------Best regardsFernando
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroprogrammierung Startschwierigkeiten
ferdo am 10.09.2013 um 15:24 Uhr (1)
Hallo,In CATScriptSub CATMain()Set partDocument1 = CATIA.ActiveDocumentSet part1 = partDocument1.Partset Selection1 = CATIA.ActiveDocument.Selectionselection1.Search "Name=Intersect*,all"For i = 1 TO selection1.Countset intersect = selection1.item2(i).valueart=part1.hybridShapeFactory.GetGeometricalFeatureType(intersect)Select Case artCase "1"MsgBox "Intersection " & intersect.Name & " is a Point", vbOKOnly + vbInformationCase "3"MsgBox "Intersection " & intersect.Name & " is a Line",vbOKOnly + vbInformati ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : pps Datei in/ über CATIA öffnen
ferdo am 29.10.2010 um 10:22 Uhr (0)
Hallo,Ein CATScript:Sub CATMain()Set PPT = CreateObject("PowerPoint.Application")PPT.Visible=TrueSet Pres = PPT.Presentations.Open("C:TempPresentation.pps")End SubAndere Beispiele hier TchusFernando
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATPart erstellen Kugeln mit Makro.
ferdo am 07.03.2012 um 19:51 Uhr (0)
Language="VBSCRIPT"Sub CATMain()Msgbox "Select geometrical set containing points to create spheres"Dim Document,Part,Selection,HybridShapeFactory,HybridBodies,HybridBody,OriginElements,Plane,PlaneReference,Status Dim InputObjectType(0),PointIndex,PointReference,HybridShapeSymmetry Set Document = CATIA.ActiveDocument : Set Part = Document.Part : Set Selection = Document.Selection Set HybridShapeFactory = Part.HybridShapeFactory InputObjectType(0)="HybridBody" Status=Selection.SelectElement3(InputObjectTyp ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATPart erstellen Kugeln mit Makro.
ferdo am 07.03.2012 um 19:58 Uhr (0)
Hallo, Language="VBSCRIPT"Sub CATMain()Msgbox "Select geometrical set containing points to create spheres"Dim Document,Part,Selection,HybridShapeFactory,HybridBodies,HybridBody,OriginElements,Plane,PlaneReference,Status Dim InputObjectType(0),PointIndex,PointReference,HybridShapeSymmetry Set Document = CATIA.ActiveDocument : Set Part = Document.Part : Set Selection = Document.Selection Set HybridShapeFactory = Part.HybridShapeFactory InputObjectType(0)="HybridBody" Status=Selection.SelectElement3(InputObj ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : CATUTIL und VBA
ferdo am 23.03.2012 um 19:36 Uhr (0)
Sub CATMain()CATIA.SystemService.ExecuteProcessus "C:Tempfile.bat"End Sub------------------Best regardsFernando
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Sheet Background löschen
ferdo am 24.03.2012 um 20:03 Uhr (0)
Hallo,Es gibt ein kleines Problem nach dem Ausführen deine Makros, ich kann nicht auf das Background Sheet.Hier ist meine Version in CATScript. ============================================================== Purpose: DeleteAllInBackground.CATScript - All elements in background view in the drawing will be deleted Usage: 1 - A CATDrawing document must be active with elements in background view 2 - Run macro Author: ferdo (Disclaimer: You use this code at your own risk) ================================= ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Sheet Background löschen
ferdo am 25.03.2012 um 10:26 Uhr (0)
Hallo,Es tut mir leid, es war keine Absicht, zu kritisieren, ich sagte was passiert mit mir (in einer Version mit englischer Sprache CATIA - sorry, vergaß zu erwähnen).Im Skripte mit deutschen Worten / Befehlen laufen ohne Probleme in einem CATIA mit der Englischen Sprache , um ehrlich zu sein ich hatte erwartet, um die gleiche sein für die Deutsche Sprache CATIAIch schätze den Wert dieses Forum, ich habe gelernt viele Dinge hier.Nach dem Ausführen deine Makros-Version (Arbeit geleistet wurde, löschen Sie ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Sheet Background löschen
ferdo am 26.03.2012 um 18:44 Uhr (0)
Hallo,Super, auf meinem "English" CATIA funktioniert sehr gut, ist Löschen auch Bilder und title block, mein Makro-Version ist nicht Löschen diese.Vielen Dank für die Verbesserung.------------------Best regardsFernando
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : via CatScript VBA Makro starten
ferdo am 02.12.2012 um 15:42 Uhr (0)
Sub CATMain()Dim param()Dim oFilePath, oFileName, oModule As StringDim oSystemService As VariantSet oSystemService = CATIA.SystemServiceoFilePath = "c:\_Makro" path of catvbaoFileName = "vba_to_run.catvba" name of catvbaoModule = "name_of_module_here" name of module in catvbaDim ss as VariantSet ss = Catia.SystemServicess.ExecuteScript oFilePath & oFileName , catScriptLibraryTypeVBAProject , oModule , "CATMain" , paramEnd Sub------------------Best regardsFernando
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : PartBody Farbe wechsel
ferdo am 22.06.2013 um 00:34 Uhr (0)
In CATScript...Sub CATmain ()CATIA.DisplayFileAlerts = False What do you want to select Dim EnableSelectionFor(0) EnableSelectionFor(0) = "AnyObject" Reset the Selection Set sSEL = CATIA.ActiveDocument.Selection sSEL.Clear Define Selection MsgBox "Please Select the element from which you want to get the color" UserSelection = sSEL.SelectElement2(EnableSelectionFor, "Please Select the element from which you want to get the color", False) Evaluation if the selection is correc ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Defekte Constraints markieren
ferdo am 12.01.2014 um 21:12 Uhr (1)
Hallo,Mit CATScript...Option ExplicitSub CATMain() Dim prdRoot As Product Set prdRoot = CATIA.ActiveDocument.Product Dim oConstraints As Constraints Set oConstraints = prdRoot.Connections("CATIAConstraints") Dim iConstraint Dim iNbConstraints iConstraint = 1 iNbConstraints = oConstraints.Count Do While (iConstraint = iNbConstraints) If (oConstraints.Item(iConstraint).Status = catCstStatusOK) Then iConstraint = iConstraint + 1 Else oConstraints.Remove ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Anzeigemodus Analyse deaktivieren
ferdo am 24.02.2014 um 11:38 Uhr (1)
HalloZum zweiten frage in CATScriptSub CATMain()Dim HSOSynchronizedFilter(0)Dim Chaine As StringChaine = ".,all"Dim MySelectionDim MyDraw As DocumentSet MyDraw = CATIA.ActiveDocumentSet MySelection = MyDraw.SelectionHSOSynchronizedFilter(0) = "SetCATIADotHSOSynchronizedToFalse"MySelection.ClearMySelection.Search ChaineMySelection.VisProperties.SetRealColor 0, 0, 0, 1 'all goes blackMySelection.ClearHSOSynchronizedFilter(0) = "SetCATIADotHSOSynchronizedToTrue"MyDraw.ExportData "C: emp" & "" & Left(CATIA.Act ...
|
| In das Form CATIA V5 Programmierung wechseln |
