(defun c:sun()
(setq a “1/”)
(setq b (GETint “FORM-SCALE INPUT: “))
(setq c (* b 2))
(setq d (itoa b))
(setq e (itoa c))
(setq f “xp”)
(setq g (strcat a d f))
(setq h (strcat a e f))
(command “layout” “t” “sunchun.dwg” “A1,A3” )
(command “LAYOUT” “S” “A1” “MSPACE” “ZOOM” “E” “ZOOM” g “PSPACE” )
(command “LAYOUT” “S” “A3” “MSPACE” “ZOOM” “E” “ZOOM” h “PSPACE” )
(command “ltscale” “1” )
(princ))
이렇게 만들었는데요 이보다 이보다 더 간단하게 말들수는 없남요?