[Mozgunov]

Добрый день!Подскажите пожалуйста как получить доступ к примитивам листа из vla объекта (vla-get-paperspace odj). Хочу удалить вхождения блоков в пространстве листа. Получил указатель на пространства листа, а дальше не получается.

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

Получай указатель на блок листа через

Код:

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

 (Vla-get-block adoc "ИмяЛиста") ; кажется, так

и потом уже по описанию блока проходись.

[Mozgunov]

Код:

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

 
Команда: (Vla-get-block (vla-get-paperspace odbx) "Лист1")
; ошибка: ActiveX Server возвратил ошибку: неизвестное имя: Block

Ошибку выдает. odbx получаю вашей функцией _lispru-odbx c autolisp.ru

Мне нужно пройтись по вхождению блоков в пространстве листа и удалить их. Если я их не удаляю, то не получается этот блок из файла удалить потому, что есть вхождения.
А как получить указатели на все примитивы (вхождение блоков) и в листе и в модели? А то если это вхождение блока в модель попадет, то этот блок тоже из блоков не удалится.

[Do$]

Код:

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

 (vl-load-com)
(setq lst nil)
(vlax-for
	  item
	      (vla-get-PaperSpace
		(vla-get-ActiveDocument (vlax-get-acad-object))
	      )
  (setq lst (cons item lst))
)
(foreach obj lst
  (princ (strcat "\nОбъект листа: " (vl-princ-to-string obj)))
)

----- добавлено через ~2 мин. -----

Сообщение от Mozgunov Ошибку выдает. odbx получаю вашей функцией _lispru-odbx c autolisp.ru

Потому что vla-get-block надо применять к документу, чтобы получить нужный лист. А потом уже в этом листе перебором с помощью vlax-for искать нужные объекты.

[Mozgunov]

Сообщение от Do$ Потому что vla-get-block надо применять к документу, чтобы получить нужный лист. А потом уже в этом листе перебором с помощью vlax-for искать нужные объекты.

Спасибо!

----- добавлено через ~7 мин. -----

Код:

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

 (vlax-for item (vla-get-paperspace odbx) (setq lst (cons item lst)))

Так что-то тоже не получается(

[Do$]

В каком месте спотыкается выполнение? Какую ошибку выдает?

----- добавлено через ~8 мин. -----

Сообщение от Do$ Потому что vla-get-block надо применять к документу, чтобы получить нужный лист.

Что-то сам попробовал эту комбинацию - не получается. Ввел меня Алексей в заблуждение, похоже
Блок листа из документа вот так можно получить:

Код:

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

(vla-get-block (vla-item (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object))) <тут имя листа>))

[Mozgunov]

Код:

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

 (vla-get-block (vla-item (vla-get-Layouts odbx) "Лист1"))

Спасибо. Блок листа удалось получить из документа. А как дальше путешествовать по блоку? И где можно получить список листов?
Мне нужно работать с закрытым документом. А там нужно использовать только функции vla vlax. Если в лиспе я ещё как-то ковыряюсь, то тут что-то проблемы сплошные...

[Do$]

Сообщение от Mozgunov А как дальше путешествовать по блоку?

vlax-for по этому блоку.

Сообщение от Mozgunov И где можно получить список листов?

vlax-for по коллекции листов документа (vla-get-Layouts odbx)

[Mozgunov]

Можете написать как список объектов получить в этом объекте (vla-get-block (vla-item (vla-get-Layouts odbx) "Лист1")) ?
Делаю так, но ничего не получается(

Код:

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

 
Команда: (vlax-for item (vla-get-block (vla-item (vla-get-Layouts odbx) "Лист1")) (setq lst item))
nil
Команда: !lst
nil

[Do$]

А в листе есть что-то? Если лист ни разу не открывался (не инициализировался), то для него будет nil выдавать.

[Mozgunov]

Не было ничего. Сейчас добавил в лист блок и заработало.

Код:

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

 
Команда: (vlax-for item (vla-get-block (vla-item (vla-get-Layouts odbx) 
"Лист1")) (setq lst item))
#<VLA-OBJECT IAcadBlockReference2 000000002fa450b8>

Что дальше делать с IAcadBlockReference2 подскажите?

Понял. Спасибо!

Код:

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

 
(vlax-for item (vla-get-block (vla-item (vla-get-Layouts odbx) "Лист1")) (setq lst (cons item lst)))
(#<VLA-OBJECT IAcadBlockReference2 000000002fa450b8> 
#<VLA-OBJECT IAcadPViewport2 000000002fa9d348> 
#<VLA-OBJECT IAcadBlockReference2 000000002fa450b8> 
#<VLA-OBJECT IAcadPViewport2 000000002fa9d348> . 
#<VLA-OBJECT 
IAcadBlockReference2 000000002fa450b8>)