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

[Leon 433]

Это только у меня не работает? Вроде никто такую проблему здесь не озвучивал.

У меня все нормально на 2005 сп4. Ошибки не возникает. Опишите более подробно свои действия.

[Nikona 7]

У меня все нормально на 2005 SP4. Ошибки не возникает

На 2007 СП4.0 все ОК

Baron & Мишутка видно стоит обновиться

[Baron 1]

На 2007 СП4.0 все ОК

Baron & Мишутка видно стоит обновиться

У меня тоже последнее обновление, SW2007 SP4

Опишите более подробно свои действия.

В понедельник опишу все поэтапно, щас нет сабжа под рукой )))

[Мишутка 7]

Опишите более подробно свои действия.

Описывать вообщемто нечего, т.к. стандартные действия по изменению размера. Выделяем размер => запускаем макрос => ставим галочку для режима "в две строки" => пишем во второй строке => нажимаем сохранить и закрыть => далее проблема.

Все остальное работает

Сегодня утром sw, после попытки заполнить вторую строку, вообще стал вылетать (см.фото)

В чем может быть проблема?

p/s/

windowsXPsp2

[Leon 433]

Мишутка

Лучше покажите скрин, когда запускается дебагер. И в какой строке ошибка. Тогда можно что-нидь придумать.

[Kelny 1 234]

Лучше покажите скрин, когда запускается дебагер. И в какой строке ошибка. Тогда можно что-нидь придумать.

С такой ошибкой похоже дебагера ждать и не приходится, возможно дебагер и вываливает солид...

А вобще при ручном вводе текста под линией солид не выпадает, по крайне мере у меня, но выдаёт ошибку:

Private Sub CommandButton1_Click() ' Сохранить

If OptDim.Value = True Then

	cop = DimProp.SetText(swDimensionTextPrefix, vbNullString) 'На этой строчке ошибка Automation Error

...

[Мишутка 7]

да, дебагер не появляется, но 2 раза вылезает окно с runtime error

Выяснилось вот что:

если размер сделать "обычным отверстием" с некоторым кол-вом и в две строки, затем нажать применить, то запись на чертеже получется в две строки. Если после этого перейти в "простые размеры" и нажать "применить", то знак диаметра на поле чертежа превращаеться в Ш, но изменяя текст нижней строки получаем его и в чертеже. Как только знак диаметра убираем (стираем) в окне RecordDim - солид ругается runtime error-ом и вываливается.

[Leon 433]

да, дебагер не появляется, но 2 раза вылезает окно с runtime error

Выяснилось вот что:

если размер сделать "обычным отверстием" с некоторым кол-вом и в две строки, затем нажать применить, то запись на чертеже получется в две строки. Если после этого перейти в "простые размеры" и нажать "применить", то знак диаметра на поле чертежа превращаеться в Ш, но изменяя текст нижней строки получаем его и в чертеже. Как только знак диаметра убираем (стираем) в окне RecordDim - солид ругается runtime error-ом и вываливается.

Вызвать ошибку мне так и не удалось. Проделывал все то что вы описали. После таких издевательств знак диаметра действительно изменяется, но не на Ш а на значок диаметра из шрифта. Но это не важно, просто у меня шрифт правильный. Этот баг я исправлю. Что касается ошибок, то наконец у меня появился еще один комп, на котором можно проводить эксперименты. Я поставил на него 2007 и попробую протестировать макрос на нем.

[Rich 35]

Приветсвую всю чесную братву нашего форума!

Шибко понравился последняя редакция RecordDim от Leona и не удержался немного от себя дорисовал. Все функции остались слегка обновил скин на макрос и добавил кое чего.

Вот так он сейчас выглядит:

Решил перейти с текста на картинки это позволило уменьшить размер окна макроса.

Добавил возможность скрыть макрос (уменьшение до одной кнопки)

Добавил кнопку убрать изменения (работает до того как применили изменения к размеру)

Исправил работу макроса при вставке звездочки.

Ну вот и все пожалуй.

RecordDimM.rar

[Borodatyi 0]

Чейто не пошел уменя 2006 сп4.1

[Rich 35]

Извини исправлял на 2007, возможности проверить на более позних версиях нет

[dicty 0]

Извини исправлял на 2007, возможности проверить на более позних версиях нет

