캐드 분류
도면 자동기입 리습 문의 드림니다
컨텐츠 정보
- 170 조회
- 0 추천
- 0 비추천
- 목록
본문
도면 자동 기입 리습입니다.
저희 회사에서 사용하는 도번 순서가 10000 단위인데
도번 증가 자릿수는 10번대 입니다 10000,10010,10020 이런식으로
사용을 하는데
리습에 관해서 초짜라 고수님들게 수정 부탁을 드릴려고 하는데 가능 할까요?
리습은 이렇게 되어있던데
초보다 보니 이것 저것 보아도 쉽지가 않네요~~
고수님들 조언이나 수정 부탁 드려도 될까요?
(defun c:dwgn ()(dwgn_main 1))
(defun c:dwgn2 ()(dwgn_main nil))
(defun dwgn_main ( dwgn_sp / a b c d e ed i b1 z) ; DWGN_KEY, DWGN_KEY2
(if dwgn_sp (setq z " – ")(setq z "-"))
; (ai_sysvar '(("cmdecho" . 0)))
(if (= dwgn_key nil)(setq dwgn_key "PW-EE20″))
(if (= dwgn_key2 nil)(setq dwgn_key2 "01″))
(prompt "nt Drawing-Section Symbol is ?<")
(prin1 dwgn_key)
(setq a (getstring "> :"))
(if (or (= a nil)(= a ""))
(setq dwgn_key dwgn_key)
(setq dwgn_key (strcase a))
)
(prompt "t Enter Start-Number is ?<")
(prin1 dwgn_key2)
(setq b (getstring "> :"))
(if (or (= b nil)(= b ""))
(setq b dwgn_key2)
)
(setq n (strlen b))
(setq i 0)
(setq b (+ (atoi b) 1))
(prompt "nt Select of Drawing-Number's Text ?:")
(while (setq c (entsel))
(setq b (1+ b))
(setq b1 (itoa b))
(if (= n 2)
(if (= 1 (strlen b1))(setq b1 (strcat "0″ b1)))
(if (= n 3)
(if (= 1 (strlen b1))(setq b1 (strcat "00″ b1))
(if (= 2 (strlen b1))(setq b1 (strcat "0″ b1)))
)
)
)
(setq d (strcat dwgn_key z b1))
(setq e (cdr (assoc 1 (setq ed (entget (car c))))))
(setq ed (subst (cons 1 d)(assoc 1 ed) ed))
(entmod ed)
(prompt "nt Next Drawing-Number's Text ?:")
)
(setq dwgn_key2 b1)
; (ai_sysvar nil)
)
관련자료
댓글 0
/ 1 페이지
등록된 댓글이 없습니다.
