Сделай свою работу в Solidworks эффективнее

[Borodatyi 0]

Кто подскажет. Существует ли какой небудь плагин или макрос к солиду для выпуска извещений по ГОСТу?

[Leon 433]

Выкладываю бета версию обновленного макроса RecordDimM.

Из нового:

- теперь можно не указывать допуск резьбы.

- можно ставить *, а также ** и даже *** к размеру.

- теперь макрос можно "пришпилить" и редактировать разные размеры не закрывая его.

- редактирование размеров "интерактивное". Т.е щелкаете в окне солида по размеру и он сразу попадает в окно макроса.

Выкладываю бету, потому что я немного замучился с этими переделками. Коментарии я писать тогда поленился да и исходный код не мой, а Rich, поэтому на вспомининие и отлавливание глюков ушло много времени. Потом не доделана защита от запуска вне чертежа. Стандартную пришлось переделать, т.к. обработка событий потребовала добавления нового класса. Я с этим не вполне разобрался, т.к фича для меня совершенно новая (я ведь все-таки не програмер) а единственный пример в справке не очень удачный. Поэтому, прошу, кому не лень потестить в разных комбинациях.

Но вообще, возможность отлавливать макросом события происходящие в самом солиде вещь интересная. Я раньше о ней как-то не думал. Открывает большие возможности. Можно писать макросы, запускаемые с самим солидом через ярлык, которые будут висеть в фоне постоянно и следить за определенными действиями юзера. Таким образом, например, можно контролировать полноту заполнения необходимых атрибутов чертежа и пр.

RD4beta.rar

[Shvg 67]

To Leon

Не критично, конечно, но лучше заменить swApp на swApp1 в событие Click на кнопке About, а то вылетать будет при ее нажатии.

Private Sub CmdAbout_Click()

swApp.SendMsgToUser ("Made by Leon, 2007" & Chr$(10) & "Идея и исходный код - Rich")

End Sub

и здесь, это уже выполнение кода

If OptPaz.Value Then

	If ColEl.Value < 2 Then

		swApp.SendMsgToUser "Значение количества для пазов должно быть 2 или более"

		ColEl.Value = 2

...........................................

.........................................

If Massiv.Value Then

	If ColEl.Value < 3 Or ColEl.Value = "" Then

		swApp.SendMsgToUser "Значение количества для массива должно быть 3 или более"

		ColEl.Value = 3

.........................................

.........................................

P.S. Я обычно для отлова таких опечаток, в каждом модуле прописывал Option Explicit.

[Leon 433]

Не критично, конечно, но лучше заменить swApp на swApp1

<{POST_SNAPBACK}>

Спасибо, самое важное, кнопку About я и пропустил )))

Вообще я не очень понял почему декларирование swApp и ModelDoc2 в Классе не распространяется на весь макрос? Мне пришлось для формы прописывать это еще раз и я забыл изменить swApp на swApp1. Надо, наверно, все таки книжку по VB почитать. Однако VB и VBA нодно и тоже. Вот, например, хотел переключатель Fix сделать большим и в виде залипающей кнопки. В VB это без проблем, а в макросе не получилось.

[Leon 433]

И кстати простое исправление swApp на swApp1 не помогает, если макрос запущен в режиме когда не один размер не выбран. Ладно, буду думать...

[Baron 1]

- теперь макрос можно "пришпилить" и редактировать разные размеры не закрывая его.

<{POST_SNAPBACK}>

вот за это спасибо! )))

[Shvg 67]

Вообще я не очень понял почему декларирование swApp и ModelDoc2 в Классе не распространяется на весь макрос?

По моему, переменные, объявленные в классе, принадлежат только классу. Глобальной видимости их нет. Хотя я в VB классы почти не применял (не было особой необходимости).

Но вообще, возможность отлавливать макросом события происходящие в самом солиде вещь интересная.

Вообще-то, даже необходимая стала в последнее время.

[allazar 0]

To Leon

Что-то не получилось запустить макрос, выдает Run-time error '13'

Type mismath

[Leon 433]

Что-то не получилось запустить макрос, выдает Run-time error '13'

Type mismath

<{POST_SNAPBACK}>

Странно, запускаться то он должен. Может библиотеки проверить? Пока довести макрос до полностью рабочего состояния времени нет и не знаю когда появится.

[allazar 0]

Sub main()

MyClass.MonitorSolidWorks - здесь возникает ошибка

End Sub

[Leon 433]

Sub main()

MyClass.MonitorSolidWorks - здесь возникает ошибка

End Sub

<{POST_SNAPBACK}>

Запускать надо при открытом чертеже

[allazar 0]

Так при нем же родимом и запускаю!

А для чего ты ввел

Sub main()

MyClass.MonitorSolidWorks

End Sub

Изменено 19 апреля 2007 пользователем allazar

[Leon 433]

А для чего ты ввел

Sub main()

MyClass.MonitorSolidWorks

End Sub

<{POST_SNAPBACK}>

Так это и есть основная фича, реализация которой вызвала проблемы! Чтобы отслеживать макросом события, происходящие в солиде, необходимо добавить новый класс. Если есть вопросы давай лучше в PM, чтобы форум не засорять. Могу номер аськи дать.

[allazar 0]

Давай!

[geryx 0]

Привет всем, .. помогите, ........

.. замучился проставлять диаметры , ... может найдуться у вас макросы под все эти кнопочки

.. или подскажите как эффективнее это все делать

.. спасибо

и это вот ... забыл ... (((

[Kelny 1 236]

.. замучился проставлять диаметры , ... может найдуться у вас макросы под все эти кнопочки

.. или подскажите как эффективнее это все делать

<{POST_SNAPBACK}>

В чем проблема? Если второй стрелки не хватает, то тут макросы не нужны, настрой один раз шаблон документа чертежа, и больше подобных изменений делать не придется...

Пишите вопросы грамотно...На не грамотный вопрос, даже с картинками очень сложно ответить...

[geryx 0]

уважаемый Кельни, .. как это прастите я смогу настроить эту опцию если нет не одного размера в темплейте (коряво конечно - но смысл вы уловили))) ),

... если пустой чертеж, .. то там нет размеров - а соответственно нет опции - ... може я конечно чего то не понимаю

.. обьясните тогда что и как я должен сохранить, ...

.. или так - сделать примитивный чертеж в темплах, поставить мне там все как надо, .. удалить чертеж, .. и все это сохраниться ???

спасибо

[Kelny 1 236]

.. обьясните тогда что и как я должен сохранить, ...

.. или так - сделать примитивный чертеж в темплах, поставить мне там все как надо, .. удалить чертеж, .. и все это сохраниться ???

<{POST_SNAPBACK}>

Окошко из SW2007, в предыдущих тоже всё настраивалось без проблем...

[geryx 0]

.. спасибо кельни, ...

...

... а как быть с оттененным указателем радиуса ????

..

[Kelny 1 236]

... а как быть с оттененным указателем радиуса ????

<{POST_SNAPBACK}>

Зависит от того что вы от него хотите. Если вы его отключите то для диаметров его тоже не будет... Такой настройки на документ вроде нет. Вы их так часто убираете? Ставьте размер внутри дуги, проблемы не будет...