|
CATIA V5 Programmierung : Repeat Points on Curve
imation1999 am 18.04.2013 um 11:11 Uhr (0)
so z.B:Code:Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim hybridBodies1 As HybridBodiesSet hybridBodies1 = part1.HybridBodiesDim hybridBody1 As HybridBodySet hybridBody1 = hybridBodies1.Item("Geometrical Set.1")Dim hybridShapes1 As HybridShapesSet hybridShapes1 = hybridBody1.HybridShapesDim hybridShapeLinePtDir1 As HybridShapeSet hybridShapeLinePtDir1 = hybridShapes1.Item("Line.1")Dim reference1 As Ref ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
lamdiabolo am 17.04.2013 um 12:04 Uhr (0)
Guten Tag alle zusammen,ich probiere im Moment ein Makro zu programmieren, mit welchem ich in Catia V5R21 in einer Baugruppe alle Löcher finden kann,welche einen bestimmten Durchmesser haben. Ich habe mir bereits das "Kochbuch" von Herrn Hansen zugelegt und dieses durchgearbeitet, habe aber leider trotzdem keine Idee wie ich die Programmierung durchführen soll, damit ich nicht alle Löcher auswähle, sondern nur die mit einem bestimmten Durchmesser, in welche dann automatisch Normstifte eingefügt werden soll ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
lamdiabolo am 18.04.2013 um 11:59 Uhr (0)
Habe erst einmal ausprobiert die einzelnen Löcher mit ihren Durchmessern einzeln zu finden.Das klappt jetzt.Leider erkennt die unterste If- Funktion den Wahrheitsgehalt nicht, sie gibt immer die Else- Anweisung an.Sub CATMain()set selection1 =catia.activedocument.selectionselection1.search ".hole,all"dim laenge as lengthdim hole1 as integerdim durchmesser as integerdurchmesser = inputbox ("Bitte geben sie den gesuchten Durchmesser an!", "Eingabe gesuchter Durchmesser", durchmesser)for i = 1 to selection1.c ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
imation1999 am 18.04.2013 um 12:55 Uhr (0)
Hier muß man also zu einem Trick greifen.Zuerst speichert man die einzelnen Elemente der Selection in ein Array:Code:Dim SelElemente() As ObjectReDim SelElemente(Selection1.Count) For i = 1 To Selection1.Count Set SelElemente(i) = Selection1.Item(i)Next iDann löscht man die Selection und weist der Selection einzeln die gespeicherten Objecte zu:Code:For i = 1 To UBound(SelElemente) Selection1.Clear Selection1.Add SelElemente(i).Value ... .. .Next iSo kommst Du in Bohrung rein:Code:Sub CATMain()Dim partDocum ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
lamdiabolo am 17.04.2013 um 15:28 Uhr (0)
Habe jetzt mal probiert einzelne Durchmesser aus einem Bauteil einzufärben. Hat leider nicht so ganz funktioniert. Wird immer ein Laufzeitfehler ausgegeben.Damit ihr euch das mal genauer anschauen könnt, im folgenden mein Code:Sub CATMain()set document1 = catia.activedocumentset selection1 = document1.selectiondim durchmesser as integerdurchmesser= inputbox("Bitte geben sie den gesuchten Durchmesser ein!","Eingabe gesuchter Durchmesser", Durchmesser)selection1.search ".hole,all"dim laenge as lengthset laen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
lamdiabolo am 18.04.2013 um 08:59 Uhr (0)
Danke Berndhat aber leider auch so nicht funktioniert.Hatte noch was neues ausprobiert, da mir Catia immer gesagt hat : "Objekt erforderlich: hole1. Ich wollte erst ALLE Löcher finden, welche danach nach ihrem Durchmesser durchgefragt werdenl. Hat aber leider auch nicht funktioniert, da dann der Fehler: "Das Objekt unterstützt diese Eigenschaft oder Methode nicht:hole1.diameter"Mein "neuer" Code ist:Sub CATMain()set document1 = catia.activedocumentset selection1 = document1.selectiondim durchmesser as inte ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
lamdiabolo am 18.04.2013 um 14:42 Uhr (0)
Leider habe ich eure Anweisungen nicht genau verstanden, zumindest nicht so gut, das mein Makro jetzt einwnadfrei läuft.Denke ich habe wieder total triviale Fehler eingebaut, welche den einwandfreien Lauf stören.Code:Sub CATMain()set selection1 =catia.activedocument.selectionselection1.search ".hole.threaded=true,all"for i = 1 to selection1.countDim SelElemente() As ObjectReDim SelElemente(Selection1.Count) for i = 1 to selection1.countSet SelElemente(i) = Selection1.Item(i)Next iFor i = 1 To UBound(SelEle ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Catia v5 automatisieren
adrian83 am 21.04.2013 um 23:01 Uhr (1)
hallo !ich möchte immer noch die kollisionerkennung für verschiedene aufspannungs-geometrien im NC-modul so weit wie möglich automatiseiren mit einem VBA makro. im objektbrowser finde ich auch ein objekt "videoresullt",aber nichts was mit der von hand ganz leicht erstellten kollisionsdatei (.txt) zu tun hat. weiß jemand rat?bzw. kann man es umgehen,indem die manufacturingactivity auf objekte aus anderen klassen als manufacturing zugreift? -------------------Windows 7 64 bit-Catia V5 r19
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Repeat Points on Curve
Kay Petri am 18.04.2013 um 15:13 Uhr (0)
jetzt brauch ich nochmal hilfe. ich stehe auf dem Schlauch.Ich habe 3 selektionen zu machen. mit den selektionen mache ich in einer schleife eine transformation. der ändert meine userselection aber immer in die letzte selektion des scriptes. wie kann ich dem denn sagen er möge doch bitte die ausgewähöten objecte auch behalten und verwenden.Code:Set oSelection2 = CATIA.ActiveDocument.Selection oSelection2.Clear MsgBox ("Bitte Transform Join auswählen") Status2 = oSelection2.SelectElement2(Filter, " ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Repeat Points on Curve
Kay Petri am 18.04.2013 um 15:41 Uhr (0)
Ohje. Vom Regen in die Traufen. Ich bin normal VB Express gewohnt. da sind solche Dinge finde ich einfacher. Da kann ich immer auf namen zugreifen. nur hier in catia ist das alles merkwürdig.Muss ich dann für jede selection ein array oder eine collection anlegen?
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro programmieren um definierte Löcher zu finden
imation1999 am 18.04.2013 um 18:23 Uhr (0)
Versuch mal mit folgende Code:Code:Sub CATMain()set selection1 = CATIA.ActiveDocument.Selection----nach Bohrungen suchenSelection1.search ".hole,all" ----Selection sichernDim SelElemente() As ObjectReDim SelElemente(Selection1.Count) For i = 1 To Selection1.Count Set SelElemente(i) = Selection1.Item(i)Next dim length1 as lengthdim hole1 dim durchmesser durchmesser = inputbox ("Bitte geben sie den gesuchten Durchmesser an!", "Eingabe gesuchter Durchmesser", durchmesser)----Selection wieder herstel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Update unterdrücken bei Materialzuweisung
HoBLila am 15.04.2013 um 17:25 Uhr (0)
Hallo zusammen,ich habe mal wieder ein sonderbares Problem. :-)Und zwar würde ich gern mit einem Makro Material zu meinen Bodies zuweisen.Soweit kein Problem, aber CATIA macht dann ein Update auf das Part. Das Update wäre auch noch okay, wenn ich nicht nen Applicative Container drin hätte, der Probleme bekommt und dann ein PopUp schmeißt, also ne normale Fehlermeldung, kein Warning oder so. Die Meldung möchte, dass ich mich zwischen zwei Alternativen entscheide um dann Geometrie zu erzeugen.Also: Update au ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : product2.CreateReferenceFromName() ergibt nothing
asti.2000 am 19.04.2013 um 07:52 Uhr (0)
Hallo roccatich schreibe das Programm mit Microsoft VB 2008 Express Edition. Dort muß ich jede Variable deklarieren.D.h. ohne Dim product2 As ProductStructureTypeLib.Productkeine Chance.Ein aufgezeichnetes Macro, welches als Grundlage für das VB war funktioniert einwandfrei: .... Set documents1 = CATIA.Documents Set partDocument1 = documents1.Item("Block.CATPart") Set product1 = partDocument1.GetItem("Block") Set reference1 = product1.CreateReferenceFromName("Block/!Block") Set publications1 = product1.P ...
|
| In das Form CATIA V5 Programmierung wechseln |
