[DonVik]

Допустим я получил переменку AcadBlockReference
И такаих переменок у меня целый список, благодаря ему я путешествую по всем блокам и их атрибутам в чертеже.
А как узнать на каком лайоуте находится указанный мною блок?

Задача собственно вот в чем: Я имея список блоков в скажел ListBox'е хочу клацнув по итему получить на экране этот блок, дабы программа сама находила лайоут на котором этот блок перескакивала на него и скалировала чертеж так чтоб этот конкретно блок заполнял собою весь экран.

Может мутно обьяснил... В кратце Хочу видеть выбранный блок )

Как это сделать?

[ssn]

мне кажется в последнем примере надо ещё посмотреть у объектов из набора selSetAll
понятное дело что в наборе selSetSelected будут одинаковые ID.. они же с одного листа выбраны

[VVA]

ssn, Я имею ввиду что ObjectID у лиспа и VBA одинаков. Это позволяет через SendCommand запустить лисп выражение из VBA

[Кулик Алексей aka kpblc]

Все же вопрос: а как получен указатель на вхождение блока? Вот вариант кода на VBA (за корявость прошу ногами не бить):

Код:

[Выделить все]

Sub GetBySelSet()
Dim objSelSet As AcadSelectionSet
Dim objInSelSet As AcadBlockReference
Dim sSelSetName As String
Dim dxfType(0) As Integer, dxfData(0) As Variant
  sSelSetName = "$Blocks$"
  dxfType(0) = 0: dxfData(0) = "INSERT"
  With ThisDrawing
    On Error Resume Next
    .SelectionSets.Item(sSelSetName).Clear
    .SelectionSets.Item(sSelSetName).Delete
    On Error GoTo 0
    Set objSelSet = .SelectionSets.Add(sSelSetName)
    objSelSet.SelectOnScreen dxfType, dxfData
    If objSelSet.Count > 0 Then
      Set objInSelSet = objSelSet.Item(0)
      MsgBox "Владелец объекта : " & vbCr & _
        "ID: " & CStr(objInSelSet.OwnerID) & vbCr & _
        "ProgName: " & CStr(.ObjectIdToObject(objInSelSet.OwnerID).Name) & vbCr & _
        "RealName: " & CStr(.ObjectIdToObject(objInSelSet.OwnerID).Layout.Name) & vbCr & _
        "IsLayout : " & CStr(.ObjectIdToObject(objInSelSet.OwnerID).IsLayout) _
        , _
        vbOKOnly + vbInformation + vbApplicationModal
    Else
      MsgBox "А выбирать кто будет?", vbOKOnly + vbCritical + vbApplicationModal
    End If
  End With
End Sub

[DonVik]

как получен указатель на вхождение блока?

А вот мне пример показал Vildar :
http://dwg.ru/f/showthread.php?p=280637&#post280637

Ща я окультурю свою разработку, подправлю мелкие ошибочки, и потом уж продолжу рулить эту тему )

[Vildar]

Примечание selSetBlocksRef.Select acSelectionSetAll - выбирает объекты на всех листах, в том числе и в моделе.
Про ObjectIdToObject не знал, спасибо.

[DonVik]

Итак я возвращаюсь с тем дурным вопросом.

ssn предлагал мне сравнивать ID "родителя" блока с ID Лайоута
VVA сказал что ID у них одинаковые, этого поста я чет недопонял

Вот попробовал на вкус:

Код:

[Выделить все]

Private Sub UserForm_Initialize()
Dim p As Variant
Dim b As AcadBlockReference
ThisDrawing.Utility.GetEntity b, p
Caption = CStr(b.OwnerID) & " " & CStr(ThisDrawing.ActiveLayout.ObjectID)
End Sub

ID разные...
Мож я чего-то недогоняю?

Есть ли аналог (entget) в VBA?

[Vildar]

То что нужно - в примере от Алексея в #23

[DonVik]

о-о-о усе узрел Мазай зайца )))

Код:

[Выделить все]

Dim o As AcadBlockReference
Dim p As Variant
ThisDrawing.Utility.GetEntity o, p
Caption = CStr(ThisDrawing.ObjectIdToObject(o.OwnerID).Layout.Name)

Danke Schon ребята, и Кулику персонально )

Лайоуты получил, ща буду мыслить о том как получить координаты этих блоков и показывать их на весь экран при выборе в ЛистБоксе нужного ) Если что отпишу, только наверное уж не сюда а в другую тему.

[Кулик Алексей aka kpblc]

Кхе... А если в одном листе один и тот же блок вставлен несколько раз? Чего делать будем?
Ну переход на лист сделать-то не проблема, а для вида "во весь экран" можно попробовать GetBoundnigBox для получения координат описывающего прямоугольника. А потом уже и Zoom подкатит

[DonVik]

А если в одном листе один и тот же блок вставлен несколько раз? Чего делать будем?

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

для вида "во весь экран" можно попробовать GetBoundnigBox

Угу. Обнаружил такое. Ща уж домой ухожу в понеделок продолжу )

[VVA]

Сообщение от DonVik Итак я возвращаюсь с тем дурным вопросом. ssn предлагал мне сравнивать ID "родителя" блока с ID Лайоута VVA сказал что ID у них одинаковые, этого поста я чет недопонял

Я сказал, что

Одинаковае у них ObjectID

(имелось ввиду VBA и LISP, а не

ID "родителя" блока с ID Лайоута