캐드 분류
치수 소수점 관련한 리습 질문합니다
컨텐츠 정보
- 302 조회
- 1 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요.
치수 관련한 리습 사용중인데 조금 더 편하게 쓰고 싶어 질문합니다.
————————————————————–
(defun c:du(/ ss dec @dec) ;
(prompt "n치수를 선택하세요..")
(setq @dec (getvar "dimdec"))
(setq ss (ssget (list (cons 0 "dimension"))))
(setq dec 10)
(while (< 9 dec) (setq dec (getint "n소수점 자리수:"))
(if (< 9 dec) (princ "–> 다시 입력하세요 [0-8 사이 정수입]"))
)
(if dec (progn (setvar "dimdec" dec) (command "dim1″ "up" ss "")))
(setvar "dimdec" @dec)
(princ)
) ;defun
————————————————————–
위 리습을 아래와 같이 수정하려고 합니다.
현재 : 치수 선택 → 소수점 자리수 입력 → 엔터
수정 : 치수 선택 → 엔터
여기서 명령어를 조금 더 세분화해서
현재 : 소수점 자리수 입력
수정 : 명령어별로 소수점 자리수 미리 입력
예) DU1 : 소수점 0, DU2 : 소수점 1, DU3 : 소수점 입력받기
별 거 아닌거 같지만 저에게 정말 필요한 기능입니다.