(defun c:SGS(/ )
(setvar “cmdecho” 0)
(command “dimasz” 1)
(command “dimtxt” 1)
(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))
)
(defun c:SG(/ tn defaulted)
(setvar “cmdecho” 1)
(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 : <SG>”))
(if
(= tN nil)
(setq tN “SG”)
)
)
(progn
(setq textstring (strcat “n dim STN : <” defaulted “>”))
(setq tN (getstring textstring))
(if
(= tN nil)
(setq tN defaulted)
)
)
)
(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
빨간부분은 성공했는데
실행은 안해봤지만 getstring은 nil 이 아니라 “” (쌍따옴표)로 들어 갑니다.
도움 주셔서 감사합니다