Редактирование ширины полилиний в блоке

(defun ru-lw-replace-pline-width (/ selection)
                                 ;|
Изменение ВЕСА полилиний на ШИРИНУ
(ru-lw-replace-pline-width)
 |;
  (princ "
Выбери полилинии для изменения ВЕСА на эквивалентную ШИРИНУ"
  ) ;_ end of princ
  (if (setq selection (ssget '((0 . "LWPOLYLINE"))))
    (progn
      (ru-dlg-dcl-select-lw)
      (ru-obj-vla-array-mod
        (vlax-make-variant (ru-ss-to-vla-array (ru-ss-remove-locked selection)))
        "ConstantWidth"
        (ru-conv-millimeter-in-paper-to-unit
          (ru-conv-unit-to-millimeter-in-paper (* 1.0 (ru-lw-current)))
        ) ;_ end of ru-conv-millimeter-in-paper-to-unit
      ) ;_ end of ru-obj-vla-array-mod
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

(defun ru-text-lw-set-default (/ selection)
                                 ;|
Изменение ВЕСА  на ШИРИНУ
(ru-text-lw-set-default)
Нет, надо каждый текст в зависимости от высоты изменять на наш стандарт
 |;
  (princ "
Выбери тексты для стандартизации ВЕСА"
  ) ;_ end of princ
  (if (setq selection (ssget '((0 . "TEXT"))))
    (progn
      (ru-obj-vla-array-mod
        (vlax-make-variant (ru-ss-to-vla-array (ru-ss-remove-locked selection)))
        "Lineweight"
        (getvar "LWDEFAULT")
      ) ;_ end of ru-obj-vla-array-mod
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
)


(defun ru-block-lw-edit (/
                         edata
                         ent
                        )
  ;; (ru-block-lw-edit)
  (if (setq ent (ru-get-entsel-by-type
                  "Укажи блок для изменения ширины линий"
                  "Это не INSERT"
                  (list "INSERT")
                  t
                ) ;_ end of ru-get-entsel-by-type
      )
    (progn
      (setq edata (entget (setq ent (car ent))))
      (ru-dlg-dcl-select-lw)
      (ru-block-lw-change
        ent
        (cdr (assoc 2 edata))
        (cdr (assoc 10 edata))
        (cdr (assoc 50 edata))
        (cdr (assoc 41 edata))
      ) ;_ end of ru-block-change-lw
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun