;;; makelt.LSP  Create Custom Linetype (c) 2008 Ron Perez
;;; Copyright?2007 Ron Perez (ronperez@gmail.com)
;;; Creates a linetype in the drawing composed with the characters used
;;; The space of the dashes changes according to the string length

(defun c:LTM    (/ str file fn exprt user)
  (vl-load-com)
  (setq    str   (getstring T "n Enter string for linetype: ")
    file  (strcat (getvar 'dwgprefix)
              (vl-filename-base (getvar 'dwgname))
              "_mylt.lin"
          )
    fn    (open file "w")
    exprt (getvar 'expert)
;;;    user  (getenv "username")
  )
;;;  (write-line (strcat "*" user "_" str ", ---" str "---") fn)
  (write-line (strcat "*" str ", ---" str "---") fn)
  (write-line
    (strcat "A,0.5,-0.05,[""
        str
        "",STANDARD,S=0.1,R=0.0,X=-0.0,Y=-.05],"
        (rtos (* -0.1 (strlen str))2 3)
    )
    fn
  )
  (close fn)
  (setvar 'expert 5)
  (command ".-linetype" "load" "*" file "")
  (setvar 'expert exprt)
  ;(vl-file-delete file) ; 라인타입 사용시 주석처리
  (princ)
)