0 Members and 1 Guest are viewing this topic.
Command: (command "_.-style" "_KEIM" "arial.ttf" "_annotative" "_yes" "_no" 2.5 1.0 0.0 "_no" "_no" "_no")_.-style Enter name of text style or [?] <Title-Normal>: _KEIMNew style.Specify font name or font filename (for SHX) <txt>: arial.ttf Specify height of text or [Annotative] <0'-0">: _annotative Create annotative text style [Yes/No] <Yes>: _yes Match text orientation to layout? [Yes/No] <No>: _no Specify height of text or [Annotative] <0'-0">: 2.500000000000000 Specify width factor <1.00000000>: 1.000000000000000Specify obliquing angle <0>: 0.000000000000000 Display text backwards? [Yes/No] <No>: _no Display text upside-down? [Yes/No] <No>: _no"_KEIM" is now the current text style.Command: _no Unknown command "NO". Press F1 for help.Command: nil
I try this but is not workingCode - Auto/Visual Lisp: [Select](defun c:test (/ *error* varlist oldvars pt1 tval) (COMMAND "_layer" "_m" "_KEIM" "_c" "7" "" "")(command "_.-style" "_KEIM" "arial.ttf" "_annotative" "_yes" "_no" 2.5 1.0 0.0 "_no" "_no" "_no") (defun *error* (msg) (mapcar 'setvar varlist oldvars) (if (= msg "") (princ "\nText Inserted.") (princ "\nEsc or Error Pressed...") ) ;_ end if (princ) ) ;_ end defun (setq varlist (list "CMDECHO" "CLAYER") oldvars (mapcar 'getvar varlist) ) ;_ end setq (while (and (/= (setq pt1 (getpoint "\nSelect Insertion Point: ")) nil) (/= (setq tval (getstring t "\nSpecify Text: ")) "") ) ;_ end and (if (not (tblsearch "Layer" "_KEIM")) (command "-layer" "m" "_KEIM" "") ) ;_ end if ) ;_ end while (*error* "") (princ)) ;_ end defun