Witam wszystkich,
Obecnie rozwijam się pod VB.Net oprogramowania do automatycznego generowania części i aby to zrobić, musiałbym wiedzieć, czy istnieje nazwany wymiar, ale nie ma sposobu, aby znaleźć to w pomocy solidwokrs, jeśli ktoś ma trop
Obecnie zmieniam ocenę w ten sposób, ale nie ma sposobu, aby dowiedzieć się, czy zmiana się powiodła, czy nie :/
Part.Parameter(CoteToChange.). SystemValue = Round(CoteToChange.Value, 0) / 1000
Witam
Ale jeśli ocena nie istnieje, program zwróci błąd, prawda?
W tym przypadku musimy odwołać się do obsługi błędów:
Na przykład z komunikatem "W przypadku błędu przejdź do" i komunikatem lub ostrzeżeniem.
http://gilmir.developpez.com/tutoriels-vb6/tutoriel16/
W rzeczywistości znalazłem odpowiedź tutaj:
https://forum.solidworks.com/thread/64245
Dziękuję Ci .PL
Kod, który zaadaptowałem do VB.net wygląda tak:
Przyciemnij model jako SldWorks. ModelDoc2 = swApp.ActiveDoc Dim swDim As SldWorks.Dimension = swModel.Parameter("NutThickness@Sketch1") Jeśli nie swDim jest niczym , to MsgBox("NutThickness@Sketch1 Znajdź") Else MsgBox("NutThickness@Sketch1 nie znajdziesz") Zakończ , jeśli