Тема: LISP. Вставка текста в разрыв линии
;************ ctrim.lsp ********************************** ; Вставка текста с текущим стилем в разрыв линии. ; Шрифт стиля не должен иметь фиксированную высоту. ; (DEFUN C:CTRIM ( / PNT MRK SZE RAD) (setvar "CMDECHO" 0) (setq OSX (getvar "OSMODE")) (setvar "OSMODE" 512) (setq PNT (getpoint "\n Укажите место разрыва:")) (setq SZE (getvar "TEXTSIZE")) (setq RAD (+ SZE (/ SZE 3.0))) (command "_CIRCLE" PNT RAD) (setq EL (ENTLAST)) (command "_TRIM" EL "" PNT "") (command "_ERASE" EL "") (setq MRK (getstring "\n Введите текст (3 знака Max):")) (command "_TEXT" "_M" PNT "" "0" MRK) (setvar "OSMODE" OSX) (PRINC) )
Возможный макрос для кнопки или пункта меню:
^C^C^P(if (not C:CTRIM) (load "ctrim")) CTRIM