Solidworks API

[streamdown 1 565]

С учетом последних комментов:

у вас

при добавлении вида на чертеж

событие

m_Draw.AddItemNotify += new DDrawingDocEvents_AddItemNotifyEventHandler(m_Draw_AddItemNotify);

не вызывается?

[andrey1307n2 0]

С учетом последних комментов:

у вас

событие

m_Draw.AddItemNotify += new DDrawingDocEvents_AddItemNotifyEventHandler(m_Draw_AddItemNotify);

не вызывается?

Да, не вызывается совсем. Причем проверял макросом написанным на VBA, та же самая история.

Изменено 19 ноября 2012 пользователем andrey1307n2

[streamdown 1 565]

andrey1307n2

попробуйте <noindex>это</noindex> событие.

Скорее всего, добавление вида не относится к AddItemNotify.

[andrey1307n2 0]

Это работает. но тогда действуем по методу изложенному в сообщении #307.

Сначала тоже так думал, но, как ни странно- относится.

<noindex>https://forum.solidworks.com/message/328008#328008</noindex>

Просто я работаю с SolidWorks 2008. К версии SolidWorks 2012 много чего поправили и изменили. Это не первый момент который наковырял.

Изменено 19 ноября 2012 пользователем andrey1307n2

[Vegasok 0]

Доброе время суток. Возникла сложность с написанием макроса, может кто-нибудь знает как разрешить проблему. О процедуре запуска макроса: создаем сборочный проект в SolidWorks, добавляем файл TestPART-1-4, далее выделяем два отверстия и верхнюю грань (ctrl+leftclick), запускаем макрос Termpaper, 2 пальца и пластина сопрягаются кое-как,сложность возникла в корпусной плите, она должна лежать поверх всего, если кто знает как это исправить помогите. Заранее спасибо. Все детали и макрос в архиве.

ar.rar

[maxfederal 1]

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

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

Вот что получилось:

Sub main()

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("uyuuu.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

Part.ClearSelection2 True

boolstatus = Part.AddConfiguration2("500", "", "", True, False, False, True, 256)

boolstatus = Part.Extension.SelectByID2("", "FACE", -4.78377904437366E-03, 1.49999999999864E-02, -0.216341755998769, False, 0, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("D1@Вытянуть1@uyuuu.SLDPRT", "DIMENSION", -0.608348364572001, -0.480979725349052, -1.36805847861021, True, 0, Nothing, 0)

Dim myDimension As Object

Set myDimension = Part.Parameter("D1@Вытянуть1")

myDimension.SystemValue = 0.5

Part.ClearSelection2 True

boolstatus = Part.EditRebuild3()

End Sub

Далее я решил создать форму с текствоксом и в него вводить одно числовое значение которое будет менятся. Вот что получилось:

Sub main()

Set swApp = _

Application.SldWorks

Set Part = swApp.ActiveDoc

boolstatus = Part.Extension.SelectByID2("uyuuu.SLDPRT", "COMPONENT", 0, 0, 0, False, 0, Nothing, 0)

Part.ClearSelection2 True

boolstatus = Part.AddConfiguration2("500", "", "", True, False, False, True, 256)

boolstatus = Part.Extension.SelectByID2("", "FACE", -4.78377904437366E-03, 1.49999999999864E-02, -0.216341755998769, False, 0, Nothing, 0)

boolstatus = Part.Extension.SelectByID2("D1@Вытянуть1@uyuuu.SLDPRT", "DIMENSION", -0.608348364572001, -0.480979725349052, -1.36805847861021, True, 0, Nothing, 0)

Dim myDimension As Object

Set myDimension = Part.Parameter("D1@Вытянуть1")

myDimension.SystemValue = TextBox1.Value / 1000

Part.ClearSelection2 True

boolstatus = Part.EditRebuild3()

End Sub

Вопрос у меня вот в чем: Как изменить имя конфигурации (сейчас оно равно 500))???

Очень ожидаю ответа. Спасибо!

Изменено 16 января 2013 пользователем maxfederal

[Kelny 1 286]

Как изменить имя конфигурации (сейчас оно равно 500))???

Вероятно: <noindex>http://help.solidworks.com/2010/english/ap...rationname.html</noindex>

[maxfederal 1]

Я почител, но никак не могу понять что необходимо написать в коде

[streamdown 1 565]

maxfederal

Для начала, вешайте изменение значения на кнопку а не на загрузку формы))) Иначе получается деление на null.

И что не получается то?

boolstatus = swModel.AddConfiguration2("500", "", "", true, false, false, true, 256);

			Dimension swDimension = default(Dimension);

			swDimension = (Dimension)swModel.Parameter("D1@Бобышка-Вытянуть1");

			swDimension.SystemValue = Convert.ToInt32(textBox1.Text) / 1000;

			swModel.ClearSelection2(true);

			boolstatus = swModel.EditRebuild3();

