Solidworks API

[Kelny 1 266]

Kelny

Можете помочь?

Тут может помочь только бубен и каким-то образом менять выделение или кликать по всяким кнопкам средствами всяких API по ка не получится обновить допуски, т.к. в Solidworks не предусмотрено брать значения допуска из базы данных, если значение допуска введено вручную или через API. Можно конечно воспользоваться WinAPI, по совету Shvg , но это может быть не стабильно и, на мой взгляд, некоторое извращение...

Если про то, что программа вставляла числовые значения в поля допусков, то это плёвое дело: 1 XML-ка и (опять же) пару строк кода...даже одна)))

Тогда в чём проблема? Конвертируете базу данных FIT.MDB в удобный вам формат или читаете непосредственно базу, можно даже выкинуть всё лишние и swDimensionTolerance.SetValues (MinValue_Double, MaxValue_Double)

чтобы не листать этот длинный список посадок в комбобоксе.

Как вариант почистить от всего ненужного базу данных FIT.MDB.

[streamdown 1 565]

Kelny

нет проблем))) время надо. Но такое самому нужно, а знач обязательно сделаю.

[tjomka 0]

Нашёл на сайте <noindex>Сadsharp</noindex> макрос, с помощью которого можно добавить в свойства детали название применённого внешнего вида.

Код макроса:



Sub main()

	Set swApp = Application.SldWorks

	Set swModel = swApp.ActiveDoc

	vRenderMats = swModel.Extension.GetRenderMaterials

	Set swRenderMat = vRenderMats(0)	'assume only one appearance in part

	strRenderMat = swRenderMat.FileName

	strRenderMat = Replace(strRenderMat, ".p2m", "")

	strRenderMat = _

		Right(strRenderMat, Len(strRenderMat) - InStrRev(strRenderMat, "\"))

	

	Set swCustPropMgr = swModel.Extension.CustomPropertyManager(Empty)

	swCustPropMgr.Add2 "appearance", swCustomInfoText, strRenderMat

End Sub

Но при применении данного макроса у меня возникло две проблемы:

1) Почему-то в свойствах детали наименование внешнего вида прописывается маленькими буквами (см. картинку), хотя само название файла внешности выглядит так: "RAL 1003.p2m". Пробывал менять свойства файла внешности - результата не дало. Вопрос: можно ли как-то это исправить?

2) При применении макроса значение в свойтсвах детали добавляется, но вот, если я применяю другую внешность детали, то значение остаётся старым. Помогает только, если перед этим стереть данное значение из свойств. Вопрос: можно ли этого избежать, т.е. сделать так, чтобы при изменении внешности и после применения макроса значение менялось на новое (т.е. для его изменения не нужно было бы его заранее удалять из свойств).

P.S. К сожалению в API я почти 0, но начинаю чувствовать надобность в его изучении, поэтому надеюсь на вашу помощь.

<noindex></noindex>

[Kelny 1 266]

Почему-то в свойствах детали наименование внешнего вида прописывается маленькими буквами

...

swCustPropMgr.Add2 "appearance", swCustomInfoText, Ucase(strRenderMat)

...

[Kelny 1 266]

2) При применении макроса значение в свойтсвах детали добавляется, но вот, если я применяю другую внешность детали, то значение остаётся старым.

Перед применением этого:

swCustPropMgr.Add2 "appearance", swCustomInfoText, strRenderMat

вам нужно удалять (swCustPropMgr.Delete(FieldName As String) As Long) предыдущее свойство или использовать другую функцию swCustPropMgr.Set(FieldName As String, FieldValue As String) As Long, но она может дать ошибку, если свойства с таким именем нет в файле.

[tjomka 0]

Перед применением этого:вам нужно удалять (swCustPropMgr.Delete(FieldName As String) As Long) предыдущее свойство или использовать другую функцию swCustPropMgr.Set(FieldName As String, FieldValue As String) As Long, но она может дать ошибку, если свойства с таким именем нет в файле.

