수고많으십니다.
예전부터 사용하던 리습입니다.
도면 설정을 초기화시키는 리습입니다.
아직 캐드2002 버전을 사용중인데.
갑자기 사용이 안되는 군요…
혹 뭐가 문제인지 봐주시면 고맙겠습니다.
확인바랍니다.
그럼
=====================================
(defun c:ini()
(if (= dwgsc nil)
(progn
(setq dwgsc (getreal “n** Enter scale of current drawing <default=1> ?”))
(if (= dwgsc nil) (setq dwgsc 1))
) ;; paren of progn
(setq dwgsc dwgsc)
) ;; paren of progn
(SETVAR “CMDECHO” 0)
(command “layer” “m” “0” “c” “white” “” “lt” “continuous” “” “”)
(command “layer” “m” “1” “c” “red” “” “lt” “center” “” “”)
(command “layer” “m” “2” “c” “yellow” “” “lt” “hidden” “” “”)
(command “layer” “m” “3” “c” “green” “” “lt” “continuous” “” “”)
(command “layer” “m” “4” “c” “cyan” “” “lt” “continuous” “” “”)
(command “layer” “m” “5” “c” “blue” “” “lt” “phantom” “” “”)
(command “layer” “m” “6” “c” “magenta” “” “lt” “phantom” “” “”)
(command “layer” “m” “7” “c” “yellow” “” “lt” “continuous” “” “”)
;;
(setvar “cmdecho” 0)
(setvar “angdir” 0)
(setvar “aunits” 0)
(setvar “auprec” 3)
(setvar “blipmode” 0)
(setvar “coords” 2)
(setvar “dimasz” 2)
(setvar “DIMclrd” 4)
(setvar “DIMclre” 4)
(setvar “DIMclrt” 4)
(setvar “DIMcEN” 2.5)
(setvar “dimdle” 6)
(setvar “DIMDLI” 7)
(setvar “dimexe” 1)
(setvar “dimexo” 1)
(setvar “dimgap” 1)
(setvar “dimse1” 0)
(setvar “dimse2” 0)
(setvar “dimsho” 1)
(setvar “dimsoxd” 0)
(setvar “dimtad” 1)
(setvar “dimtih” 0)
(setvar “dimtix” 1)
(setvar “dimtofl” 1)
(setvar “dimtoh” 0)
(setvar “dimtol” 0)
(setvar “dimtxt” 3)
(setvar “dimzin” 8)
(setvar “dragmode” 2)
(setvar “filedia” 1)
(setvar “limcheck” 1)
(setvar “lunits” 2)
(setvar “luprec” 3)
(setvar “orthomode” 1)
(setvar “osmode” 0)
(setvar “aperture” 5)
(setvar “pickbox” 5)
(setvar “regenmode” 1)
(setvar “ucsicon” 0)
(command “aperture” “5”)
(command “base” “0,0”)
(command “linetype” “s” “bylayer” “”)
(command “ltscale” (* dwgsc 8))
(command “donut” (/ dwgsc 2) dwgsc “”)
(command “grid” (* dwgsc 8) “grid” “off”)
(command “filletrad” “0”)
(command “pdmode” “0” “pdsize” “0”)
(command “chamfera” “1” “chamferb” “1”)
(setvar “highlight” 0)
(command “viewres” “y” “2000”)
(COMMAND “MIRRTEXT” “0”)
(command “limits” “off”)
(command “style” “STANDARD” “isocp.shx” “0” “1.0” “” “” “” “”)
(command “dim” “dimscale” dwgsc “e”)
(COMMAND “OSNAP” “INT,END”)
(COMMAND “FILEDIA” “1”)
(setvar “highlight” 1)
(setvar “cmdecho” 1)
(princ)
)
===================================================