[Sege]

UPD: разобрался!!! Все дело в кодировке!

p.s. тему можно грохать )))
------------

Есть динамический блок динамика с диаграммой направленности.
В параметрах "расстояние1" меняется зона действия динамика

Делаю диалог выбора блока и задания нового значения расстояния. Для обновления в динамическом блоке значения параметра "расстояние" использую функции leemac

Код:

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

 (defun LM:setdynpropvalue ( blk prp val )
    (setq prp (strcase prp))
    (vl-some
       '(lambda ( x )
            (if (= prp (strcase (vla-get-propertyname x)))
                (progn
                    (vla-put-value x (vlax-make-variant val (vlax-variant-type (vla-get-value x))))
                    (cond (val) (t))
                )
            )
        )
        (vlax-invoke blk 'getdynamicblockproperties)
    )
)

(defun LM:setdynprops ( blk lst / itm )
    (setq lst (mapcar '(lambda ( x ) (cons (strcase (car x)) (cdr x))) lst))
    (foreach x (vlax-invoke blk 'getdynamicblockproperties)
        (if (setq itm (assoc (strcase (vla-get-propertyname x)) lst))
            (vla-put-value x (vlax-make-variant (cdr itm) (vlax-variant-type (vla-get-value x))))
        )
    )
)

(defun c:da1 ()
(vl-load-com)
(setq aa (vlax-ename->vla-object (car (entsel "\nSelect block DYMANIC: "))))
(setq rast (atoi (getstring "Enter distance: ")))
(LM:setdynpropvalue aa "Расстояние1" rast)
)

Вопрос: почему в функции da1 не производится обновление значения динамического блока?
Когда после выполнения программы в командной строке пишу (LM:setdynpropvalue aa "Расстояние1" rast) - обновление происходит!