Cze wszystkim
Od początku roku zajmuję się projektowaniem makra, które ma na celu automatyzację rysunków. W zależności od moich części, mają opcje, które ustawiłem, a niektóre z ich opcji to pary dwóch opcji. Niedawno powiedziano mi, że zamiast kopiować / wklejać w tym drugim, można wykonać podobne wywołania, aby moje makro było bardziej zrozumiałe, ale nie mam absolutnie pojęcia, jak się do tego zabrać.
Jako przykład podaję opcję nr 1, którą ustawiłem jak poniżej, ponadto wybór każdej opcji odbywa się zgodnie z wartością przykładu "U": U=1, a następnie wybierz opcję nr 1.
ElseIf U = 1 to
boolstatus = Part.Extension.SelectByID2("Prawy plan", "PŁASZCZYZNA", 0, 0, 0, Fałsz, 0, Nic, 0)
Jeśli O < 6 / 1000 to
Ustaw SkCircle = Part.SketchManager.CreateCircle(-Długość / 1000 - M + 0,0035, 0, 0, -długość / 1000 - M + 0,0035, -0,001, 0)
ElseIf O >= 6 / 1000 to
Ustaw SkCircle = Part.SketchManager.CreateCircle(-Długość / 1000 - M + 0,0035, 0, 0, -długość / 1000 - M + 0,0035, -0,001, 0)
Zakończ jeżeli:
boolstatus = Part.Extension.SelectByID2("Arc1", "SKETCHSEGMENT", 0, 0, 0, Fałsz, 0, Nic, 0)
Part.FeatureManager.FeatureCut Fałsz, Fałsz, Fałsz, 1, 0.04, 0.04, Fałsz, Fałsz, Fałsz, 0.01745329251994, 0.01745329251994, Fałsz, Fałsz, Fałsz, Fałsz, 0, 1, 1
Part.SelectionManager.EnableContourSelection = 0
Opcja, którą próbuję ustawić krócej, to nr 5, która łączy opcje nr 1 i nr 2.
Z góry dziękuję za uwagę