(defun c:My-Dim ()
    (setvar "dimblk"  "Open30")
    (setvar "dimblk1" "Open30")
    (setvar "dimblk2" "Open30")

  
   (setvar "dimclrd"         251)  ;; 치수선,지시선 컬러
   (setvar "dimclre"         251)  ;; 치수보조선
   (setvar "dimclrt"         256)  ;; 치수문자
   (setvar "dimdec"            2)  ;; 소숫점 자릿수
   (setvar "dimdle"       0.0000)  ;; 치수선 연장
   (setvar "dimdli"       3.7500)  ;; 치수선 간격
   (setvar "dimdsep"         ".")
   (setvar "dimexe"       1.2500)
   (setvar "dimexo"       0.6250)
   (setvar "dimgap"       0.6250)
   ;;(setvar "dimlfac"         1.0)
   ;;(setvar "dimscale"       sc)
   (setvar "dimtad"            1)  ;; 치수선 위에 문자 놓기
   (setvar "dimtofl"           0)  ;; 치수보조선 내부로 선 밀기
   (setvar "dimtxt"          2.5)  ;; 문자 높이
   (setvar "dimasz"       2.5) ;; 화살표크기
   (setvar "dimzin"            8)  ;; 0 억제

   (command "-style" "My-PCAM" "romans.shx,ghs.shx" "0" "0.75" "0" "" "")
   (setvar "dimtxsty" "My-PCAM")
   (command "_dim" "_update" (ssget (list (cons 0 "DIMENSION"))) "" "_exit")
   (command "_change" "_p" "" "_p" "la" "DIM" "") ;;레이어명 DIM은 변경해서 사용

   (princ)
)



텍스트변경
명령: CFS