한 파일에 개별로 ltscale를 설정하는 리습 있나요?
컨텐츠 정보
- 319 조회
- 10 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요.
지금까지 한파일에 도면 Size가 다른 여러도면을 출력할경우 출력할때마다 각도면의 ltscale을 변경해서 출력을 해왔습니다.
이렇게 하다보니 너무 번거롭기도 하고해서 도면 개별로 ltscale을 설정하는게 좋을것 같아서 이렇게 문의 드립니다.
검색을 해봤는데도 나와있질 않아서 이렇게 문의드려 봅니다.
관련자료
상큼메론90님의 댓글
아래 참고하세요
명령어 입력후 도곽(도면틀, 도면폼) 안에 있는 모든 객체를 선택후 각각의 스케일에 맞게 ltscale 조정하시면 될듯~
라인 스케일을 입력하고 객체를 선택하면 됩니다.
명령어는 CHL 입니다. 밑에것은 CHL1 입니다. 둘중에 하나는 될 겁니다. (defun c:chl () (setvar "CMDECHO" 0) (if (not (setq t_h (getreal (strcat "n현재 LTSCALE : <" (rtos(getvar "ltscale") 2 1) "> 입니다. 원하는 LTSCALE을 입력하세요 : ")))) (setq t_h (getvar "ltscale")) (setvar "ltscale" t_h) );;if (setq ss (ssget '((0 . "line")))) (command "change" ss "" "p" "s" t_h "") (princ "명령어 : chl ") (prin1) ) 또는
(defun c:chl1 ( / ss ssssssss ) (princ "nt라인 선택 – LTS 조절 ") (setq ss (ssget)) (setq ssssssss (getreal "n : LTS 값 입력 : ")) (command "_.change" "p" "" "p" "lts" ssssssss "") (princ) )
;;;