치수 기입시 DIMENSION 환경 설정용 LISP FILE 입니다.
ACAD LOAD 오류가 발생합니다.
고수님들의 조언 부탁합니다.
참고로 SCALE FACTOR 사용합니다.
;DRAWING SCALE CONTROL
(DEFUN C:SCL()
(SETVAR “CMDECHO” 0)
(COMMAND “REGENAUTO” “OFF”)
(PROMPT “nDrawing scale change ! “)
(PROMPT “n”)
(SETQ SL(GETREAL “nDrawing scale factor :”))
(COMMAND “STYLE” “STANDARD” “굴림” “0” “1.0” “0” “N” “N” “N”)
(COMMAND “GRID” (* 10.0 SL) )
(COMMAND “LTSCALE” (* 10.0 SL) )
(COMMAND “DIM” “DIMASZ” (2.5) )
“DIMDLI” (10) )
“DIMEXE” (1.0) )
“DIMEXO” (1.0) )
“DIMTXT” (3.5) )
“DIMGAP” (1.0) )
“DIMSCALE” SCL) )
“DIMTXSTY” “STANDARD” (3.5) )
“EXIT” )
(SETQ LLX 841)
(SETQ LLY 594)
(SETQ LLXX(* LLX SL))
(SETQ LLYY(* LLY SL))
(SETQ LLXY(LIST LLXX LLYY))
(SETVAR “LIMMAX” LLXY)
(COMMAND “REGENAUTO” “ON”)
)