캐드 분류
반복구문설정해봤습니다. 문자는 잘안되서요.
컨텐츠 정보
- 239 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
(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 : "))
(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
관련자료
댓글 3