작년에 문의 드렸던 건입니다.
간간히 외형도에 필요한데 이 기능이 없어서 찾아보다가 결국 못 찾아 여기에 한번 더 문의 드려 봅니다.
치수 뽑을 때 반올림이 아닌 무조건 올림 기능이나 리습이 없을까요?
질문 내용은 아래와 같습니다.
—————————————————————
안녕하세요.
기계설계를 하고 있고 여기서 많은 도움을 얻고 있는 회원입니다.
다름이 아니라.
치수의 반올림은 알겠으니 올림 명령어나 관련된 리습이 있는지 검색을 해봐도 찾지못하여 문의드립니다.
예를 들어 치수 스타일은 정밀도 0.00로 설정 해놓고 48.011의 선을 측정 하였을때
값이 48.01이 아닌 48.02의 값이 나올 수 있게 하는 방법이나 명령어 또는 리습이 있을까요?
1,2,3,4,5,6,7,8,9의 선들도 전부 값이 10이 나올 수 있거나
9.1 9.01 9.001 이런것도 10으로 나타내거나.. 하는 방법 있을까요?
원하는 정수의 자리대로 무조건 올림이 될수 있게 하는 방법(명령어나 리습)을 아시는분은 좀 알려주시면 감사하겠습니다.
ddedit로 수정하세요
(defun C:DIMRD ; = Dimension and Round text value Down
(/ floor dtype dobj)
(if (= (getvar ‘dimassoc) 0) (setvar ‘dimassoc 2)); [assuming 1 can be left alone]
(setq floor (getreal “nRound value Down to the nearest multiple of: “))
(initget “Linear Horizontal Vertical Aligned ROtated RAdius Diameter”)
(setq dtype (getkword “nType of Dimension [Linear/Horizontal/Vertical/Aligned/ROtated/RAdius/Diameter]: “))
(command (strcat “_.DIM” dtype)); start command
(while (> (getvar ‘cmdactive) 0) (command pause)); wait for completion
(setq dobj (vlax-ename->vla-object (entlast)))
(vla-put-TextOverride dobj (rtos (* floor (fix (/ (vla-get-Measurement dobj) floor)))))
(princ)
); defun
※켄트 쿠퍼라는 사람에 의해 만들어진 코드입니다.
사용법(명령어 실행후)
1. 올림을 할 소수점 기준 입력 (ex 0.5, 0.05, 0.005)
2. 치수 타입 선택
3. 생성