Autor
|
Thema: Macro zur automatischen änderung der Properties bei Maßen (769 mal gelesen)
|
TMy-LLI Mitglied Technischer-Zeichner
Beiträge: 8 Registriert: 14.10.2013 Intel Xeon W3520 2,67GHz 12,0 GB RAM<P>Catia V5 R18 mit Smarteam
|
erstellt am: 14. Okt. 2013 11:03 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen, ich suche ein paar Macros mit denen ich die Properies und Toleranzen von bereits ausgewählten Maßen in einer Zeichung automatisch ändern kann. Beispiel 1: Ich wähle einige Maße aus und füge diesen eine Tolleranz von H7 hinzu Beispiel 2: Ich wähle einige Maße aus und füge diesen "(2x)" oder "umlaufen" hinzu Es wäre nett wenn mir da jemand weiter helfen kann, denn ich habe noch nicht viel Ahnung von der Macro Programmierung in Catia. Vielen Dank schonmal im Voraus Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
imation1999 Mitglied dipl.-ing. Maschinenbau
Beiträge: 276 Registriert: 02.08.2011 Dell Precision T3500 Intel® Xeon® Quad Core NVIDIA Quadro® 5000 Win7 x64 Ultimate CATIA V5 R20 SP2
|
erstellt am: 14. Okt. 2013 13:19 <-- editieren / zitieren --> Unities abgeben: Nur für TMy-LLI
Hallo, anbei die original Code: http://ww3.cad.de/foren/ubb/Forum137/HTML/003983.shtml Beispiel 1: Code: Sub CATMain()Dim drawingDocument1 As DrawingDocument Set drawingDocument1 = CATIA.ActiveDocument Set oSelection = CATIA.ActiveDocument.Selection Dim InputObjectType(0) InputObjectType(0) = "AnyObject" status = oSelection.SelectElement3(InputObjectType, "Wählen Sie die Bemaßungen aus", True, CATMultiSelTriggWhenUserValidatesSelection, False) If (status <> "Normal") Then MsgBox "Abbruch" Exit Sub Else for i=1 to oSelection.count Set dimension1 = oSelection.Item(i).Value dimension1.GetTolerances oTolType, oTolName, oUpTolS, oLowTolS, oUpTolD, oLowTolD, oDisplayMode oTolName = "TOL_ALP1" oUpTolS = "H7" dimension1.SetTolerances oTolType, oTolName, oUpTolS, oLowTolS, oUpTolD, oLowTolD, oDisplayMode next End If oSelection.Clear End Sub
Beispiel 2: Code: Sub CATMain()Dim drawingDocument1 As DrawingDocument Set drawingDocument1 = CATIA.ActiveDocument Set oSelection = CATIA.ActiveDocument.Selection Dim InputObjectType(0) InputObjectType(0) = "AnyObject" status = oSelection.SelectElement3(InputObjectType, "Wählen Sie die Bemaßungen aus", True, CATMultiSelTriggWhenUserValidatesSelection, False) If (status <> "Normal") Then MsgBox "Abbruch" Exit Sub Else for i=1 to oSelection.count Set dimension1 = oSelection.Item(i).Value Set DrawingDimValue1 = dimension1.GetValue DrawingDimValue1.SetBaultText 1, "2x", "", "", "" next End If oSelection.Clear End Sub
[Diese Nachricht wurde von imation1999 am 14. Okt. 2013 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
TMy-LLI Mitglied Technischer-Zeichner
Beiträge: 8 Registriert: 14.10.2013 Intel Xeon W3520 2,67GHz 12,0 GB RAM<P>Catia V5 R18 mit Smarteam
|
erstellt am: 14. Okt. 2013 15:25 <-- editieren / zitieren --> Unities abgeben:
|
DasDon Mitglied Konstruktuer
Beiträge: 169 Registriert: 25.07.2011 R18 SP2. WIN
|
erstellt am: 14. Okt. 2013 15:35 <-- editieren / zitieren --> Unities abgeben: Nur für TMy-LLI
|
TMy-LLI Mitglied Technischer-Zeichner
Beiträge: 8 Registriert: 14.10.2013 Intel Xeon W3520 2,67GHz 12,0 GB RAM<P>Catia V5 R18 mit Smarteam
|
erstellt am: 15. Okt. 2013 08:54 <-- editieren / zitieren --> Unities abgeben:
Das ist mal ne coole Sache! Leider kann ich das bei uns schlecht verwenden, habe im Flugzeugbau zu viel unterschiedliche Toleranzen, da kann ich keine einheitliche Regel bauen Trotzdem werde ich es mal im Hinterkopf behalten, vielleicht kann ich es irgendwann nutzen. Vielen Dank! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|