[编程交流] Lisp插入文本

(defun c:Test (/ kw st pt)
 ;; Tharwat 24.08.2015    ;;
 (if
   (and (progn
          (initget 6 "20 24 30")
          (setq kw
                 (getkword
                   "\nSpecify the insertion text key < M(**) socket M(**) > [20,24,30] <Enter = Exit>:"
                 )
          )
        )
        (setq
          st (nth (vl-position kw '("20" "24" "30"))
                  '("M20 socket M20" "M24 socket M24" "M30 socket M30")
             )
        )
   )
    (while (setq pt
                  (getpoint
                    (strcat "\nSpecify insertion point for text < "
                            st
                            " > <Enter = Exit>:"
                    )
                  )
           )
      (entmake (list '(0 . "TEXT")
                     (cons 10 (trans pt 1 0))
                     (cons 11 (trans pt 1 0))
                     (cons 1 st)
                     (cons 7 (getvar 'TEXTSTYLE))
                     (cons 40 (getvar 'TEXTSIZE))
               )
      )
    )
 )
 (princ)
)

(and (progn
          (initget 6 "20 24 30 [color=magenta]40[/color]")
          (setq kw
                 (getkword
                   "\nSpecify the insertion text key < M(**) socket M(**) > [20,24,30,[color=magenta]40[/color]] <Enter = Exit>:"
                 )
          )
        )
        (setq
          st (nth (vl-position kw '("20" "24" "30" [color=magenta]"40"[/color]))
                  '("M20 socket M20" "M24 socket M24" "M30 socket M30" [color=magenta]"M40 socket M40"[/color])
             )
        )
   )