|
CATIA V5 Programmierung : selection aktives sheet
joerneman am 21.04.2015 um 08:54 Uhr (1)
Hallo Bernd,vielen Dank für die Antwort, so klappt es.Stehe jetzt aber vor dem nächsten Problem.Möchte das selektierte Element umbenennen, dass klappt bei mir bis jetzt aber nur bei normal erstellten Textfeldern, nicht wenn ich eins aus einem Detailblatt einfüge, da kommt es zu einem Fehler.Code:Set drwdocument = CATIA.ActiveDocumentSet DrwSheets = drwdocument.SheetsSet DrwSheet = DrwSheets.ActiveSheetDim selection1 As SelectionSet selection1 = drwdocument.Selectionselection1.clearselection1.add DrwSheetx= ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Constraints erstellen
JanF am 20.09.2002 um 10:37 Uhr (0)
Moin,Constraints mit folgendem Makro zu erstellen klappt als CATSkript und VBSkript wunderbar, ich brauche es aber als VBA und dort gibt es immer die Fehlermeldung: "Das Verfahren AddBiEltCst ist fehlgeschlagen".Hat jemand eine Idee, woran dies liegen könnte?Set productDocument1 = CATIA.ActiveDocumentSet product1 = productDocument1.ProductSet constraints1 = product1.Connections("CATIAConstraints")Set reference1 = product1.CreateReferenceFromName("Produkt1/GitterNetzPart1.1/!Punkt.13")Set reference2 = produ ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Strings und Integer
RSchulz am 31.01.2011 um 14:33 Uhr (0)
sorry, ich habe etwas wichtiges aber entscheidendes vergessen...Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim parameters1 As ParametersSet parameters1 = part1.ParametersDim length1 As LengthSet length1 = parameters1.Item("Hoehe")Dim Zahl As LongDim Text As StringText = tbHoehe.TextZahl = CLng(Text) wandelt den Datentyp in das Format Long umlength1.Value = ZahlÜbrigens wäre es sehr hilfreich, wenn du einen Scree ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : makro für stücklistenformat
dddt1 am 19.01.2026 um 12:19 Uhr (1)
Meinst Du mit "manuell" per Makro-Aufzeichnung?Falls ja, dann geht es..hier ist das Code:Zitat:Sub CATMain()Dim productDocument1 As ProductDocumentSet productDocument1 = CATIA.ActiveDocumentDim product1 As ProductSet product1 = productDocument1.ProductDim assemblyConvertor1 As AssemblyConvertorSet assemblyConvertor1 = product1.GetItem("BillOfMaterial")Dim arrayOfVariantOfBSTR1(4)arrayOfVariantOfBSTR1(0) = "Menge"arrayOfVariantOfBSTR1(1) = "Teilenummer"arrayOfVariantOfBSTR1(2) = "Typ"arrayOfVariantOfBSTR1(3 ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Original aus Muster auslesen
RSchulz am 07.04.2008 um 15:04 Uhr (0)
Hallo,so ungefär müsstest du daran kommen.Dim Hole as HoleDim Actpart as PartDocumentDim allPatterns As SelectionDim onePattern as PatternDim i as IntegerPart selektierenset ActPart = Catia.Activdocumentset allPatterns = ActPart.selectionnach vorhanden Mustern suchenallPatterns.Search "CATPrtSearch.Pattern,all"die Items der Muster abfragen und evtl. Befehle ausführenfor i = 1 to allpatterns.count Set onPattern = allPattern.Item(i).Value set Hole = onePattern.ItemToCopy If Hole.ThreadingMode = 0 then B ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Selektierter Fläche neue Farbe zuweisen
Thomas_79 am 25.03.2003 um 16:54 Uhr (0)
Hallo, ich selektiere eine Fläche oder eine Kante eines Parts und möchte dieser anschließend dauerhaft eine neue Farbe zuweisen. Die Auswahl erfolgt über die SelectElement-Methode strStatus = Me.mySelection.SelectElement(strFilter, Bitte Fläche auswählen , False) Ich versuche dann über SetRealColor eine neue Farbe zuzuweisen, aber in CATIA ist keine Änderung eingetreten. Me.mySelection.VisProperties.SetRealColor(251, 0, 0, 1) Vielleicht kann mir jemand hel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Hilfe: Join im Geometrischen set umbenennen
denyo_1 am 26.03.2009 um 14:11 Uhr (0)
Hallo Alex,sorry mit dem sortieren kann ich dir auch nicht weiterhelfen. Soweit ich weiß geht es nicht mit CATScript, CATVba und CATVbs. Ev. funktioniert es mit CAA aber da kennt sich Henry besser aus .Zum Buch:ich würde dir auch das "Kochbuch CATIA V5 automatisieren Jens Hansen" wärmstens ans Herz legen. Ansonsten hilft nur learning by doing. Dazu am besten hier mal einige Scripte runterladen und mal anschauen und versuchen den Code zu verstehen. Dann mal versuchen was eigenens auf die Beine zu stellen. B ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Herausfinden ob eine Sketch aktiv ist
RAA am 02.05.2012 um 16:40 Uhr (1)
Hallo HoBLila,vielen Dank für die schnelle Reaktion.Der Hinweis auf die Workbench ist sehr hilfreich um eine aktive Sketch zu prüfen.Mein Kernproblem ist aber, daß sich Sketches ja im PartBody, in einem Body oder in einem GeometricalSet befinden können. Ich habe im Moment folgende Objektzuweisung:Set partdocument1 = CATIA.ActiveDocumentSet part1 = partdocument1.PartSet sketch1 = part1.InWorkObjectEs tritt immer ein Fehler in der 3. Zeile auf, wenn sich die Sketch nicht im PartBody befindetund dort komme ic ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : catvba-Makro mit catvba-Makros starten
denyo_1 am 01.02.2009 um 18:15 Uhr (0)
Hallo Martin,das funktioniert genauso wie mit einem CATScript nur muss ein anderer Werte beim Aufruf der Funktion eingetragen werden.Versuchs mal mit folgendem Code:Code: Dim myScript Dim Params() myScript = CATIA.SystemService.ExecuteScript("C:", catScriptLibraryTypeVBAProject, "TEST.catvba", "CATMain", params)catScriptLibraryTypeVBAProject das ist eine Enum und die bestimmt welcher Typ aufgerufen wird (also CATScript, CATScript aus Datei oder CATVba Projekt). Um das rauszufinden kannst entwerder den O ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Nicht geladene Elemente löschen
bgrittmann am 29.05.2015 um 11:14 Uhr (1)
ServusFalls du nur in der obersten Ebene der Baugruppe suchen willst geht es auch so.Code:Sub CATMain() Dim oDoc As ProductDocument Dim oSel As Object Dim oProducts As Products Dim oProduct As Product Set oDoc = CATIA.ActiveDocument Set oSel = oDoc.Selection Set oProducts = oDoc.Product.Products oSel.Clear For Each oProduct In oProducts On Error Resume Next If IsError(oProduct.PartNumber) Then oSel.Add oProduct End If On Error GoTo 0 Next MsgBox oSel.Count oSel.delEnd ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : In Verzeichnis mit vielen Produkten, das Rootproduct herausfinden
PyroX82 am 10.07.2007 um 11:09 Uhr (0)
Hallo Jochen,Vielen Dank für dein Programm. Ich habs bis jetzt nur mit einem kleinen Produkt getestet, funktioniert aber schon ganz gut. Ist das mit CAA erstellt worden? Es muss ja gar kein CATIA gestartet sein. Vom Prinzip her wäre es genau das, was ich suche. Aber eine automatisierung wäre nicht schlecht. So dass man es bspw. als Macro aufrufen kann im Batchmodus und ein Verzeichnis mitgibt.Wie wäre es denn, wenn ich es auch kommerziell nutzen wollte. Gibt es da auch eine Möglichkeit?Vielen Dank schonmal ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : indicateorselectelement3d Problem
pfannensepp am 03.11.2011 um 09:59 Uhr (0)
Hallobin neu hier im Forum und auch Anfänger in Sachen Makroprogrammierung.Mein Aufgabe. ich muss auf einer ebene eine beliebige Stelle mit der Maus anklicken und die Koordinaten dieses angeklickten Punktes ausgeben. Ich habe mir gedacht die Funktion IndicateorselectElement3D wäre geeignet. An sich funktioniert es auch schon so halb. habe allerdings 2 probleme.Ich kann einen Punkt auswählen und mit die koord zurückgeben. allerdings funktioniert es nicht wenn ich auf eine geometrie (Linie, Punkt) klicke. da ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : UserRefProperties im Produkt funzt nicht
moppesle am 20.02.2023 um 11:43 Uhr (1)
Hallo zusammen,über eine aktive View im Drawing ermittle ich das dazugehörige Part um mir die UserRefProperties auszulesen.Funktioniert soweit wenn die View aus dem Part alleine erstellt wurde.Wird die View im Produkt erstellt funktioniert die Methode nicht da die UserRefProperties nicht erkannt werden.Code:Set DRWViewLinks = DrwView.GenerativeLinksSET DRWPart = DRWViewLinks.FirstLinktbDefinition = DRWPArt.DefinitiontbBemerkung = DRWPArt.UserRefProperties.Item("Bemerkung").Valuehat jemand eine Tip für mich ...
|
| In das Form CATIA V5 Programmierung wechseln |
