|
CATIA V5 Programmierung : VBA Drawing ausblenden
Azazel1 am 04.08.2017 um 11:53 Uhr (1)
Hallo zusammen,ich versuche aktuell in meinem Drawing einzelne Ansichten aus- & einzublenden. Aktuell bekomme ich nur den Namen der Ansicht herraus.Kann mir hier jemand helfen?Vielen Dank.htmlSub CATMain()Dim docDrawing As DrawingDocumentDim Selection As SelectionSet docDrawing = CATIA.ActiveDocumentDim shSheet As DrawingSheetFor Each shSheet In docDrawing.SheetsIf Left(shSheet.Name, 3) = "SBR" Then Dim vwView As DrawingView For Each vwView In shSheet.Views If Left(vwView.Name, 1) = "P" Then MsgBox ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zeichnungsrahmen ausblenden
Randle am 04.08.2017 um 12:01 Uhr (1)
Hallo,mir fallen da zwei Ansätze ein.Entweder über CATIA.StartCommand (Achtung sprachabhängig) oder indem man die CATIA Settings (SettingController) anspricht.GrußRandle------------------Wer für nichts steht, fällt für alles!
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zeichnungskopf Information automatisch eintragen
Jadwiga7 am 08.08.2017 um 10:49 Uhr (1)
Danke ,mit Catia Version und Sheets habe ich schon geschafftDu hast Recht da sind nicht Parameter nur sheet properties:Name , Scale und Format .Wie bekomme ich die Info in meinen Macro ?
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Zeichnungskopf Information automatisch eintragen
bgrittmann am 08.08.2017 um 09:09 Uhr (1)
ServusInsertVariable geht nur für Catia-Parameter. Für VB(A)-Properties von Objekten geht das direkt über:Code:oDrwText.Text = CStr(AktuelleDrawing.Sheets.count)An den Maßstab kommst du über Scale2, an das Blattformat über PaperSize (sind keine Catia-Parameter).An das Release über die Catia.SystemConfiguration.Siehe auch Doku.ggf solltest du nochmal überdenken ob du die ganze Zeit die Fehlerbehandlung ausschaltest (du hättest eine passende Fehlermeldung bekommen) oder nur an wohl überlegten stellen.GrußBer ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Aktivierungsstatus der Komponente / Component Activation State
joehz am 09.08.2017 um 12:25 Uhr (1)
Hi Samer,vielleicht hilft Dir der Thread weiter:https://ww3.cad.de/foren/ubb/Forum137/HTML/004017.shtmlTschau,Joe------------------Inoffizielle Catia Hilfeseite
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Formel Gewicht / Dichte
C.Samer am 09.08.2017 um 13:44 Uhr (1)
Hallo Monka,danke für deinen Beitrag. Dein Vorschlag war/ist meine Lösung bisher Leider muss man die Aktualisierung von IntertiaVolume immer erzwingen.Das passiert nicht automatisch! Catia wird weiters sehr langsam beim Verschieben/Positionieren von Bauteilen.Das kann man durch Deaktivieren vonCode:Tools - Optionen - Parameter und Messung - Automatische Aktualisierung im Produktverhindern.Ist aber alles nicht so sauber wie ich es gerne hätte. Habe gehofft jemand kennt eine schönere Lösung
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Multiple Value
DuffM4nUS am 14.08.2017 um 10:20 Uhr (5)
Ich möchte dieses Thema nochmal kurz aufgreifen.Ich habe ein CATPart erzeugt und 3 Parameter angelegt.1 String, 1 Real und 1 Length.Folgender Code soll den Parametern ein Multiple-Value Array zuweisen.Bei dem Parameter vom Typ String geht das auch hervorragend, bei den anderen beiden nicht.Sicher wieder so ein Anfängerding, wo ich was übersehen habe..Könnt ihr mir bitte kurz auf die Sprünge helfen?Code:Option ExplicitSub CATmain() Dim oRoot As PartDocument Set oRoot = CATIA.ActiveDocument Dim ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Mehrere Abzugskörper von Part entfernen
monka am 14.08.2017 um 12:00 Uhr (1)
Hallo Juliendeinem Code zufolge versuchst du den ersten 3 Körpern in deinem Part die Körper 4, 5 und 6 abzuziehen. Du müsstest demnach bevor du die Körper ein weiteres mal abziehen kannst eine Kopie erstellen. Versuch es mal ungefähr so. Achtung Code ist nicht getestetCode:Dim selection1 as SelectionSet selection1 =Catia.Activedocument.SelectionFor i=1 To 3 Dim body2 As Body Set body2 = bodies1.Item(i) Dim shapes1 As Shapes Set shapes1 = body2.Shapes For k=4 To 6 Dim shapeFactory1 As Factory Set shapeFac ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Mehrere Abzugskörper von Part entfernen
jupo2804 am 14.08.2017 um 13:47 Uhr (1)
Hallo,Erst mal vielen Dank für die Beiträge. Zum ersten Kommentar kann ich folgendes sagen. Die Baumstruktur sieht momentan so aus: die ersten drei Parts sind die zu bearbeitenden Parts. Danach folgen 3 mal 3 Abzugskörper, die aus Kopien erzeugt worden sind. Daher war meine Idee, dass ich zuerst von Körper 1, die Körper 4 bis 6 abziehe. Danach verschwinden (bzw. werden verschoben) diese Parts aus der Baumstruktur und ich kann im nächsten Schritt für Part 2 erneut die Parts 4 bis 6 abziehen. Der Code funkti ...
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Mehrere Abzugskörper von Part entfernen
joehz am 14.08.2017 um 14:27 Uhr (1)
Zitat:Über die Dims beschwert sich Catia nicht, daher habe ich es nicht als falsch empfunden, aber ich verstehe den Einwand. Allerdings hat das herausziehen der Dims aus der Schleife leider auch nicht geholfen.Dass es nicht sinnvoll sein kann, dieselbe Variable immer wieder zu deklarieren, sollte einleuchten.Kostet nur Zeit.Zitat:Die Definition von bodies1 ist vor der Schleife erfolgt, was ich aber anscheinend vergessen habe zu kopieren.Der Code ist ein CATSkript für Catia v5 r24, falls das mit der Systemi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Multiple Value
DuffM4nUS am 14.08.2017 um 16:20 Uhr (1)
Ich habs vermutet:Anfängerfehler.Lässt man die Anführzeichen weg, so wird der Inhalt des Array richtig deklariert und die Zuweisung klappt.Code:Option ExplicitSub CATMain() Dim oRoot As PartDocument Set oRoot = CATIA.ActiveDocument Dim oParameters As Parameters Set oParameters = oRoot.Part.Parameters.RootParameterSet.DirectParameters Dim lenList(1) As Variant lenList(0) = 0.75 lenList(1) = 1 oParameters.Item("LENGTH").SetEnumerateValues lenList End Sub
|
| In das Form CATIA V5 Programmierung wechseln |
 |
CATIA V5 Programmierung : Aktivierungsstatus der Komponente / Component Activation State
C.Samer am 16.08.2017 um 12:09 Uhr (15)
Du bist genial Bernd! Für alle zukünftigen Leidensgenossen, hier ein funktionierendes Codebeispiel:Code:Dim iObjectPos As IntegerDim iObjectMax As Integer iObjectMax = 0 iObjectPos = 0Function countMaxObjects(p As Product) iObjectPos = iObjectPos + 1 CATIA.StatusBar = "Counting Active Objects: " & iObjectPos Catia.RefreshDisplay = True Dim oRootProduct As Product Set oRootProduct = p.parent.parent Dim oInstanceProduct As Product Set oInstanceProduct = p Dim oParameterActi ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Wie kann ich einen Parameter aus dem Formular in ein Modul übergeben?
joehz am 18.08.2017 um 11:35 Uhr (1)
Hi,Zitat:Jetzt hats geklappt. Hoffe es treten nicht noch weitere Probleme auf.Du hast das Zwinkern vergessen! ;-)Tschau,JoePS: Bitte Deine Systemumgebung ins Profil eintragen.------------------Inoffizielle Catia Hilfeseite
|
| In das Form CATIA V5 Programmierung wechseln |
