[Konstr_pgs]

Привет, всем!
Чтобы добавить текстовую строку под линию размера в AutoCad (2015 rus), то нужно в таблице свойств для текста в ячейке "Текстовая строка" вставить <>\Xтекст , но это немного долго.
Вот несколько программ и подпрограмм, которые добавляют текст в размер.
Вызовы команд не работают. И есть ли среди них программа добавления текстовой строки под линию размера, не могу определить, т.к. нигде нет <>\X. В общем, только это нужно.

Код:

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

 (defun C:DIMRW () (DIMADD "R/W WIDTH" "R/W" "") (princ) ) 
;DIMPAV = add PAVEMENT text to dimension 
(defun C:DIMPAV () (DIMADD "PAVEMENT" "PAVEMENT" "") (princ) ) 
;DIMFOC = add FOC TO FOC text to dimension 
(defun C:DIMFOC () (DIMADD "FOC TO FOC" "FOC\\PTO FOC" "\\P") (princ) ) 
;DIMFOC1 = add FOC TO FOC text to dimension 
(defun C:DIMFOC1 () (DIMADD "FOC TO FOC" "FOC TO FOC" "") (princ) ) ;DIMBS = add BUILDING SETBACK text to dimension 
(defun C:DIMBS () (DIMADD "BUILDING SETBACK" "BUILDING\\PSETBACK" "") (princ) ) 
;DIMDUE = add DRAINAGE & UTILITY EASEMENT text to dimension 
(defun C:DIMDUE () (DIMADD "DRAINAGE & UTILITY EASEMENT" "DRAINAGE &\\PUTILITY EASEMENT" "") (princ) ) 
;DIMADD = subroutine to add text to dimension ;DT1 is the text that tells the user what they are adding to the dimension ;DT2 is prefix for selected dimension 
;DT3 is suffix for selected dimension 
(defun DIMADD (DT1 DT2 DT3 / ES EG TT NT) (setq ES (entsel (strcat "\nSelect Dimension to add " DT1 " text ? "))) (while ES (setq EG (entget (car ES))) (if (= (cdr (assoc 0 EG)) "DIMENSION") (progn (setq TT (cdr (assoc 1 EG))) (if (= TT "") (setq NT (strcat DT3 "<> " DT2)) (setq NT (strcat TT " " DT2)) ) (setq EG (subst (cons 1 NT) (assoc 1 EG) EG)) (entmod EG) ) (princ (strcat "\nERROR - Entity selected is [" (cdr (assoc 0 EG)) "] and NOT a dimension.")) ) (setq ES (entsel (strcat "\nSelect Dimension to add " DT1 " text ? "))) ) 
(princ) ) 

Если загрузить всё вместе пишет в ком. строке "успешно загружено".
Команда: ; ошибка: лишняя закрывающая скобка на входе
Команда: DIMRW
; ошибка: no function definition: DIMADD
Подскажите, пожалуйста, где ошибка и есть ли программа добавления текстовой строки под линию размера.

[koMon]

Ingpro, да дело было в локализации, код поправил)

[Ingpro]

Сообщение от koMon да дело было в локализации

Да, теперь и у меня красиво работает, удобно, что можно сразу в несколько размеров добавлять нижнюю строку, спасибо!

[Ingpro]

Вот ещё в тему 2 лиспа от Lee Mac (2016 г.)