Solidworks API

[brigval 717]

15 часов назад, Kelny сказал:

Убрать может и можно, но после перезагрузки файла полное имя разве не восстанавливается?

Связано вероятно с соответствующей галочкой Инструменты-Параметры...-Настройки пользователя-Внешние ссылки:

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

 

Если Вы имеете ввиду это, то не срабатывает. Вручную правится и после перезагрузки имя в дереве остается исправленным, без "крыши".

 

[makarov 0]

Добрый день, хочу получить значение одного из свойств детали/сборки,

 

Option Explicit

Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim config As SldWorks.Configuration
Dim cusPropMgr As ICustomPropertyManager
Dim lRetVal As Long
Dim ValOut As String
Dim ResolvedValOut As String
Dim wasResolved As Boolean

Sub main()

    Set swApp = Application.SldWorks
    Set swModel = swApp.ActiveDoc
    Set config = swModel.GetActiveConfiguration
    
    Set cusPropMgr = config.CustomPropertyManager
    

    lRetVal = cusPropMgr.Get5("L", False, ValOut, ResolvedValOut, wasResolved)
    Debug.Print lRetVal

End Sub

Значения переменной lRetVal в Debug получаю 2, если такой параметр есть и 1, если такого параметра нет.

 

подскажите, что делаю не так? Мне нужно значение параметра L

[Kelny 1 313]

12 минут назад, makarov сказал:

Значения переменной lRetVal в Debug получаю 2, если такой параметр есть

 

12 минут назад, makarov сказал:

Мне нужно значение параметра L

Так смотрите что в ValOut  ( Debug.Print ValOut ), возможно в совокупности с другими данными (ResolvedValOut, wasResolved, хотя если UseCached=False, то это уже не важно, т.к. всё перестроится и выдаст актуальные данные):

http://help.solidworks.com/2020/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.icustompropertymanager~get5.html

Изменено 12 октября 2021 пользователем Kelny

[makarov 0]

Круто, так просто, спасибо!

А в чем разница между:

ValOut

Value of the custom property

ResolvedValOut Evaluated value of the custom property  

31 минуту назад, Kelny сказал:

 

Так смотрите что в ValOut  ( Debug.Print ValOut ), возможно в совокупности с другими данными (ResolvedValOut, wasResolved, хотя если UseCached=False, то это уже не важно, т.к. всё перестроится и выдаст актуальные данные):

http://help.solidworks.com/2020/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.icustompropertymanager~get5.html

 

[Kelny 1 313]

41 минуту назад, makarov сказал:

ResolvedValOut Evaluated value of the custom property  

Тут могут быть устаревшие значения, если конфигурация в модели не была обновлена. Так что вероятно должно быть ValOut и:

Цитата

Если вам всегда нужны актуальные данные, вам следует установить для UseCached значение false. [вольный перевод справки]

http://help.solidworks.com/2020/english/api/sldworksapi/solidworks.interop.sldworks~solidworks.interop.sldworks.icustompropertymanager~get5.html

 

 

Изменено 12 октября 2021 пользователем Kelny

[Snake 60 747]

45 минут назад, makarov сказал:

А в чем разница между:

 

ValOut

Value of the custom property

ResolvedValOut Evaluated value of the custom property  

[makarov 0]

Здравствуйте, еще вопрос. Может ли функция возвращать несколько переменных. Я хотел попробовать массивом, но не пойму как правильно записать. И в  справке про функции массивы ничего не нашел.

 

Глобально идея сделать функцию, которая будет возвращать в основную программу несколько рассчитанных переменных.

 

Ответ нашел сам, спасибо, можно удалить сообщение. Не понимаю как это сделать самостоятельно.

Изменено 13 октября 2021 пользователем makarov

[Kelny 1 313]

15 часов назад, makarov сказал:

Ответ нашел сам, спасибо, можно удалить сообщение.

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

[Sturmann 34]

Здравствуйте коллеги.

Прошу помощи у знающих людей

Пишу add on с property manager для автоматического добавления присадки на деталь. И столкнулся с такой проблемой.

Не могу понять как написать процедуру для фантомного отображения будущего элемента на теле детали.

 

[streamdown 1 565]

@Sturmann

Смотрите в сторону IModeler

Ну или ещё есть решение. Нарисовать самому и руками с помощью OpenGL те же кромки-линии превьюшки. Довольно заморочено, но если освоите - будет огромный опыт.

Изменено 17 октября 2021 пользователем streamdown

[Sturmann 34]

