Witam
Robię makro w vb na SolidWorks, ale utknąłem na jednej rzeczy.
Czy ktoś ma pojęcie, jaki kod jest potrzebny do usunięcia linii gięcia na moim rysunku?
W jednym przypadku muszę je zachować, ale w przypadku aplikacji muszę je usunąć!
Z góry dziękuję.
Witam
Ten kod powinien załatwić sprawę:
Dim swApp jako SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim boolstatus As Boolean
Sub main()
Ustaw swApp = Application.SldWorks
Ustaw część = swApp.ActiveDoc
boolstatus = Part.Extension.SetUserPreferenceToggle(swUserPreferenceToggle_e.swShowSheetMetalBendNotes, 0, False)
Koniec subwoofera
W tej chwili dla mnie ten kod jest przydatny do notatek, ale nie do zaginania linii. Nie ma takiej możliwości a priori.
Uwaga: generalnie te linie nie przeszkadzają, ponieważ są nieciągłe.
Można utworzyć plik DXF części bezpośrednio z 3D:
Kliknąć prawym przyciskiem myszy Rozszerzony stan w drzewie operacji FeatureManager i wybrać Eksportuj do DXF/DWG.
Edycja: w przeciwnym razie zobacz tę opcję:
http://help.solidworks.com/2013/French/solidworks/sldworks/t_Toggling_the_Visibility_of_Bend_Region_Lines.htm
Dziękuję za szybkie odpowiedzi.
Zamierzam teraz spróbować.
Będę Was informować na bieżąco (mam nadzieję, że tak szybko, jak to możliwe).
Rzeczywiście, stosuję już ten kod w moim makrze do notatek gięcia, ale nie działa on nic dla linii gięcia.
Wiedziałem o eksporcie DXF z 3D, ale nie pasuje on do mojego procesu.
Testowałem już również wyłączanie linii gięcia w obszarze zagięcia, ale to nie działa (lub nie wiem, jak z tego korzystać).
W każdym razie bardzo dziękuję.
Miło wiedzieć, że nie jesteśmy sami!!
Zgodnie z tym komunikatem zadziałało:
https://forum.solidworks.com/thread/58812
Zobacz też:
https://www.youtube.com/watch?v=tK5a3evQiO4
Nie da się tego zrobić bezpośrednio za pomocą makra, więc oddaję rękę użytkownikowi, który wybiera zagięcie (lub linie ręcznie), a następnie kończę wykonywanie makra.
W tej chwili nie znalazłem nic lepszego.