[Xaveri]

#solidworks #vba #programowanie
Przy

boolstatus = Part.SketchManager.EditCircularSketchStepAndRepeat(0.212662398380626, 3.99758308699975, 4, 1.5707963267949, True, "", False, False, True, "Szczelina1_")

wywala mi błąd "Automation Error", Runtime Error -2147417848 (80010108) czyli Error 440 VBA.

Jak się do cholery robi szyk kołowy w SW pod makrami?
To jest linia na żywca skopiowana z makra w którym robię szyk kołowy.
Ba nawet jak usunę szyk, zostawię obiekt źródłowy i odpalę makro które nagrałem to nie robi szyku tylko wywala ten sam błąd.

[InzynierProgramista]

@Xaveri: Najpierw zapytam, czy widziałeś może moją odpowiedź na wcześniejszy Twój wpis i czy tam było coś przydatnego? A odnośnie obecnego problemu. Czy ten link podpowiedziałby coś w sprawie: Circular pattern SolidWorks?

[Xaveri]

@InzynierProgramista: Widziałem, ale nie analizowałem. Przejrzałem kilka tutków na YT narazie. Widzę, że zanim się wezmę za część kontrolną to muszę opanować API, bo dochodzi do absurdów, że zarejestrowane makro odpalone ponownie się nie uruchamia. Zaraz przekopiuję ten kod i dam punkty kontrolne, żeby zobaczyć co to po kolei robi.

[Xaveri]

Lepszy przykład:
https://thecadcoder.com/solidworks-macro/circular-skech-pattern

[Xaveri]

Punkt ma współrzędne (w metrach):
(1.06060000000049E-02, -1.06070000000045E-02) zamiast (0,0)
bo domyślnie SW łapie szczelinę w innym punkcie niż jak robię to ręcznie, więc obliczone kąty muszą być inne. O ja p------ę, ale programiści Solida to zdupili. Zamiast prostej funkcji robi się kilka linijek przeliczeń.

[Xaveri]

xD
Żeby stworzyć szyk kołowy podaję wymiar 212,13 i kąt między wystąpieniami (w radianach).
W tej samej funkcji jest włączone automatyczne wymiarowanie szyku. No i solid nie podaje tego wymiaru na który użytkownik ma wpływ tylko wymiar sobie tylko znanego punktu na elemencie. Tutaj akurat wymiar automatyczny to 202,69. Genialne!