|
CATIA V5 Programmierung : Makro universal gestallten
theshadog am 19.05.2009 um 12:32 Uhr (0)
Oh man, ich bin heut weng neben der Kappe.Dim erzeugst du ein neues object/variable/etc. Darum kommt bei dir auch die Fehlermeldung. In Zeile 24 schreibst du "Dim bodies1 As Bodies" und in Zeile 32 schreibst du "Dim bodies1 As Bodies". Du sagst dem Programm also "erzeuge Bodies1 as Bodies" und dann 4 Zeilen später nochmal "erzeuge Bodies1 as Bodies". Aber den gibts ja schon.Hatte bei meinem Zeug auch noch 2 kleine Fehler drin.Im Anhang mal dein Code. Müsste jetzt soweit klappen, allerdings kanns gut sein, ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro universal gestallten
theshadog am 20.05.2009 um 18:18 Uhr (0)
Also ich finde das Buch "CATIA V5 Makroprogrammierung mit Visual Basic Script" sehr empfehlenswert. Im "Kochbuch" wird vieles an Beispielen erklärt, was man nicht einfach auf anderes übertragen kann.Zu deinem Problem:Bei den Skizzen kannst du ebenfalls über eine Eingabe arbeiten.Code:Dim zahl as Integerzahl = InputBox("Skizzennummer eingeben.", "Skizzennummer", zahl)Dim sketch1 As SketchSet sketch1 = sketches1.Item("Skizze." & zahl)Eine andere Möglichkeit wäre, dass du eine Selection definierst, damit der ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro universal gestallten
theshadog am 22.05.2009 um 09:55 Uhr (0)
Sobald du die Skizze selbst benennst, macht CATIA da keine Nummerierung dran. Erstellst du zB 3 Skizze kannst du sie alle "Skizze" nennen, indem du schreibstCode:Set sketeches1 = ...sketches1.name = "Skizze"Set sketeches2 = ...sketches2.name = "Skizze"Set sketeches3 = ...sketches3.name = "Skizze"Das gleiche kommt dabei raus, wenn du die Skizzen in einer Schleife stehen hast:Code:do while c 4Set sketeches1 = ...sketches1.name = "Skizze"c = c + 1loopHier kommen ebenfalls 3 Skizzen raus, die alle "Skizze" he ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Länge eines Joins aus Linien messen
theshadog am 16.06.2009 um 11:21 Uhr (0)
Hi,hab folgendes Problem: Ich hab einen Join(Verbindung), in dem lauter Linien und Splines miteinander verknüpft sind. Ich möchte die Länge aller Linien auslesen. Per Hand geht das Super. Aber wo liegt mein Fehler im Makro?Code: LBjoin vermessenDim LBjoin As HybridShapeAssembleSet LBjoin = hybridShapes1.Item("LBJoin")Dim MessRef as ReferenceSet MessRef = part1.CreateReferenceFromObject(LBjoin)Set SPAWb = CATIA.ActiveDocument.GetWorkbench("SPAWorkbench")Set messen = SPAWb.GetMeasurable(MessRef)Dim laenge As ...
| | In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro universal gestallten
theshadog am 19.05.2009 um 11:24 Uhr (0)
Code:Language="VBSCRIPT"Sub CATMain()Dim partDocument1 As DocumentSet partDocument1 = CATIA.ActiveDocumentDim part1 As PartSet part1 = partDocument1.PartDim parameters1 As ParametersSet parameters1 = part1.ParametersDim teilenummer As Stringteilenummer = name.partNumberDim length1 As ParameterSet length1 = parameters1.Item("teilenummerOffset_Bbox_Max_X.6")length1.Value = 1.000000part1.UpdateDim bodies1 As BodiesSet bodies1 = part1.BodiesDim nummer as Integernummer = InputBox("Rohrteilnummer eingeben.", "Ro ...
| | In das Form CATIA V5 Programmierung wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
