Создание аннотированного стиля Lisp

(defun c:lispru-style-create-textstyle( / _lispru-style-create-textstyle adoc)
(defun _lispru-style-create-textstyle (doc coord lst / res)
                                      ;|
*    Создание текстового стиля в документе
*    Параметры вызова:
  doc   указатель на обрабатываемый документ (документ должен быть открыт)
  coord  имя создаваемого стиля
  lst   список дополнительных параметров вида:
    '(("vert" . <Вертикальность стиля>)
            ("height" . <Фиксированная высота>) ; nil -> 15.0
            ("width" . <Коэффициент сжатия>)    ; nil -> 1.0
            ("angle" . <Угол наклона, градусы>) ; nil -> 0.0
            ("back" . <Задом наперед>)
            ("down" . <Кверх ногами>)
            ("font" . <Используемый шрифт>)     ; nil -> Arial
            )
|;
  (if (not doc)
    (setq doc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of if
  ;; Проверяем наличие текстового стиля
  (if (not (setq res
                  (car
                    (member (strcase coord)
                            ((lambda (/ _lst)
                               (vlax-for item (vla-get-textstyles doc)
                                 (setq
                                   _lst (cons (strcase (vla-get-name item)) _lst)
                                   ) ;_ end of setq
                                 ) ;_ end of vlax-for
                               _lst
                               ) ;_ end of lambda
                             )
                            ) ;_ end of member
                    ) ;_ end of car
                 ) ;_ end of setq
           ) ;_ end of not
    (setq res (vla-add (vla-get-textstyles doc) coord))
    ) ;_ end of if
  ;; <...>
  ;;
  res
  ) ;_ end of defun
(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
(_lispru-style-create-textstyle adoc '(("height" . 0.)))
(vla-endundomark adoc)
(princ))
И было бы неплохо указывать первоисточник кода ИМХО.