Глобальная переменная

[greasemonkey 1]

Спасибо, реально не дочитал.

[Kir95 951]

3 часа назад, greasemonkey сказал:

Простым путем (включил запись) вставить глобальную переменную не получилось

Вставьте в новый пустой макрос, поменяйте значения в кавычках, сохраните и запустите:

Option Explicit
Sub main()
    Dim SwApp           As SldWorks.SldWorks
    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
    
    Set SwApp = Application.SldWorks
    Set Part = SwApp.ActiveDoc

    Set swEquationMgr = Part.GetEquationMgr
    
    swEquationMgr.Add2 -1, """A"" = 1", True
    swEquationMgr.Add2 -1, """B"" = 2", True
    swEquationMgr.Add2 -1, """C"" = 3", True
End Sub

Можно ещё экспортом-импортом уравнений, почитайте здесь:

http://help.solidworks.com/2012/russian/SolidWorks/sldworks/c_sharing_equations_among_models.htm?verRedirect=1

[ILL 241]

4 часа назад, greasemonkey сказал:

VBA уже начал учить... аж три часа уже потратил :-)

 

Мало.. Я тут уже несколько раз писал, что потратил неделю на книжку и неделю на пробу пера..

 

4 часа назад, greasemonkey сказал:

Простым путем (включил запись) вставить глобальную переменную не получилось....

 

К сожалению, в макрос записываются не все действия..

 

4 часа назад, greasemonkey сказал:

 

Итого вопрос - как вставить три глобальных переменных в файл, где их раньше не было?

 

Раньше мне финт ушами приходилось делать..

1. Считать макросом все уравнения в модели и записать их в одномерный строковый массив..

2. Удалить все уравнения в модели..

3. Добавить в массив строки с нужными уравнениями..

4. Вставить макросом все уравнения из массива обратно в модель..

 

А сейчас сходу нашел

 

http://help.solidworks.com/2015/english/api/sldworksapi/Add_Equations_Example_VB.htm

[Атан 460]

11 минуту назад, ILL сказал:

Раньше мне финт ушами приходилось делать..

А макрос зачем? Создать по очереди три глобальных переменных в окне уравнений...

[ILL 241]

У меня было не три уравнения, а намного больше..

[Атан 460]

9 минут назад, ILL сказал:

У меня было не три уравнения, а намного больше..

Но в макрос ведь тоже нужно это всё писать, как и в окно уравнений....

Изменено 2 апреля 2018 пользователем Атан

[Kir95 951]

А как же количество лишних действий?

22 минуты назад, Атан сказал:

Создать по очереди три глобальных переменных

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

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

Последних пару лет ничего добавлять не приходится.

[Атан 460]

4 минуты назад, Kir95 сказал:

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

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

Последних пару лет ничего добавлять не приходится.

Я открыл окно один раз и создал по очереди три переменные. А как в макросе?

Изменено 2 апреля 2018 пользователем Атан

[ILL 241]

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

[Kir95 951]

Один раз создал макрос и, не открывая окна,

25 минут назад, Атан сказал:

Я открыл окно один раз и создал по очереди три переменные. А как в макросе?

Вы не договариваете. Закрывать окно кто будет?

[Атан 460]

7 минут назад, Kir95 сказал:

Один раз создал макрос и, не открывая окна,

Вы не договариваете. Закрывать окно кто будет?

А разве это долго (один клик)? 

Ведь и макрос запускать надо......

[ILL 241]

Макрос запускается один раз для всей сборки..

[Атан 460]

43 минуты назад, ILL сказал:

Макрос запускается один раз для всей сборки..

Окно уравнений сделано один раз (не мной) для данной версии SW...

[ILL 241]

Да, окно уравнения надо запускать в каждой модели.. А я макрос запускаю один раз в главной сборке.. Все остальное он сам открывает нужные модели и записывает уравнения..

[Атан 460]

7 минут назад, ILL сказал:

Да, окно уравнения надо запускать в каждой модели.. А я макрос запускаю один раз в главной сборке.. Все остальное он сам открывает нужные модели и записывает уравнения..

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

Мне интересно, а что макрос записывает (какие уравнения?)? Он сам знает, что Вам нужно (макрос-телепат)?

Изменено 3 апреля 2018 пользователем Атан

[ILL 241]

51 минуту назад, Атан сказал:

Он сам знает, что Вам нужно

 

Нет, я ему задаю..

 

52 минуты назад, Атан сказал:

Разговор был про создание глобальной переменной (нескольких переменных) в главной сборке. 

 

Мы уже давно отклонились от темы..

[greasemonkey 1]

13 часа назад, Kir95 сказал:

Вставьте в новый пустой макрос, поменяйте значения в кавычках, сохраните и запустите:

Option Explicit
Sub main()
    Dim SwApp           As SldWorks.SldWorks
    Dim Part            As SldWorks.ModelDoc2
    Dim swEquationMgr   As SldWorks.EquationMgr
    
    Set SwApp = Application.SldWorks
    Set Part = SwApp.ActiveDoc

    Set swEquationMgr = Part.GetEquationMgr
    
    swEquationMgr.Add2 -1, """A"" = 1", True
    swEquationMgr.Add2 -1, """B"" = 2", True
    swEquationMgr.Add2 -1, """C"" = 3", True
End Sub

 

СПАСИБО!!! Надо учить VBA....

[Атан 460]

6 часов назад, ILL сказал:

 

Нет, я ему задаю..

 

 

Мы уже давно отклонились от темы..

И что Вы мне доказываете (правда, не знаю)? 

[ILL 241]

1 час назад, Атан сказал:

И что Вы мне доказываете (правда, не знаю)?

 

1. Надо пользоваться глобальными переменными..

2. Ну и..

7 часов назад, greasemonkey сказал:

! Надо учить VBA....

Хотя бы..

[Атан 460]

2 часа назад, ILL сказал:

1. Надо пользоваться глобальными переменными..

2. Ну и..

1. Это уже обсудили (удобно при работе с большими чужими сборками).

2. Может быть, если есть необходимость (как и любое другое изучение нужного предмета).