캐드 분류
수치지도5000에서 1000변경
컨텐츠 정보
- 99 조회
- 4 댓글
- 0 추천
- 0 비추천
- 목록
본문
수치지도 1000도를 사용하는 작업을 하는데,
5000도 밖에 제공안되는 경우에 5000도를 1000도로 잘라서 사용하곤 합니다.
이때, 1000도와 5000도의 스케일이 달라서,,,
5000도에서 자른 1000도의 스케일을 1000도의 기본 스케일로 맞춰야합니다.
블록이나 글자 스케일 한번에 0.04배 줄일수 있는 리습이나 방법이 있을까요?
관련자료
댓글 4
dhL님의 댓글
(defun c:yourname ( / bname sc x ss obj)
(vl-load-com)
(setq bname (cdr (assoc 2 (entget (car (entsel "nPlease pick block for name to be rescaled"))))))
(setq sc (getreal "nEnter new scale "))
(setq ss (ssget "X" (list (cons 0 "INSERT")(cons 2 bname)(cons 410 (getvar 'ctab)))))
(if (= ss nil)
(alert "something went wrong will do nothing ")
(progn
(repeat (setq x (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq x (- x 1)))))
(vla-put-XScaleFactor obj sc)
(vla-put-yScaleFactor obj sc)
)
)
)
(princ)
)
(c:yourname)