캐드 분류
고수님 선축척 lisp 한번 봐 주세요~
컨텐츠 정보
- 764 조회
- 5 댓글
- 0 추천
- 0 비추천
- 목록
본문
감사합니다.
예전에도 선축척 관련 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)
)
;;;
=============================================================
관련자료
댓글 5
/ 1 페이지
.gif)
