라인 스타일 만들기

(defun c:makelt
       (/ dashlen exprt file fn ltdef str strw txtgap txthgt txtstyle rjp-txtwdth _rtos)
  (vl-load-com)
  (defun rjp-txtwdth (str hgt style / d e pts)
    ;;Returns textstring width, gap from insertion point to start of text, and height
    (if (setq e (entmakex (list ‘(0 . “TEXT”)
    ‘(100 . “AcDbEntity”)
    ‘(100 . “AcDbText”)
    ‘(8 . “rjp-tmptxtlayer”)
    ‘(10 0. 0. 0.)
    (cons 40 hgt)
    (cons 1 str)
    (cons 7 style)
     )
  )
 )
      (progn (setq pts (textbox (entget e)))
      (setq d (distance (car pts) (list (caadr pts) (cadar pts))))
      (entdel e)
      )
    )
    (list d (caar pts) (- (cadadr pts) (abs (cadar pts))))
  )
  (defun _rtos (real) (rtos real 2 6))
  ;;Set these numbers to preference
  (setq dashlen 0.25)
  (setq txtgap 0.025)
  (setq txthgt 0.1)
  ;;——————————-
  (setq txtstyle (getvar ‘textstyle))
  (if (and (setq str (getstring t “nEnter string to use in linetype: “))
    (not (zerop (strlen str)))
    (setq txthgt
    (cond
      ((getreal (strcat “nEnter height of text [<” (rtos txthgt 2 3) “>]: “))
      )
      (txthgt)
    )
    )
    (setq strw (rjp-txtwdth str txthgt txtstyle))
    (setq file
    (strcat (getvar ‘dwgprefix) (vl-filename-base (getvar ‘dwgname)) “_mylt.lin”)
    )
    (setq fn (open file “w”))
    (setq exprt (getvar ‘expert))
      )
    (progn
      (setq ltdef (strcat “n*”
     str
     “, —“
     str
     “—n”
     “A,”
     (_rtos dashlen)
     “,-“
     (_rtos (abs (- txtgap (cadr strw))))
     “,[””
     str
     “”,”
     txtstyle
     “,S=”
     (_rtos txthgt)
     “,R=.0,X=-.0,Y=-“
     (_rtos (* (caddr strw) 0.5))
     “],-“
     (_rtos (+ txtgap (car strw) (cadr strw)))
    )
      )
      (write-line ltdef fn)
      (close fn)
      (setvar ‘expert 5)
      (cond ((not (tblsearch “ltype” str))
      (command “._-linetype” “load” “*” file “”)
      (princ ltdef)
      (princ (strcat “nLinetype ” str ” loaded…”))
     )
     ((and (not (initget 1 “Y N”))
    (eq (getkword “nLinetype exists… Reload it? [Y/N]”) “Y”)
      )
      (command “._-linetype” “load” “*” file “”)
      (vla-regen (vla-get-activedocument (vlax-get-acad-object)) acactiveviewport)
      (princ ltdef)
      (princ (strcat “nLinetype ” str ” reloaded…”))
     )
      )
      (setvar ‘expert exprt)
      (vl-file-delete file)
    )
  )
  (princ)
)

ㅠㅠ 고맙습니다. 급했는데 바로 해결했네요 감사합니다 ^^