17.10.2021 в 19:20, streamdown сказал:

@Sturmann

Смотрите в сторону IModeler

Ну или ещё есть решение. Нарисовать самому и руками с помощью OpenGL те же кромки-линии превьюшки. Довольно заморочено, но если освоите - будет огромный опыт.

ок. спасибо за наводку. попробую на досуге

[Alex_pcbld 0]

Добрый день!

Прошу советов в двух вопросах, на которых затрял при написании своего макроса.

1. У меня есть ряд размеров на чертеже, я размещаю эти размеры на определенное расстояние от детали и некоторые из них становятся, какбы, ниже заданой координаты.
Собственно вопрос, как припомощи макроса, правильно разместить размеры на одном расстоянии от тела детали?
На данный момент я это делаю с помощью swAnnotation.SetPosition2

2. Есть ряд радиусов, которые тоже надо расположить в пределах секции изгиба, я знаю координаты, которыми эта секция ограничена, но я не знаю на данный момент как сделать так, чтобы стрелка радиуса не покидала пределы этой секции.  Буду рад любой помощи в данном направлении

Картинка для примерного понимания:

[streamdown 1 565]

@Alex_pcbld  картинка не отображается.

(1)По размерам: а почему бы не воспользоваться автовыравниванием выделив все необходимые размеры?

(2)У размеров есть интерфейс IDisplayDimension Там есть и стрелочки и прочее.

[Snake 60 747]

1 час назад, streamdown сказал:

картинка не отображается.

[Snake 60 747]

Ребята, кто знает, поясните где у меня ошибка? вот этой строкой, ищу в текстовой строке символ "|":

If Int(InStr(MatOut, "|", vbTextCompare)) = 0 Then

Выдает ошибку:

Не могу понять почему. InStr же должен выводить 0 если не находит этот символ, а в итоге Type mismatch.

Изменено 5 декабря 2021 пользователем Snake 60

[Snake 60 747]

Блин, надо было чутка подумать, напишу решение, может кому-то пригодиться. Сработала вот такая строка:

        If InStr(1, MatOut, "|", vbBinaryCompare) = 0 Then

То есть при бинарном сравнении InStr возвращает значение типа long, то бишь число.

ЛИБО

        If InStrRev(MatOut, "|", -1, vbBinaryCompare) = 0 Then

Как оказалось InStrRev всегда возвращает значение типа long

Изменено 5 декабря 2021 пользователем Snake 60

[Gaidn 11]

1 час назад, Snake 60 сказал:

Блин, надо было чутка подумать, напишу решение, может кому-то пригодиться. Сработала вот такая строка:

        If InStr(1, MatOut, "|", vbBinaryCompare) = 0 Then

То есть при бинарном сравнении InStr возвращает значение типа long, то бишь число.

ЛИБО

        If InStrRev(MatOut, "|", -1, vbBinaryCompare) = 0 Then

Как оказалось InStrRev всегда возвращает значение типа long

https://docs.microsoft.com/ru-ru/office/vba/language/reference/user-interface-help/instr-function

Здесь сказано, что если Вы задаёте аргумент сравнения (в Вашем случае vbBinaryCompare), то Вы обязаны задать аргумент начала. Поэтому, когда Вы добавили этот аргумент (1), то всё и заработало.

[brigval 717]

15 часов назад, Snake 60 сказал:

Ребята, кто знает, поясните где у меня ошибка? вот этой строкой, ищу в текстовой строке символ "|":

If Int(InStr(MatOut, "|", vbTextCompare)) = 0 Then

Выдает ошибку:

Не могу понять почему. InStr же должен выводить 0 если не находит этот символ, а в итоге Type mismatch.

В этом случае надо так

 InStr(1,...,...,vbTextCompare)

Когда указываете способ сравнения, надо указывать с какого номера символа осуществлять поиск.

Так как вертикальная черта не имеет верхнего и нижнего регистра, можно записать проще

InStr(MatOut, "|").

 

 

Ой, на сотовом не увидел ответы )

Изменено 6 декабря 2021 пользователем brigval

[Snake 60 747]

15 часов назад, brigval сказал:

Ой, на сотовом не увидел ответы )

Всё равно, всем спасибо )

[Cybermaster43 0]

Здравствуйте!

Вроде не некропост, помогите.

В параметрах конфигурации есть галка "использовать в спецификации", чтоб описание конфигурации в BOM попадало. 

Как эту галку поставить средствами vba? Как перебирать конфигурации, я умею.