На 2006 SP5.0 тоже не работает.

[Rich 35]

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

Leon черкани как у тебя прошло.

[Leon 433]

Rich У меня прошло нормально )) Переназначил библиотеки в референсах и все запустилось. Подробно не тестировал, но внешний вид впечетляет. Теперь даже не знаю, продолжать свой развивать или взять за основу этот. Чтобы все могли оценить выкладываю версию, которая должна запускаться под 2005 и выше.

Исправил работу макроса при вставке звездочки.

А что там было не так? Вроде жаловались на значок диаметра. Не успел еще это исправить.

RecordDimM_2005.rar

[Rich 35]

Да так мелочь если стоял "простой размер" то звездочка была в закрашенной зоне при отображениии размера в макросе. А так как с моими настройками винды эти закрашенные зоны вообще были темносиними то размера я почти не видел.

А макрос можешь брать за основу симпатишнее будет

[Kelny 1 234]

Добавил возможность скрыть макрос (уменьшение до одной кнопки)

А я бы предложил скрывать не в одну кнопку, а в Taskbar!

Для этого нужно объявить функции:

Private Declare Function GetActiveWindow Lib "user32.dll" () As Long

Private Declare Function GetWindowLong Lib "user32" _

Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) _

As Long

Private Declare Function SetWindowLong Lib "user32" _

Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _

ByVal dwNewLong As Long) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long

В активацию формы добавить вначале:

Public Sub UserForm_Activate()

Const GWL_EXSTYLE = (-20)

Const GWL_STYLE = (-16)



Const WS_EX_APPWINDOW = &H40000

'Const WS_MAXIMIZEBOX = 65536

Const WS_MINIMIZEBOX = 131072

Const WS_SYSMENU = 524288

'Const WS_EX_TOOLWINDOW = 128

Const WS_CAPTION = 12582912



Const SW_HIDE = 0

Const SW_SHOW = 5



	hwnd = GetActiveWindow

	lStyle = GetWindowLong(hwnd, GWL_STYLE)

	lStyle = lStyle Or WS_CAPTION

	lStyle = lStyle Or WS_SYSMENU

	lStyle = lStyle Or WS_MINIMIZEBOX

	'lStyle = lStyle Or WS_MAXIMIZEBOX

	SetWindowLong hwnd, GWL_STYLE, lStyle

	lStyle = GetWindowLong(hwnd, GWL_EXSTYLE)

	lStyle = lStyle Or WS_EX_APPWINDOW

	'lStyle = lStyle Or WS_EX_TOOLWINDOW

	SetWindowLong hwnd, GWL_EXSTYLE, lStyle

		ShowWindow hwnd, SW_HIDE

		ShowWindow hwnd, SW_SHOW



...

Для сокрытия формы в TaskBar по нажатию кнопки СКРЫТЬ:

Private Sub HideButton_Click()

Const SW_SHOWMINIMIZED = 2

Const SW_SHOWMAXIMIZED = 3

hwnd = GetActiveWindow

ShowWindow hwnd, SW_SHOWMINIMIZED

End Sub

Да и окошко информации модально привязал к форме программы, чтобы можно было продолжать работать с SW, добавить функцию:

Private Declare Function MessageBox Lib "user32.dll" Alias "MessageBoxA" (ByVal hwnd As Long, _

ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

и в вызов сообщения "О программе", заменить код на следующий:

Private Sub CmdAbout_Click()

hwnd = GetActiveWindow

MessageBox hwnd, "Made by Leon, 2007" & Chr$(10) & "Идея и исходный код - Rich", "RecordsDim", vbOKOnly Or vbExclamation

End Sub

Может это покажется не конструктивно, но вот такие предложения!

[Borodatyi 0]

Ура пошел. Rich еще раз сиб!!

[Sergei 297]

А я бы предложил скрывать не в одну кнопку, а в Taskbar!

Kelny, чем писать код, лучше бы выложил эту версию.

[FFresh 0]

Господа, не подскажете, как присвоить заданному макросу кнопку на панели инструментов?

[Kelny 1 234]

Господа, не подскажете, как присвоить заданному макросу кнопку на панели инструментов?

Открыть справочную систему по API Solidworks и написать ключевое слово:

макрос

или

macros