Макрос для создания нового виртуального компонента

[ИльдарСолид 0]

Доброго времени суток! Пишу макрос, новичок )

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

     при вызове макроса

1. открывается пользовательская форма(где есть Поле ввода Имени файла   )  

2. ввожу имя и нажимаю на кнопку  создать ,создается компонент с заданным в текст боксе именем

Форму уже сделал ,не могу создать правильную команду 

текст программы 

 

 

Option Explicit

' ******************************************************************************
' C:\Users\oleg-PC\AppData\Local\Temp\swx13248\Macro1.swb - macro recorded on 05/19/20 by oleg-PC
' ******************************************************************************
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Private Sub CommandButton1_Click()

Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
' Insert New Virtual Part
Dim swFaceOrPlane As Object
Dim swComponent As Component2
longstatus = Part.InsertNewVirtualPart(swFaceOrPlane, swComponent)

End Sub

Private Sub UserForm_Initialize()
TextBox1.Value = ""
ComboBox1.Clear
ComboBox1.AddItem "СБ"
ComboBox1.AddItem "ДТ"
End Sub
 

[SanyaShurik 6]

Лучше добавь его в качества детали, а потом уже сделай виртуальным. Так будет проще. 

[Kelny 1 232]

В 19.05.2020 в 10:04, ИльдарСолид сказал:

1. открывается пользовательская форма(где есть Поле ввода Имени файла   )  

2. ввожу имя и нажимаю на кнопку  создать ,создается компонент с заданным в текст боксе именем

Форму уже сделал ,не могу создать правильную команду 

1. Считываете с формы имя в переменную, например: NewName

2. Вставляете компонент:

http://help.solidworks.com/2010/english/api/sldworksapi/Insert_New_Virtual_Component_Example_VB.htm

3. Переименовываете вставленное под своё имя из переменной, вероятно как-то так:

swComponent.Name2 = NewName

 

Изменено 4 июня 2020 пользователем Kelny

[alek77 202]

как в образце можно тут посмотреть