|
CATIA V5 Programmierung : Komplette Struktur eines Prduktes
Augustiner am 23.09.2006 um 20:57 Uhr (0)
Servus sollte funktionieren habs aber nicht getestetCode:Sub CATMain ()Produktauslesen(CATIA.ActiveDocument.Product)End SubSub Produktauslesen (P As Product)Dim Pdoc as DocumentSet Pdoc = P.ReferenceProduct.ParentIf Typename(PDoc) = "PartDocument" Then MsgBox("Part") Else MsgBox("Product") End IfDim PP As ProductsDim i As IntegerSet PP = P.Productsfor i = 1 to PP.CountProduktauslesen(PP.Item(I))nextEnd SubGruß Andi[Diese Nachricht wurde von Augustiner am 23. Sep. 2006 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia über Excel VBA starten
commader_hugo am 23.11.2004 um 16:40 Uhr (0)
Hallo Bernd Muss dich noch mal mit dem Excelproblem belästigen soe sieht es aus ... On Error GoTo Startfehler Dim Excel As Object On Error Resume Next Set Excel = GetObject(, Excel.Application ) If Err.Number 0 Then Set Excel = CreateObject( Excel.Application ) Excel.Visible = False Excel im Hintergrund End If Workbooks.Open Pfad Sheets(1).Activate ... excel.quit end sub ist aber immer noch in der task list zu sehen??? was kann d ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Wie erkenne ich das aktive Dokument im Baum?
-thf- am 04.12.2008 um 00:10 Uhr (0)
würde mich auch interessieren, bin noch absoluter neuling (beschäftige mich seit einer woche damit), aber vlt hilft dir das (vorerst):Function defkoerp ()Dim torso(0)torso(0) = "Body" Dim UserSel As Selection Set UserSel= CATIA.ActiveDocument.Selection UserSel.Clear Dim X As CATBSTR X = UserSel.SelectElement2(torso, "Körper wählen", True) If X = "Normal" Then defkoerp=UserSel.Item(1).Value.Name Else MsgBox ("Abbruch") End IfEnd Functionthomas
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkt im Sketcher bemaßen
zipdrive am 25.02.2021 um 15:51 Uhr (1)
Ich probiere mich gerade mal im Scripting von Catia und hab mal eine einfache Frage. Wie kann ich einen Point gegenüber dem Origin bemaßen. Ich befinde mich im Sketcher.Den Point habe ich über Factory2D erstellt.Ich möchte den Punkt nun horizontal und vertikal bemaßen.Man muss das irgendwie über die Add-Methode von Dimensions machen, aber genaueres hab ich noch nicht herausgefunden.Wie könnte man ihn außerdem fixieren? (unanhängig von der Bemaßung)
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Löschen des Materials im Part
mkna am 13.05.2009 um 08:58 Uhr (0)
HalloVielen Dank für Deine Antwort. Ich hatte nur Probleme das Material vernünftig zu deklarieren. Hier das script für diejenigen die es interessiert:Sub CatMain()Dim mypartdoc As PartDocumentSet mypartdoc = CATIA.ActiveDocumentDim mypart As PartSet mypart = mypartdoc.PartDim mymat As MaterialDim omanager As MaterialManagerSet omanager = mypart.GetItem("CATMatManagerVBExt")omanager.GetMaterialOnPart mypart, mymatDim sel1 As selectionSet sel1 = mypartdoc.selectionsel1.Clearsel1.Add mymatsel1.DeleteEnd SubMa ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Körperkante im Drawing selektieren
tomtom1972 am 21.12.2005 um 14:37 Uhr (0)
Hallo,das geht. Siehe unten.Gruss TomTomSub CATMain()Dim InputObjectType(0)Dim Status, oSelectionInputObjectType(0) = "Edge"Set oSelection = Catia.ActiveDocument.SelectionoSelection.ClearStatus = oSelection.SelectElement3(InputObjectType, "Select", False, CATMultiSelTriggWhenSelPerf, False) --- UserSelIf (Status "Normal") Then ------- Auswahl i.O?, wenn nicht, dann... MsgBox "Das Script wurde abgebrochen!", 16, "Cancel" Exit SubElse msgbox oSelection.Item(1).Value.NameEnd IfEnd Sub------------------t ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Do Until Schleife, Ausgans-Prüfkriterium
Macro_Man am 18.07.2006 um 09:51 Uhr (0)
Hallo zusammen, folgendes Problem, ich möchte eine Do Until Schleife programmieren, die nach einer Selction überprüft ob die Selection vom Typ "Body ist.Sub CATMain()Dim Ref(0)Ref(0)= "AnyObject"DoDim UserSel As SelectionSet UserSel=CATIA.ActiveDocument.SelectionUserSel.clearDim E As CATBSTRE = UserSel.SelectElement2(Ref,"TEST",true)MsgBox(UserSel.Item(1).Value.Name)UserSel.EndSelectElementUserSel.ClearLoop Until (E = "Body")End SubSo funktioniert es nicht, die Ausgangsbedingung wird nicht erkannt und die ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Get Current Solid
ptit.tom am 10.03.2016 um 13:00 Uhr (1)
Hallo,Ich habe mit den Makro-Recorder versucht: lässt man das Argument iShapeToCopy der Methode AddNewRectPattern bei der Erzeugung leer, wird das Current Solid genommen. In der Eigenschaft ItemToCopy erscheint ein mysteriöse Solid.1 Feature, ohne Eltern.Ich vermute, dass CATIA im Hintergrund seine eigene Suppe kocht, um das Feature Solid.1 zu generieren.Ich kenne keinen Weg, das Objekt "current Solid" aufzurufen.[Diese Nachricht wurde von ptit.tom am 10. Mrz. 2016 editiert.]
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Auf generierte Elemente im Drafting zugreifen
bgrittmann am 18.05.2010 um 21:34 Uhr (0)
ServusDie Objektauflösung des Editor liefert folgendes:Code:Set drawingDocument1 = CATIA.ActiveDocumentSet drawingSheets1 = drawingDocument1.SheetsSet drawingSheet1 = drawingSheets1.Item("Blatt .1")Set drawingViews1 = drawingSheet1.ViewsSet drawingView1 = drawingViews1.Item("Vorderansicht")Set geometricElements1 = drawingView1.GeometricElementsSet line2D1 = geometricElements1.Item("Linie.1")Näheres siehe Doku.GrußBernd------------------Warum einfach, wenn es auch kompliziert geht.
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Referenzkreis ändern
GeorgK am 23.06.2008 um 11:15 Uhr (0)
Hallo,wie kann ich alle Referenzkreise in einer Zeichnung so umstellen, dass die Umrahmung des Textes ohne Kreis ist? Von Hand: rechte Maustaste auf Referenzkreis = Eigenschaften = Register Text = UmrahmungDie Auswahl der Referenzkreise funktioniert soLanguage="VBSCRIPT"Sub CATMain()Dim drawingDocument1 As DocumentSet drawingDocument1 = CATIA.ActiveDocumentReferenzkreis ändernDim VisProperties1 As VisPropertySetDim selection1 As SelectionSet selection1 = drawingDocument1.Selectionselection1.Search "Draftin ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : selektion während eines Makros
Helmut Kuckertz am 10.09.2003 um 15:25 Uhr (0)
Hallo V5ler @Dieter Vielen Dank für die Hilfe. Langsam fällt der Groschen. Ich habe noch ein paar Fragen: Language= VBSCRIPT Sub CATMain() Dim partDocument1 As Document Set partDocument1 = CATIA.ActiveDocument Dim part1 As Part Set part1 = partDocument1.Part Dim hybridShapeFactory1 As Factory Set hybridShapeFactory1 = part1.HybridShapeFactory Dim dok, bauteil, selection set dok= CATIA.ActiveDocument set bauteil=dok.part set selection=dok.selection Dim auswahl(0),E,punkt,treffer treffer=0 auswahl(0)= Poin ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Baugruppe mit Makro in Szene setzen
lamdiabolo am 13.05.2013 um 15:58 Uhr (0)
Habe jetzt ein Makro geschrieben was fast funktioniert, findet leider aber noch nicht die genaue Anzahl der Spanner. Muss ich noch ein wenig dran rumprobieren. Habe aber euren Tipp befolgt und die Spanner erst einmal als Products nachgebaut.Manchmal überschlägt sich mein Spanner um die Drehachse, was natürlich auch nicht sein soll. Sind noch ein paar Feinheiten zu ändern, aber eine solide Basis habe ich dank euren Ideen schon einmal, danke!Mein bisheriger Code:Sub CATMain()dim i as integerset selection1 =c ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makroauswahl
z3us1911 am 03.12.2019 um 13:32 Uhr (1)
Hallo,Danke für die Antwort. Das Script versteh ich soweit. Allerdings kommt es Bei mir zu einem Typenkonflikt. Mein Script sieht so aus. Jemand eine Idee wie ich das zum Laufen bringen kann?Zitat:Dim Params()Dim E As CATBSTRDim SServ As SystemServiceSet SServ = CATIA.SystemServiceLibPath = "C:Users"ScriptName = "Name.CATScript"FunctionName = "Sub CATMain"Call SServ.ExecuteScript (LibPath, catScriptLibraryTypeDirectory, FunctionName, Params)Viele GrüßeHans[Diese Nachricht wurde von z3us1911 am 03. Dez. 201 ...
|
| In das Form CATIA V5 Programmierung wechseln |
