[Corvin]

Здравствуйте. Ну, собственно, вопрос в заголовке.

[Spiteful Berkut]

Тут описано нечто подобное. Это изменение параметра, прошу прощения.

Код:

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

(defun _kpblc-get-dyn-block-list-prop-and-values (ent / res)
                                                 ;|
*    Функция получения списка свойств и их возможных значений для дин.блока
*    Параметры вызова:
*  ent  указатель на блок (vla-, ename или string). Строка воспринимается
    как хендл объекта. nil -> запрашивается у пользователя
|;
  (vl-load-com)
  (vl-catch-all-apply
    '(lambda ()
       (setq ent (cond (ent)
                       (t (car (entsel "\nУкажите блок <Отмена> : ")))
                       ) ;_ end of cond
             ) ;_ end of setq
       ) ;_ end of lambda
    ) ;_ end of vl-catch-all-apply
  (if
    (vl-catch-all-error-p
      (vl-catch-all-apply
        (function
          (lambda ()
            (if
              (and (setq
                     ent (cond
                           ((= (type ent) 'ename) (vlax-ename->vla-object ent))
                           ((= (type ent) 'vla-object) ent)
                           ((= (type ent) 'str)
                            ((lambda (/ tmp)
                               (vl-catch-all-apply
                                 '(lambda () (setq tmp (vla-handletoobject ent)))
                                 ) ;_ end of vl-catch-all-apply
                               tmp
                               ) ;_ end of lambda
                             )
                            )
                           (t nil)
                           ) ;_ end of cond
                     ) ;_ end of setq
                   (= (strcase (vla-get-objectname ent) t) "acdbblockreference")
                   (= (vla-get-isdynamicblock
                        (vla-item
                          (vla-get-blocks
                            (vla-get-activedocument (vlax-get-acad-object))
                            ) ;_ end of vla-get-blocks
                          (vla-get-effectivename ent)
                          ) ;_ end of vla-item
                        ) ;_ end of vla-get-isxref
                      :vlax-true
                      ) ;_ end of =
                   ) ;_ end of and
               (setq res
                      (mapcar '(lambda (x)
                                 (cons (vla-get-propertyname x)
                                       (vlax-variant-value (vla-get-value x))
                                       ) ;_ end of cons
                                 ) ;_ end of lambda
                              (vl-remove-if
                                '(lambda (a)
                                   (= (strcase (vla-get-propertyname a)) "ORIGIN")
                                   ) ;_ end of lambda
                                (vlax-safearray->list
                                  (vlax-variant-value
                                    (vla-getdynamicblockproperties ent)
                                    ) ;_ end of vlax-variant-value
                                  ) ;_ end of vlax-safearray->list
                                ) ;_ end of vl-remove-if
                              ) ;_ end of mapcar
                     ) ;_ end of setq
               (princ "\nОшибка указания примитива")
               ) ;_ end of if
            ) ;_ end of lambda
          ) ;_ end of function
        ) ;_ end of vl-catch-all-apply
      ) ;_ end of vl-catch-all-error-p
     (princ (strcat "\nОшибка выполнения :: " (itoa (getvar "errno"))))
     ) ;_ end of if
  res
  ) ;_ end of defun

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

Что значит "размер"?

[Spiteful Berkut]

Сообщение от Кулик Алексей aka kpblc Что значит "размер"

Чудится мне, что подразумевается линейный параметр динамического блока.

[VVA]

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

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

Сообщение от Spiteful Berkut Чудится мне, что подразумевается линейный параметр динамического блока.

А вот я подумал про габаритный контейнер.

[Corvin]

Огромное спасибо всем за вашу помощь. В ссылке VVA был найден ответ на вопрос. Извиняюсь за несовсем точный вопрос. Речь шла об извлечении длины блока после его растяжения.