감사합니다.
예전에도 선축척 관련 lisp으로 많은 도움을 받아서 잘 사용해 왔는데
문제점이 생겨서 다시 수정하고 싶은데 제 실력으로 당최 방법을 몰라서 이렇게 문의 드립니다.
저는 한파일 안에서 작업을 하고 있습니다.
그래서 도면틀의 크기가 제각각이죠.
도면틀의 사이즈가 변경되면 그에맞게 선축척을해서 적용시키고 있습니다.
문제는 파일을 닫고 새로 열면 기존도면에 설정되어있는 선축척으로 변경이 되어 버립니다.
도면을 새로 열어도 바뀌지 않게 하려면 어떤방법이 있을까요?
=============================================================
(defun c:ca ()
(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,LWPOLYLINE,spline,CIRCLE,ARC,Ellipse,BLOCK”))))
(command “change” ss “” “p” “s” 10 “”)
(prin1)
)
;;;
=============================================================
이 리습은 선택한 객체만 스케일을 변경하는 리습인데 도면전체에 스케일이 적용 되면 원하시는 작업이 아니 될텐데요 그래도 원하시나요??? 한도면 안에 도면틀의 사이즈가 다양하여 도면틀마다 스케일을 조정하신다면 그냥 사용하셔야 합니다
수야12님의 말이 맞습니다.
아하…^^;; 그런가요