|
CATIA V5 Programmierung : Variable aus Userform in Modul einlesen
Sk89 am 07.06.2010 um 08:26 Uhr (0)
Ja genau das soll das Makro können, kannn ich das dann nicht auch in dem makro 2 weiterlaufen lassen was du in die Funktion schreiben möchtest?sprich soSub Makro2()Set oDrawing = CATIA.ActiveDocumentDim oSheet As DrawingSheetSet oSheet = oDrawing.Sheets.Item(4)oSheet.ActivateDim Eingabea As StringEingabea = "...XX-XXX_XXXXXX"Boxb = InputBox("Geben Sie den Pfad ein, in der die Parts abgespeichert sind.", "Pfadeingabe", Eingabea)If Boxb = "" Then Exit SubElse Dim ADoce As Document oDatei = Set ADoce = ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Variable aus Userform in Modul einlesen
Sk89 am 07.06.2010 um 07:47 Uhr (0)
Halloich hab noch nie mit Userforms gearbeitet und stehe grade vor einem Problem. Es ist wahrscheinlich sehr einfach aber ich komme nicht drauf.ich habe hier mein ModulSub Makro2()Set oDrawing = CATIA.ActiveDocumentDim oSheet As DrawingSheetSet oSheet = oDrawing.Sheets.Item(4)oSheet.ActivateDim Eingabea As StringEingabea = "...XX-XXX_XXXXXX"Boxb = InputBox("Geben Sie den Pfad ein, in der die Parts abgespeichert sind.", "Pfadeingabe", Eingabea)If Boxb = "" Then Exit SubElse Dim ADoce As Document oDatei ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Stempel einfügen
Sk89 am 19.05.2010 um 16:06 Uhr (0)
HalloIch schreibe grade meine Projektarbeit.Ich möchte in eine View einen bestimmten Stempel einzufügen. Die View ist schon aktiv.Hier mein MakroDim oInstantiate2DComponent As ActivityDim sel As SelectionSet sel = CATIA.ActiveDocument.SelectionSendKeys "c:Instantiate 2D Component", TrueSendKeys "{Enter}", TruePause (1) sel.Add activedoc.Sheets.Item(2).Views.Item(4)SendKeys "{Enter}", TrueEnd SubMein Problem, er makiert den Stempel den ich haben möchte, aber fügt ihn nicht ein. Wenn ich ihn dann händisch au ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bemaßung einer Ansicht
Sk89 am 20.05.2010 um 15:08 Uhr (0)
Habe hier mal das Programm was ich bis jetzt ausgearbeitet habe, leider funktioniert es nur bis SendKeys "Enter"Sub CatMain()oFrontView.ActivateAppActivate "CATIA V5"SendKeys "c:Generate Dimensions Step by Step", TrueSendKeys "{Enter}", TrueDas Feld "...associated with unrepresented elements" soll makiert werden, leider weiß ich nicht wie dieses Kontrollkästchen benannt ist, kann man das irgendwie herrausfinden ?Hab es jetzt erstmal checkbox.Value genanntcheckbox5.Value = TrueNun muss das Fenster mit Ok be ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Bohrung erstellen
Sk89 am 13.07.2010 um 12:47 Uhr (0)
Hallo Ich möchte gerne eine Bohrung mit Hilfe eines Makros erstellen. Zuerst soll der Sketch erzeugt werden und auf diesem Sketch soll die Bohrung erstellt werden. Dazu muss ich 3 Ebenen in einer bestimmten Reihenfolge aussuchen um die Bohrung zu positionieren. Der Abstand von einer Kante ist immer gleich.Die Skizze der Bohrung soll auf die 3. Ebene. Von der Ebene 1 und der Ebene 2 soll jeweils ein Maß zum Punkt gesetzt werden. Für das bessere Verständnis habe ich ein Bild angehängt.Die 3 Ebenen wähle ich ...
|
| In das Form CATIA V5 Programmierung wechseln |
|
CATIA V5 Programmierung : Makro unterbrechen
Sk89 am 30.07.2010 um 08:42 Uhr (0)
So hab es mit eurer Hilfe endlich gepackt. Vielen Lieben Dank für die vielen Antworten.Den Code von Mario hab ich jetzt ein bissel umgeschrieben und jetzt passt es.Code:Sub Blatteinfuegen()Dim MySheets As DrawingSheetsDim MyNewSheet As DrawingSheetDim MyViews As DrawingViewsDim MyView As DrawingViewDim MySelection As SelectionDocument holenSet oDrawing = CATIA.ActiveDocumentSelection holen und sicherheitshalber löschenSet MySelection = oDrawing.SelectionMySelection.Clearalle Sheets holenSet MySheets = ...
|
| In das Form CATIA V5 Programmierung wechseln |
