|
CATIA V5 Programmierung : Trägheit mehrerer Flächen messen
Machiwi am 19.06.2012 um 13:43 Uhr (0)
Hi,ich hab folgendes Problem. Ich habe mehrere Flächen und brauch von jeder Fläche die Ausrichtung (x,y,z) der Trägheitsachsen. Ich hab den Code von diesem Beitrag "http://ww3.cad.de/foren/ubb/Forum137/HTML/002153.shtml#000004" schon probiert, aber der geht nur bei einer Fläche im Part/Produkt.Mein Code sieht folgendermaßen aus:VBA-CatiaSub Catmain () MsgBox "Wählen Sie den zu untersuchenden Körper aus", vbInformation, makroname + " " + version AppActivate "CATIA V5" Set selection1 = activedoc.Se ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Trägheit mehrerer Flächen messen
Machiwi am 24.06.2012 um 13:04 Uhr (0)
Hey,da ist wohl beim kopieren was schief gelaufen, sorry. Natürlich muss das so heißen:Sub Catmain ()MsgBox "Wählen Sie den zu untersuchenden Körper aus", vbInformation, makroname + " " + version AppActivate "CATIA V5" Set selection1 = activedoc.Selection Dim InputObjectType(0) InputObjectType(0) = "AnyObject" Status = selection1.SelectElement2(InputObjectType, "Wählen Sie den Körper aus", False) If (Status = "Cancel") Then MsgBox "Makro wurde abgebrochen", 16, makroname + " " ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : leere Selektion definieren
Machiwi am 23.07.2012 um 10:18 Uhr (0)
Hallo zusammen,ich habe folgendes Problem. Mein Makro muss mir die Anzahl der vorhandenen Flächen ausgeben. Dazu habe ich eine Suchfunktion gemacht die solange durchläuft und mitzählt, bis alle Flächen erkannt wurden und die Selektion damit leer ist. Nun weiß ich aber leider nicht, wie ich es ausdrücke, dass die Selektion leer sein muss. Hier mal mein Code:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim Selection1 As S ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : leere Selektion definieren
Machiwi am 23.07.2012 um 11:57 Uhr (0)
Hey Daniel,ich hab deine Vorschläge mal durchprobiert. Nur leider hab ich immer bei "selection1.Items.Count" immer den Fehler "object doesnt support this property or method".Hab ich irgendeine Deklarierung oder so vergessen?Mein vollständiger Code lautet:Sub CATMain()Dim partDocument1 As PartDocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridShapeFactory1 As HybridShapeFactorySet hybridShapeFactory1 = part1.HybridShapeFactoryDim parameters1 As Parameter ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
