철골 그리는 리습

(defun c:SG(/ )
   (setvar "cmdecho" 0)
  (setq bnoo 0)
(command "OSMODE" 16383)
(command "_layer" "make" "!JK132_STEEL TOP" "lt" "CONTINUOUS" "" "color" "132″ "" "")

  (if
  (= defaulted nil)
  (progn  
   (setq tN (getstring "n dim STN : "))
   (if
    (= tN "")
    (setq tN "SG")
   )
  )
  (progn
   (setq textstring (strcat "n dim STN : <" defaulted ">"))
   (setq tN (getstring textstring))
   (if
    (= tN "")
    (setq tN defaulted)
   )
  )
         )
 
;(setq tN (getstring "n 부재명 :    "))
 
(setq BOUNDARY (getstring "fix-fix=FF / pin-pin=VV / pin-fix=VF / pin-fin=VF / fix-bar=FB / bar-fix=BF"))  
(setq Po1 (getpoint "First Point : "))
;(setvar "orthomode" 1)
(setq Po2 (getpoint "Second Point : "))

(COMMAND "_DIMSTYLE" "R" BOUNDARY)
(command "DIMALIGNED" Po1  Po2 "T" tN "@")

 (setq old(assoc 1 ed))
 (setq new(cons 1 tt))
 (setq sb(subst new old ed))
 (entmod sb)
 
  (while(< bnoo 100)

  (setq poN1 (getpoint "First Point : "))
  (setq poN2 (getpoint "Second Point : "))
  (command "DIMALIGNED" PoN1  PoN2 "t" tn "@")

  (setq bnoo (+ 1 bnoo))
  (setq po2 poN2)
 )
; (setq defaulted (rtos tN))

);end defun

(defun c:SGS(/ )
(setvar "cmdecho" 0)
(command "dimasz" 3.5)
(command "dimtxt" 3.5)

  (if
  (= default nil)
  (progn  
   (setq scale (getint "n dim scale : <100>"))
   (if
    (= scale nil)
    (setq scale 100)
   )
  )
  (progn
   (setq textstring (strcat "n dim scale : <" default ">"))
   (setq scale (getint textstring))
   (if
    (= scale nil)
    (setq scale default)
   )
  )
          ) 
 
(command "dimscale" scale) 
(setq default (rtos scale))
  )


-여기서 직교로 그리는 거가 가능할까요?
-SGS 로 스케일 셋팅하는데 먹히질 않는 부분이 있어요.
 디멘젼 찍을때만 먹히더라구요. 도움이  필요합니다.ㅜㅜ