[KAI]

Acad 2008 eng.
Команда _-INSERT ведет себя по разному для блоков, которые были созданы с применением этого флажка или без оного. (То есть либо запрашивает Y scale либо нет).
В DXF кодах ничего подобного не нашел, может где-то еще в дебрях AutoCAD есть такая информация?

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

Для описания блока проверяй свойство BlockScaling

[KAI]

AutoCAD 2008 - English SP1

Проверяю:

_$ (setq vlaobj (vlax-ename->vla-object en))
(vlax-property-available-p vlaobj 'Name)
(vlax-get-property vlaobj 'Name)

(vlax-property-available-p vlaobj 'Layer)
(vlax-get-property vlaobj 'Layer)

(vlax-property-available-p vlaobj 'BlockScaling)
(vlax-get-property vlaobj 'BlockScaling)

#<VLA-OBJECT IAcadBlockReference 12b48654>
T
"Lump"

T
"Geol_Lump"

nil
; error: ActiveX Server returned the error: unknown name: BLOCKSCALING

Похоже такого свойства у блока нет (причем это не зависит от того создан он с с флажком "Scale Uniformly" или без)

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

Я ж говорил про описание, а не про вхождение...

Код:

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

(setq obj (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) (vla-get-effectivename (vlax-ename->vla-object (car (entsel))))))
(vla-get-blockscaling obj)

[KAI]

Алексей!

Ну тупой я в vla.
А если у меня есть только имя блока, а не ename, как в этом случае?

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

А какая разница?

Код:

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

(setq obj (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) BlockName))
(vla-get-blockscaling obj)

[KAI]

До этого я уже почти допер, но вот что меня интересует:
если имени такого блока не существует, то vla-item будет выдавать ошибку. А как проверить есть ли такой блок?

[Do$]

(tblsearch "block" BlockName)

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

Есть два варианта: универсальный и простой.
Простой: проверять наличие описания блока в текущем документе через (tblobjname "block" BlockName)
Универсальный: идти, например, так (в том числе и для неактивного документа сработает):

Код:

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

(vl-load-com)

(defun _dwgru-block-exist-in-doc (doc name / res)
                                 ;|
*    Проверяет, существует ли в документе описание блока с указанным именем
*    Параметры вызова:
	doc - vla-указатель на обрабатываемый документ/ nil -> текущий
	name - имя блока
*    Возвращает vla-указатель на описание блока либо nil, если такого не существует
|;
  (if (not doc)
    (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of if
  (if (= (type (setq res (vl-catch-all-apply
                           (function
                             (lambda ()
                               (vla-item (vla-get-blocks doc name))
                               ) ;_ end of lambda
                             ) ;_ end of function
                           ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'vla-object
         ) ;_ end of =
    res
    ) ;_ end of if
  ) ;_ end of defun

[KAI]

Выручили, спасибо.