Сделай свою работу в Solidworks эффективнее
Тема создана для обмена, создания и поиска различных прикладных программ, макросов, аддонов к программе Solidworks.
(обсуждение других вопросов, не по тематике топика, прошу вести в соответствующих темах или создавать свои. С ув. streamdown)
Приветствую всех.
Для чего сделана эта тема я думаю уже многим объяснять не надо. Обновляю шапку (спасибо Plumber, а так же Kelny)
Макрос для удаления подвешенных размеров в модели:
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As ModelDoc2
Dim boolstatus As Boolean
Dim swAnn As Annotation
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
swModel.ClearSelection2 (True)
Set swAnn = swModel.GetFirstAnnotation2
Do While Not swAnn Is Nothing
If swAnn.IsDangling Then
boolstatus = swAnn.Select3(T
