[DonVik]

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

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

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

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

[Дима_]

А если их на экране несколько? или экранов несколько?

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

Код:

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

(vla-ObjectIDToObject (vla-get-ActiveDocument (vlax-get-acad-object))(vla-get-OwnerID (vlax-ename->vla-object(car(entsel)))))
;#<VLA-OBJECT IAcadPaperSpace3 1974a784>

[DonVik]

А если их на экране несколько?

Вот я и хочу к тому же еще хранить координаты блоков ) дабы потом их показать

или экранов несколько?

Мониторов? Исключено.

kpblc

Ага OwnerID...
Поняв буду рыть в этом направлении, мне правда бы в VBA но попробую разобраться

[VVA]

Код:

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

(cdr(assoc 410 (entget (car (entsel "\nВыбери блок")))))

Допустим в переменной Blk у тебя указатель на VLA объект любого примитива.

Код:

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

(setq blk (vlax-ename->vla-object (car (entsel "\nВыбери блок"))))

Тогда имя его пространства

Код:

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

(setq layoutname (cdr(assoc 410 (entget (vlax-vla-object->ename blk)))))

Перейти в него

Код:

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

(setvar "CTAB" layoutname)

[DonVik]

VVA

хм... А можно на VBA если не сложно?

Координаты получил через GetBoundingBox
Остается разобраться в примерах вышеприведенных и понять как это на VBA делается )

[VVA]

DonVik, Я с VBA не дружу . Здесь проси или Алексея или fixo.
Ну а установить переменнную CTAB можно и в VBA.

*** Размышления
Через SendCommand можно из VBA послать в активный документ на выполнение и строчку(ки) на лисп. Перевести AcadBlockReference VBA в ename и (или) vla-object неверное можно через ObjectID

[Дима_]

Сообщение от VVA DonVik, Я с VBA не дружу

VVA не дружит с VBA.

[DonVik]

Я с VBA не дружу

Да я тоже потому прогу пишу на Делфях, но там такое же АПИ какое VBA использует поэтому как не крути а приходится...

Через SendCommand можно из VBA послать в активный документ на выполнение и строчку(ки) на лисп

Да вот и я подумал о том же, только как мне в эти строчки передать мой обьект?

Вот ща попробую получить обьект примером Крыса, а потом уж твоим примером слинять на нужный Лайоут )

[VVA]

Ну еще если можно в VBA "выковырять" метку примитива (это та, что хранится в 5 поле), то ее можно преобразовать в ename черех лисп-функция handent

[DonVik]

Фуххх.
Не пойму, когда пишу в командной строке

Код:

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

(vla-get-OwnerID entsel)

Выдает ошибку:

error: no function definition: VLA-GET-OWNERID

[Дима_]

entsel в скобках надо писать - (entsel)

[VVA]

DonVik,
Сначала (vl-load-com)! (один раз за сеанс)

Код:

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

(vl-load-com)
(setq objID (vla-get-ObjectID (vlax-ename->vla-object (car(entsel)))))

Обратно в объект

Код:

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

(vla-ObjectIDToObject (vla-get-ActiveDocument (vlax-get-acad-object)) objID)

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

Вроде так будет на VBA:

Код:

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

ThisDrawing.ObjectIdToObject(obj.ObjectID)

[ssn]

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

Dim oLayout As AcadLayout
Dim oID As Long
Set oLayout = Acdoc.Layouts("Model") (ну а думаю любой из списка)
oID = oLayout.Block.ObjectID

If ssetObj.Item(v).OwnerID = oID Then

End If

[DonVik]

If ssetObj.Item(v).OwnerID = oID Then

Я проверил у них разные ID... Не прокатило короче.

Надыбал метод GetXData но никак не пойму как его юзать, мож кто подскажет?

[ssn]

дак да, разные ID...
а разве это не у разных лейаутов разные ID?
принадлежность к определённому листу по ID...
нет?

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

Стоп. Xdata тут ни при чем.
У тебя вообще, указатель на вхождение блока получен? И на вхождение ли? Проверь значение obj.ObjectName.

[Vildar]

ИМХО нужно искать каждый блок из твоего набора на каждом листе по отдельности, способом от ssn.

[VVA]

Сообщение от DonVik Я проверил у них разные ID... Не прокатило короче. Надыбал метод GetXData но никак не пойму как его юзать, мож кто подскажет?

Одинаковае у них ObjectID
Я взял первый попавшийся код на VBA. Блок выделяешь рамочкой.

Код:

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

Sub SS()

   Dim objItemEntity As AcadEntity
   Dim objItemEntity2 As AcadEntity
   Dim selSetAll As AcadSelectionSet
   Dim selSetSelected As AcadSelectionSet
   Dim objRemove(0) As AcadEntity
   Dim varPnt1 As Variant, varPnt2 As Variant

    With ThisDrawing.SelectionSets
    While .Count > 0
          .Item(0).Delete
    Wend
        Set selSetSelected = .Add("$frame$")
        Set selSetAll = .Add("$all$")
    End With

With ThisDrawing.Utility

   .InitializeUserInput 1
    varPnt1 = .GetPoint(, vbCr & "Pick the first corner: ")
    varPnt2 = .GetCorner(varPnt1, vbCr & "Pick other corner: ")

    selSetSelected.Select acSelectionSetWindow, varPnt1, varPnt2
    selSetAll.Select acSelectionSetAll

   For Each objItemEntity In selSetSelected
   varPnt1 = objItemEntity.ObjectID
   MsgBox (varPnt1)

      Next
End With

End Sub

То же на лиспе

Код:

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

(vl-load-com)
(setq objID (vla-get-ObjectID (vlax-ename->vla-object (car(entsel)))))
(alert (VL-PRINC-TO-STRING objID))