캐드 분류
DIMSCALE 변경해주는 리습 요청 드려요
컨텐츠 정보
- 135 조회
- 3 댓글
- 0 추천
- 0 비추천
- 목록
본문
블럭으로 된 표제란을 사용하는데
형상의 크기에 따라 표제란 블럭을 스케일 조절 하여 사용하고 있습니다.
근데 치수 기입 할때 마다 표제란 스케일 확인하고 DIMSCALE변경하는 번거러움이 많네여
예를 들어 리습 명령어를 치고 표제란 블럭을 클릭하면 자동으로 DIMSCALE이 표제란 스케일을 따라서
자동 변경되는 리습을 만들 수 있나요
고수님들 부탁드립니다.
리습 공부하면서 이거저거 찾아보는데 어떻게 해야 하는지를 몰라서 고생 중입니다.
이런 리습이 가능하다면 죄송스럽지만 부탁 드려 봅니다.
관련자료
댓글 3
상큼메론90님의 댓글
블록선택 하면 블록스케일에 따라, 딤스케일 자동변경.
(defun c:ss (/ fact entype ed el name) (while (/= entype "INSERT") (setq el nil) (while (= el nil) (setq el (car (entsel "nt블록 선택 :"))) ) (setq ed (entget el)) (setq entype (cdr (assoc 0 ed))) ) (princ (cdr (setq name (assoc 2 ed)))) (setq fact (cdr (assoc 41 ed))) (princ "nt블록 스케일은 : ") (princ fact) (setvar "dimscale" fact) (princ "nt딤 스케일 : ")(princ fact)(princ "이지롱. ") (princ) )
;;;