Вставка блока из библиотеки с изменением ширины полилиний

(defun ru-block-lw-lib-insert-ptask (block_lib  block_name
                                              scale      )

  (ru-app-begin)
  (if (ru-block-lib-insert block_lib block_name)
    (ru-block-lw-insert-ptask-angleask block_name scale 0)
  ) ;_ end of if
  (ru-app-end)
  (princ)
)

(defun ru-block-lw-lib-insert-ptask-angleask (block_lib  block_name
                                              scale      )
  (ru-app-begin)
  (if (ru-block-lib-insert block_lib block_name)
    (ru-block-lw-insert-ptask-angleask block_name scale nil)
  ) ;_ end of if
  (ru-app-end)
  (princ)
) ;_ end of defun