Solidworks API

[mrazzzb 0]

@streamdown Скажите пожалуйста, можно ли два объекта с формата (".sldprt" - деталь), добавить как отдельные детали в сборку? Как добавлять деталь в сборку знаю. А вот как обратиться к одному из твердых тел в "детали" и сохранить отдельно в формате ".sldprt"  чтобы потом добавить в сборку, не знаю.. Если вообще так можно.

 

Изменено 25 мая 2017 пользователем mrazzzb

[streamdown 1 565]

1 минуту назад, mrazzzb сказал:

сохранить отдельно в формате ".sldprt"

Хммм...

Попробуйте вот что:

- в сборке выбрать компонент

- войти в режим его редактирования AssemblyDoc::EditPart2

- раскопать в API как работать с методом CreateFeatureFromBody3 

[mrazzzb 0]

1 минуту назад, streamdown сказал:

Попробуйте вот что:

- в сборке выбрать компонент

- войти в режим его редактирования AssemblyDoc::EditPart2

- раскопать в API как работать с методом CreateFeatureFromBody3 

Спасибо! Посмотрю!!

[Pavel92.08 1]

Подскажите пожалуйста ,можно ли при добавлении eDrawings ActiveX control (просмотр 3d модели)  добавить кнопку включение функции измерить ?

[streamdown 1 565]

@Pavel92.08 канеш можно. http://help.solidworks.com/2015/english/api/emodelapi/eDrawings.Interop.EModelViewControl~eDrawings.Interop.EModelViewControl.IEModelViewControl~EnableFeature.html

Надо его включить в коде.

[Pavel92.08 1]

39 минут назад, streamdown сказал:

@Pavel92.08 канеш можно. http://help.solidworks.com/2015/english/api/emodelapi/eDrawings.Interop.EModelViewControl~eDrawings.Interop.EModelViewControl.IEModelViewControl~EnableFeature.html

Надо его включить в коде.

спасибо 

[mrazzzb 0]

@streamdown Привет, у меня вопросы не закончатся наверно        

Почему то не определяет запущенный SolidWorks, просто запускаю по значку на рабочем столе, и не находит2016 версию находит а 2012 нет. Но мне нужно чтобы 2012 находил.. В чем может быть проблема? 

public Boolean GetSolidworks()
        {
            try
            {
                SwApp = (SldWorks)Marshal.GetActiveObject("SldWorks.Application");
            }
            catch
            {
               
                MessageBox.Show("Ошибка, Solidworks не найден", "Внимание!",  MessageBoxButtons.OK, MessageBoxIcon.Exclamation);
                return false;
            }
             return true;
         }

 

Изменено 27 мая 2017 пользователем mrazzzb

[streamdown 1 565]

9 часов назад, mrazzzb сказал:

2016 версию находит а 2012 нет

 

9 часов назад, mrazzzb сказал:

у меня вопросы не закончатся наверно

И тут я такой хоппа, как джин из бутылки)))

SwApp = (SldWorks)Marshal.GetActiveObject("SldWorks.Application.25");//для 2017
SwApp = (SldWorks)Marshal.GetActiveObject("SldWorks.Application.24");//для 2016 

далее, думаю, сможете посчитать 

 

[mrazzzb 0]

@streamdown Еще одна проблема решенаСпасибо вам! Только вот когда солид запущен посредством guid, свойство 

GetActiveObject("SldWorks.Application.24"); 

не помогает, не видит почему-то  создаю документ как вы и говорили NewDocument2(), все безуспешно.

[streamdown 1 565]

Если вы запустили SW ранее, но ничего дальше видеть не надо. У вас он уже есть и  GetActiveObject делать не надо.

[mrazzzb 0]

@streamdown Я к тому  что, запустил солид по guid, закрыл свою программу, потом открываю заново и не могу, так сказать, "подключиться" к открытому солиду.

Изменено 28 мая 2017 пользователем mrazzzb

[streamdown 1 565]

Ну а закрывать солид по завершении программы кто будет? 

