Rich

Сделай свою работу в Solidworks эффективнее

3 963 сообщения в этой теме

Всем Привет.

Помогите разобраться. Переделал пример под себя. Надо тоже самое только в Сборке.

    ----------------------------------------------------

    Dim App As SldWorks.SldWorks
    Dim Model As SldWorks.ModelDoc2
    Dim Part As SldWorks.PartDoc
    Dim SelMgr As SldWorks.SelectionMgr
    Dim Entity As SldWorks.Entity
    Dim SelObj As Object
    Dim Name As String
    
Sub amin()
    Set App = CreateObject("SldWorks.Application")
    Set Model = App.ActiveDoc
    Set Part = Model
    Set SelMgr = Model.SelectionManager
    
    If (SelMgr.GetSelectedObjectCount <> 0) Then
        Set SelObj = SelMgr.GetSelectedObject6(1, -1)
        Set Entity = SelObj
        If (SelMgr.GetSelectedObjectType(1) = swSelFACES) Then
            Name = Part.GetEntityName(Entity)
            App.SendMsgToUser ("Имя выбранной грани : " + Name)
        Else
            App.SendMsgToUser ("Выберите грань и снова запустите макрос")
        End If
    End If
End Sub

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах
27 минут назад, Mihail7783 сказал:

Помогите разобраться. Переделал пример под себя. Надо тоже самое только в Сборке.

вместо 

Dim Part As SldWorks.PartDoc

напиши

Dim Part As SldWorks.AssemblyDoc

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Спасибо. Получилось. ))

П.С. Что-то я протупил сначало, начал городульки лепить.

Поделиться сообщением


Ссылка на сообщение
Поделиться на других сайтах

Создайте аккаунт или войдите для комментирования

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

Создать аккаунт

Зарегистрируйтесь для получения аккаунта. Это просто!


Зарегистрировать аккаунт

Войти

Уже зарегистрированы? Войдите здесь.


Войти сейчас

  • Сейчас на странице   0 пользователей

    Нет пользователей, просматривающих эту страницу

  • Реклама

  • Ближайшие события

    Предстоящих событий не найдено
  • Дни рождения сегодня

    1. alekseii81
      alekseii81
      (36 лет)
    2. Diimon
      Diimon
      (37 лет)
    3. dim_dim
      dim_dim
      (38 лет)
    4. GTXit
      GTXit
      (34 года)
    5. Innokentij
      Innokentij
      (62 года)
    Просмотреть все