|
CATIA V5 Programmierung : Parameterübergabe in Prozedur wie?
Andreas01 am 04.04.2007 um 10:06 Uhr (0)
Hallo Forum,habe mal eine Frage und zwar:wie kann ich folgendes in eine Prozedur übergeben (oProducts) Dim oProducts as String ..Set oProducts = CATIA.ActiveDocument.Product.Products.Item(i).Products Call Prozedur(oProducts) . . .Sub Procedur(oTest as String)Parameter = oTest End SubDer Datentyp String ist falsch, habe es schon mit Datentyp Objekt versucht, es hat auch nicht funktioniert, liegt wahrscheinlich an meinen VBA-Kenntnissen, hat jemand eine Idee wie ich es machen kann?Hoffentlich kann mir jem ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Parameterübergabe in Prozedur wie?
Andreas01 am 04.04.2007 um 10:52 Uhr (0)
Hallo Proofin,ich möchte den String "CATIA.ActiveDocument.Product.Products.Item(i).Products" in die Prozedur übergeben, damit ich dann die Parameter auslesen kann. Habe das Vorher so gemacht:--------------Public Sub f_Daten_auslesen_2(i As Integer, ii As Integer) Set otest = CATIA.ActiveDocument.Product.Products.Item(i).Products.Item(ii) Props auslesenzaehler = zaehler + 1lst_Ausgabefenster.AddItem (zaehler & " Teilenummer: " & otest.PartNumber)lst_Ausgabefenster.AddItem ("Überarbeitung: " & otest.Re ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : How to start a vba project via catscript ???
rfriedrich am 04.04.2007 um 10:58 Uhr (0)
Try this:CATIA.SystemService.ExecuteScript "FullPathToThe.catvba", catScriptLibraryTypeVBAProject, "NameOfTheModule", "CATMain", oParamswhere oParams is an empty array
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Erstellen von Products und Parts im Hintergrund
Proofin am 04.04.2007 um 10:40 Uhr (0)
Moin Quest,in der aktiven Catia Sitzung kenne ich keine Möglichkeit.Es gibt aber die Möglichkeit Catia im BAtch Modus zu starten und ein Makro auszuführen. Vielleicht hilft dir das weiter.Der Aufruf könnte dann so aussehen:Z:B16intel_acodeinCNEXT.exe -run "E:CatScripteA_sample_1.CATPart" -env CATIA_P3.V5R16.B16 -direnv "Z:CATEnv_B16" -nowindow -batch -macro "E:CatScripteShowGeoSet.catvbs" GrußProofin
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Schriftart ändern
Paic37 am 04.04.2007 um 18:22 Uhr (0)
Hallo Leute,Ein kleines Beispiel um die Schriftart einer Annotation zu ändern:Sub catmain()Set PartDocument1 = CATIA.ActiveDocumentSet mysel = PartDocument1.SelectionDim tbobj(0)tbobj(0) = "Annotation"res = mysel.SelectElement2(tbobj, "Annotation", False)Set MyAnnotation = mysel.Item(1).ValueSet mytext = MyAnnotation.Text.Get2dAnnotchange the annotation fontmytext.SetFontName 0, 0, "Courrier 10 BT"to update 3DMyAnnotation.ModifyVisuEnd Sub
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : part im product selektieren
s1640066 am 05.04.2007 um 10:15 Uhr (0)
Mit diesem Problem habe ich eine Weile zu Kämpfen gehabt. ich habe ein kleines WA. dazu entwickelt.ich hoffe das hilft dir weiter.ich habe es allerdings rekursiv. dh. du musst es in dein Makro als Unterroutine einbauen.... hier der QellcodeSub docuanalyse() Dim Status As Object sel.Clear If TypeName(CATIA.ActiveDocument) = "ProductDocument" Then MsgBox "Bitte das PartDocument in dem die Geometrie erzeugt werden soll aus dem CATIA-Baum selektieren" Dim docutype(0) docutype(0) = "Part" Status ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Element unterschiede
Physimathi am 05.04.2007 um 13:37 Uhr (0)
Hallo,danke für die Antwort, doch die Lage ist anders.Mein Makro:Sub CATMain() Dim Dokuments As Documents Set Dokuments = CATIA.Documents Dim AnyPart As Document Set AnyPart = CATIA.ActiveDocument Dim Apart As Part Set Apart = AnyPart.Part Dim bodies1 As Bodies Set bodies1 = Apart.Bodies Dim Hauptkoerper As Body Set Hauptkoerper = Apart.MainBody Dim sketches1 As Sketches Set sketches1 = Hauptkoerper.Sketches Dim sketch1 As Sketch Set sketch1 = sketches1.Item("Skizze.1") Dim oSelect Set oSel ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Element unterschiede
Physimathi am 05.04.2007 um 11:42 Uhr (0)
Hallo,ich beginne gerade mich mit CATIA Makro zu beschäftigen.Nun bin ich an der Stelle Geometrien auswählen.Nur verstehe ich das ganze nicht wirklich.Ich habe ein Part mit einer Skizze. In der Skizze sind zwei Punkte.Ich möchte jeden der Punkte nach einander auswählen und dann eine Linie zwischen ihnen ziehen.Ich dachte das geht mit Select:Dim oSelectSet oSelect = CATIA.ActiveDocumentDim oSelectionSet oSelection = oSelect.SelectionDim Auswahl(0) As VariantDim oSelectedElement As Point2DoSelection.ClearAus ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkte suchen und in Array schreiben
Proofin am 12.04.2007 um 10:40 Uhr (0)
Moin Physimathi,Du kannst Elemente am einfachsten über die Search Funktion der Selection suchen. Hierfür kannst du den Suchstring aus der Suchfunktion unter "Bearbeiten/Suchen" verwenden. Aber aufpassen dieser Suchstring ist Sprachabhängig.Also du kannst zum Beispiel in der deutschen Sprachumgebung mit folgendem Code alle Punkte suchen lassen:---------------------------------Code--------------------------------- Dim oSel As Selection Set oSel = CATIA.ActiveDocument.Selection oSel.Search ("Type=Punkt, all ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkte suchen und in Array schreiben
tomtom1972 am 12.04.2007 um 10:40 Uhr (0)
Hallo,das ist ganz einfach:Set oSelection = CATIA.ActiveDocument.SelectionoSelection.ClearoSelection.Search "CATGmoSearch.Point,all"Dim aPointArray()ReDim aPointArray(oSelection.Count)For n = 1 to oSelection.Count Set aPointArray(n) = oSelection.Item(n).ValueNextDas wars. Jetzt sind deine Punkte im Array.Eine andere Möglichkeit (und um auf das .Search zu verzichten) wäre das rekursive Scanen deiner Struktur.Zu dem Ganzen gibts im übrigen schon mehrere Beiträge im Forum. Einfach mal die Suchfunktion verwen ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkte suchen und in Array schreiben
Physimathi am 12.04.2007 um 11:08 Uhr (0)
Danke,habe eine deutsche version und somit die Suche auf Punkt gesetzt. Nun sind die Punkte im Array. TollIch merke auch immer wieder, das eben viel im Forum steht, nur wenn man nicht weis wonach man suchen soll, dann sucht man sich verrückt.Euch einen schönen Tag.Sub CATMain()Set oSelection = CATIA.ActiveDocument.SelectionoSelection.ClearoSelection.Search ("Type=Punkt, all")Dim aPointArray() As Point2DReDim aPointArray(oSelection.Count)For n = 1 To oSelection.Count Set aPointArray(n) = oSelection.Item(n). ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Punkte suchen und in Array schreiben
Physimathi am 12.04.2007 um 12:03 Uhr (0)
Hallo,wie es eben so ist, mit dem Tun kommen die Fragen.Mein Skript:Sub CATMain()Set oSelection = CATIA.ActiveDocument.SelectionDim Auswahl(0)oSelection.ClearAuswahl(0) = "Point2D"MsgBox ("Selektieren Sie bitte einen Punkt")Status = oSelection.SelectElement2(Auswahl, "Select", False)Set oSelectedElement = oSelection.Item(1).Value Nimm erste SelektionMsgBox ("Punkt in Selection")End SubNun meine Frage:Im Baum kann ich einen Punkt anklicken, welcher dann in die Selection geht. Doch gehe ich auf den Punkt im ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Part in Produktstruktur lokalisieren
tomtom1972 am 16.04.2007 um 09:47 Uhr (0)
Hallo,ich weiß nicht, ob ich dein Problem richtig verstanden habe !?Wenn du ein in einer Struktur verbautes Part selektiert hast:Msgbox Catia.ActiveDocument.Selection.Item(1).Value.Parent.Parent.Parent.NameGruß------------------tomtom1972
|
| In das Form CATIA V5 Programmierung wechseln |