Спасибо! Помогло.

Извиняюсь, за наглость, но ещё один вопрос: возможно ли сделать так, чтобы данный макрос работал и в деталях и в сборке?

[Kelny 1 266]

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

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

[ssv22 17]

Перед применением этого:вам нужно удалять (swCustPropMgr.Delete(FieldName As String) As Long) предыдущее свойство или использовать другую функцию swCustPropMgr.Set(FieldName As String, FieldValue As String) As Long, но она может дать ошибку, если свойства с таким именем нет в файле.

Несколько непонятно: разве нет механизма "отлавливания" ошибок?

"Даже в VB6.0 есть :

"

On Error Resume Next ' Defer error trapping.

...

"

И др. On "Error"

[Kelny 1 266]

Несколько непонятно: разве нет механизма "отлавливания" ошибок?

Протсто не проверял и предупредил (эту функцию ещё не использовал), механизм отлавливания ошибки может быть и вшит в функцию и просто выдавать например -1 или бывает False. или как вы упомянули применить OnError.

[tjomka 0]

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

Если так же применяю внешность к сборке и запускаю макрос, то появляеться ошибка:

Run-time error '13':

Type mismatch

Ссылаясь на строку:

Set swRenderMat = vRenderMats(0)	'Assume only one appearance in part

[Kelny 1 266]

Если так же применяю внешность к сборке и запускаю макрос, то появляеться ошибка:

Run-time error '13':

Type mismatch

Думаю логично прежде чем, что-то брать (vRenderMats = swModel.Extension.GetRenderMaterials) надо сначала добавить (Function AddRenderMaterial(PRenderMaterial As RenderMaterial, PwMaterialId As Long) As Boolean или вручную добавить внешний вид в сборку и/или шаблон сборки)

Если в детали нет внешнего вида (судя по всему у вас в деталях внешний вид добавлен в шаблон детали), вы так же получите ошибку с кодом 13 так как не чего брать...

[tjomka 0]

Думаю логично прежде чем, что-то брать (vRenderMats = swModel.Extension.GetRenderMaterials) надо сначала добавить (Function AddRenderMaterial(PRenderMaterial As RenderMaterial, PwMaterialId As Long) As Boolean или вручную добавить внешний вид в сборку и/или шаблон сборки)

Если в детали нет внешнего вида (судя по всему у вас в деталях внешний вид добавлен в шаблон детали), вы так же получите ошибку с кодом 13 так как не чего брать...

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

<noindex></noindex>

[streamdown 1 565]

tjomka

если это сборка, то нужно либо получать компонент, либо применять на уровне сборки. В обоих случаях код приведённого макроса не верен. Там по другому надо.

[tjomka 0]

tjomka

если это сборка, то нужно либо получать компонент, либо применять на уровне сборки. В обоих случаях код приведённого макроса не верен. Там по другому надо.

ок. значит пока что будем использовать то, что есть и как есть, а когда время появиться - будем изучать API

[tjomka 0]

Возможно ли сделать так, чтобы действие макроса не распространялось на элементы/детали взятые из библиотеки? Если да, то какой именно должен быть код? (желательно на VBA). Заранее спасибо!

[streamdown 1 565]

tjomka

Получайте путь к детали, если совпадает с библиотечным = false)))

[tjomka 0]

спасибо, попробуем!

[streamdown 1 565]

Начал расписывать всё по созданию своих аддонов (DLL)

<noindex>http://streamdown.blogspot.ru/p/solidworks-addon-dll-2.html</noindex>

[Shvg 67]

Начал расписывать всё по созданию своих аддонов (DLL)

<noindex>http://streamdown.blogspot.ru/p/solidworks-addon-dll-2.html</noindex>

Не забудь расписать действия при закрытии формы в адоне, а то m_form.Show() не сработает.

[streamdown 1 565]

Shvg

упс)) про обнуление то забыл