안녕하세영 전 캐드시작한지 얼마 안된사람인데영
dwgs100이라는 명령어를 치면
도면축척:100
문자:100
도형:100
선:100
도면크기:841,594 가 맞춰졌음 하거덩영.. 꼭필요합니다
고수님덜 지발 갈켜주세영~
(defun C:DWGS100(/ a1 a) s;;
(setq olderr *error* *error* myerror chm 0)
(setq x1(getvar “SPLINESEGS”))
(setq a1(getvar “DIMSCALE”))
(setq b1(getvar “LTSCALE”))
(setq s1(getvar “TRACEWID”))
(setq y1(getvar “cmlscale”))
(prompt “n 도면 축적 = 100”)
(prompt “n 문자 축척 = 100”)
(prompt “n 선 축척 = 100”)
(prompt “n 도면 크기 = 100”)
(setvar “regenmode” 0)
(setvar “splinesegs” 100)
(setvar “ltscale” 100)
(setvar “dimscale” 100)
(setvar “cmlscale” 100)
(setvar “tracewid” 100)
(setvar “fillmode” 1)
(setvar “ucsicon” 0)
(setq fi(* a 3.0))
(setvar “filletrad” fi)
(setq dwg-scale (/ (getvar “dimscale”) 100.0))
(setq dwg (/ (getvar “splinesegs”) 100.0))
(prin1)