[maxfederal 1]

это я так понимаю на С шарпе написано, а я записываю макрос на ВБА

[streamdown 1 565]

maxfederal

Какая разница? Синтаксис один и тот же.

Ещё раз:

Для начала, вешайте изменение значения на кнопку а не на загрузку формы))) Иначе получается деление на null.

и

И что не получается то?

на С шарпе написано,

Удалил ненужные строки. Весь остальной код ваш, и он работает.

[Kelny 1 286]

Как изменить имя конфигурации (сейчас оно равно 500))???

Я почител, но никак не могу понять что необходимо написать в коде

Например, это:

'Объявляем всё, что нужно

Dim swApp As SldWorks.SldWorks

Dim swModel As ModelDoc2

Set swApp = Application.SldWorks

Set swModel = swApp.ActiveDoc





'VV===========тут происходит смена конфигурации и переименование=================VV

'Меняем активную конфигурацию, если надо, в данном случае с именем 500

swModel.ShowConfiguration2 "500"



'Меняем имя активной конфигурации, например, на 200,

'если указанное имя в конфигурациях уже есть, то переименование не произойдёт

swModel.ConfigurationManager.ActiveConfiguration.Name = "200"

[maxfederal 1]

streamdown, подскажите можно ли записывать макрос на си шарпе а не на ВБА?

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

(swModel.ConfigurationManager.ActiveConfiguration.Name = TextBox1)

[streamdown 1 565]

maxfederal

Попробуйте прочитать справку по API и по самому VBA!

Private Sub CommandButton1_Click()

Set swApp = CreateObject("SldWorks.Application")

 Set Part = swApp.ActiveDoc

 

boolstatus = Part.AddConfiguration2(TextBox2.Value, "", "", True, False, False, True, 256)

Dim myDimension As Object

Set myDimension = Part.Parameter("D1@Бобышка-Вытянуть1")

myDimension.SystemValue = TextBox1.Value / 1000

Part.ClearSelection2 True

boolstatus = Part.EditRebuild3()

End Sub

[Kelny 1 286]

Как его привязать?.

(swModel.ConfigurationManager.ActiveConfiguration.Name = TextBox1)

swModel.ConfigurationManager.ActiveConfiguration.Name = TextBox1.Value

подскажите можно ли записывать макрос на си шарпе а не на ВБА?

Так же как и VBA, только в окне сохранения выбрать другой тип файла (это кажется с SW2010, раньше такого не было).

[maxfederal 1]

swModel.ConfigurationManager.ActiveConfiguration.Name = TextBox1.Value

На эту строчку ругается редактор макросов

[fox1001 788]

swModel.ConfigurationManager.ActiveConfiguration.Name = TextBox1.Value

На эту строчку ругается редактор макросов

а если предварительно новое имя конфы записать в текстовую переменную:

Dim confName as StringconfName = TextBox1.ValueswModel.ConfigurationManager.ActiveConfiguration.Name = confName

в прикрепке архив с рабочим макросом. макрос отработал нормально - в textbox вводи новое имя конфы, жми commandbutton, кофа переименовывается.

Скрытый текст: подключенные библиотеки:

Visual Basic For Applications

SolidWorks Extensibility Type Library

OLE Automation

SldWorks 2012 Type Library

SolidWorks 2012 Constant type library

SolidWorks 2012 Commands type library

Microsoft Forms 2.0 Object Library

Evaluation1

Macro2.zip

Изменено 16 января 2013 пользователем fox1001

[maxfederal 1]

Спасибо большое!!!

Появилась неожиданая проблемка. Суть ее вот в чем: Когда я запускаю макрос с формой в режиме отладки, тоя вижу окно и могу вводить все данные в форму. Но когда я запускаю макрос в номальном режиме, то окно не появляется и не чего не происходит к тому же солид ни как не риагирует на мои действия. В диспетчере задач видно что макрос запущен и работает, но когда я снимаю задачу виполнения макроса, то солид снова нормально реагирует на действия. Такое чувство что форма не видимая.

Изменено 17 января 2013 пользователем maxfederal

[streamdown 1 565]

maxfederal

Попробуйте прочитать справку по API и по самому VBA!

Запускать нужно Main

[Kelny 1 286]

Появилась неожиданая проблемка.

У вас не проблемки, а одна большая проблема и эта проблема заключается в незнание основ не то, что SOLIDWORKS API, а даже основ программирования. На таких познаниях далеко не уедешь, нужно вдумчивое изучение базовых примеров по основам программирования, например: "Hello, Word!"

А также необходимо подтянуть базовые познания:

1. Как работать со справочной системой и что такое Help

2. Базовые методы поиска и составления запросов в поисковых системах по интернету.

Такое чувство что форма не видимая.

А вы её отображали, что бы увидеть? Что-нибудь вроде этого: UserForm1.show vbModal или UserForm1.show vbModeles