Topic: Need mtext help

[bman]

How can i modify this routine to prompt for the user text in the mtext editor in lieu of at the command line? Currently it mimmicks the dtext command entry line by line at the command prompt.

Code: [Select]

(defun c:L80 (/ txtht)
  (setq txtht (* 0.08 (getvar "dimscale")))
  (command "-style"
      "simplex"       ; name of text style
      "simplex"  ; font name
      txtht         ; height of text
      "1"           ; width factor
      "0"           ; obliquing angle
      ""            ; text backwards
      ""            ; text upside-down
       )
  (while (> (getvar "CMDACTIVE") 0)(command "")) ; Vertical
  (prompt "\nCurrent Style set to L80 ")
  (princ)
(command "mtext")
)

[CAB]

Code: [Select]

(defun c:l80 (/ txtht)
  (setq txtht (* 0.08 (getvar "dimscale")))
  (command "-style" "simplex" ; name of text style
           "simplex" ; font name
           txtht ; height of text
           "1" ; width factor
           "0" ; obliquing angle
           "" ; text backwards
           "" ; text upside-down
  )
  (while (> (getvar "CMDACTIVE") 0) (command "")) ; Vertical
  (prompt "\nCurrent Style set to L80 ")
  (princ)
  (initdia)
  (command "mtext")
)

[CAB]

I see you got your answer on another board.

[bman]

I forgot that i posted here too
thanks CAB