Цитата

ExitApp

 

[mrazzzb 0]

@streamdown то есть нельзя оставлять его открытым и потом заново к нему обратиться? 

[streamdown 1 565]

Зачем? Вы его открыли в программе. Программа сделала своё дело. Ну так закройте "за собой" 

Если он вам дальше понадобится, то зачем выходить из программы?

[mrazzzb 0]

1 минуту назад, streamdown сказал:

Если он вам дальше понадобится, то зачем выходить из программы?

В случае если ошибка в коде, чтобы второй раз не ждать пока он запуститься, да и вдруг случайно закроется программа))

[streamdown 1 565]

Только что, mrazzzb сказал:

В случае если ошибка в коде

Тогда руками.

Только что, mrazzzb сказал:

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

Вы эти случайности должны отлавливать.

 

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

[mrazzzb 0]

@streamdown Хорошо, я вас понялСпасибо вам огромное!!

[SLWRKX 2]

Здравствуйте, помогите пожалуйста с темой.

 

[ILL 241]

Поставили мне тут на работе SW15.. Запускаю из редактора макрос VBA и окно солида становится не доступным для любых действий..
Тыкаю мышкой в любое место окна, а окно макроса мыргает, типа "я тут сверху, к солиду не лезь!!!"

В SW 12, 09, 07 такого не было..

Как обойти это безобразие??
 

[Kelny 1 313]

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

Поставили мне тут на работе SW15.. Запускаю из редактора макрос VBA и окно солида становится не доступным для любых действий..
Тыкаю мышкой в любое место окна, а окно макроса мыргает, типа "я тут сверху, к солиду не лезь!!!"

В SW 12, 09, 07 такого не было..

Как обойти это безобразие??

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

Ищите по ключевым словам VBA always onTop (то есть форма приобретает свойство быть поверх всех окон) , например, можно это посмотреть (первое попавшееся):

Цитата

Option Explicit 
 'API function to enable/disable the Excel Window
Private Declare Function FindWindowA Lib "user32" _ 
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long 
 
Private Declare Function EnableWindow Lib "user32" _ 
(ByVal hwnd As Long, ByVal bEnable As Long) As Long 
 
Private Declare Function SetWindowPos Lib "user32" ( _ 
ByVal hwnd As Long, ByVal hWndInsertAfter As Long, _ 
ByVal X As Long, ByVal Y As Long, ByVal cx As Long, _ 
ByVal cy As Long, ByVal wFlags As Long) As Long 
 
Private Const SWP_NOSIZE = &H1 
Private Const SWP_NOMOVE = &H2 
Private Const FLAGS As Long = SWP_NOMOVE Or SWP_NOSIZE 
Private Const HWND_TOPMOST = -1 
Private Const HWND_NOTOPMOST = -2 
Private mlHWnd As Long 
Private mbDragDrop As Boolean 
Private FormHWnd As Long 
 
Private Sub cmdNotTop_Click() 
    SetWindowPos FormHWnd, HWND_NOTOPMOST, 0, 0, 0, 0, FLAGS 
End Sub 
 
Private Sub cmdTop_Click() 
    SetWindowPos FormHWnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS 
End Sub 
 
Private Sub UserForm_Activate() 
    On Error Resume Next 
     'Find the Excel main window
    mlHWnd = FindWindowA("XLMAIN", Application.Caption) 
    FormHWnd = FindWindowA(vbNullString, Me.Caption) 
    Call cmdTop_Click 
     'Enable the Window - makes the userform modeless
    EnableWindow mlHWnd, 1 
    mbDragDrop = Application.CellDragAndDrop 
    Application.CellDragAndDrop = False 
End Sub 
 
Private Sub btnOK_Click() 
    Application.CellDragAndDrop = mbDragDrop 
    Call cmdNotTop_Click 
    Unload Me 
End Sub 

http://www.vbaexpress.com/forum/showthread.php?5071-Solved-Keep-userform-on-top-at-all-times&p=42974&viewfull=1#post42974

 

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