(defun c:sg()
 (setq sc (getint “nSCALE :”))
 (setq gd (getint “nGRID DISPLAY (0=한계 / 1=전체) :”))
 (setq ls (getint “nLT SCALE 기준(1 or 10) :”))
 (command “griddisplay” gd “ltscale” (* sc ls) “grid” (* sc 10) “dimscale” sc “snap” sc “snap” “off” “limits” ‘(0 0) (list (* sc 841) (* sc 594)))
 (princ)
)

도면 스케일 관련 리습입니다.

(setq gd (getint “nGRID DISPLAY (0=한계 / 1=전체) :”))
(setq ls (getint “nLT SCALE 기준(1 or 10) :”))

이 두가 지 항목에 설정값을 입력하지 않고

GRID DISPLAY에는 기본값으로 0을 적용하고
LT SCALE에는 기본값으로 10을 적용하고

엔터만 치면 기본값이 적용되면서  넘어가도록 할 수 있을까요???

고수님들 도움 부탁드리겠습니다… ^^

워낙 허접이라 원초적으로 LISP을 만들어서 쓰고 있습니다.

(defun c:s1()
   (command “griddisplay” “1” “grid” “10” “dimscale” “1” “snap” “1” “limits” “0,0” “841,594”)
   (princ)
)

(defun c:s2()
   (command “griddisplay” “1” “grid” “20” “dimscale” “2” “snap” “2” “limits” “0,0” “1682,1188”)
   (princ)
)

(defun c:s3()
   (command “griddisplay” “1” “grid” “30” “dimscale” “3” “snap” “3” “limits” “0,0” “2523,1782”)
   (princ)

동일 패턴으로 쭉~

A1도면을 기준으로 LIMITS, DIMSCALE, SNAP, GRIDDIPLAY 를 스케일만큼 키워주는 겁니다.

S1 치며 1:1 도면으로 S10 치면 1:10 도면으로 설정되는데요…

자주 쓰는 스케일을 쭉~ 써놓기는 했는데 자주 안쓰는 스케일을 사용할떄 문제더라구요

“S” 치고
“숫자”를 치면 GRID는 숫자x10, DIMSACLEx1, SNAPx1,LIMITS는 (숫자x 841, 숫자594)

장황하게 설명했지만 별게 없어서 이해는 하실거에요….

고수님들께 정중히 부탁드려 봅니다..ㅜㅜ

안녕하세요.
지금 수정하려는 리습이 아마도 고캐드에서 찾았던거 같습니다. ^^

텍스트를 변경하는 리습인데요. a->b
다른 속성은 변경이 되는데… 크기와 색상은 그대로네요.
혹시 크기와 색상도 변경할 수 있는지요?

즐거운 하루 보내십시오.