[cj_lex]

Добрый день.
Подскажите, пожалуйста, как лиспом извлечь свойство блока "одинаковый масштаб" (оно так читается в редакторе блоков и принимает значения "да" или "нет"). ENTGET или ActiveX. Пробовал копать и там и там, но разницы между снятыми данными (entget и vlax-dump-object) 2-х блоков, у которых в редакторе блоков установлено это свойство в "да" и "нет", не заметил (может быть плохо смотрел).
Вся проблема в том что при вставке блоков (command "_insert" ......) в одном случаем запрашивается один масштаб для всех осей, в другом - масштаб для оси Х и масштаб для оси У
Autocad Civil 3D 2012
Заранее спасибо.

[Do$]

Надо, наверное, не вставку блока изучать, а его описание.
P.S. Точно. Описание блока. Свойство BlockScaling. 1-одинаковый масштаб по осям, 0 - любой.

Код:

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

(vla-get-BlockScaling
  (vla-item (vla-get-blocks
	      (vla-get-ActiveDocument (vlax-get-acad-object))
	    ) ;_ end of vla-get-blocks
	    (cdr (assoc 2 (entget (car (entsel "\nВыберите блок:")))))
  ) ;_ end of vla-item
) ;_ end of vla-get-BlockScaling

[cj_lex]

Сообщение от Do$ Надо, наверное, не вставку блока изучать, а его описание.

в таблице, через tblsearch и т.д.?

[Do$]

См.#2
Можно, наверное, и через tblsearch. Мне проще через ActiveX.

[cj_lex]

Сообщение от Do$ Надо, наверное, не вставку блока изучать, а его описание. P.S. Точно. Описание блока. Свойство BlockScaling. 1-одинаковый масштаб по осям, 0 - любой. Код: [Выделить все] (vla-get-BlockScaling (vla-item (vla-get-blocks (vla-get-ActiveDocument (vlax-get-acad-object)) ) ;_ end of vla-get-blocks (cdr (assoc 2 (entget (car (entsel "\nВыберите блок:"))))) ) ;_ end of vla-item ) ;_ end of vla-get-BlockScaling

огромное спасибо! все получилось!