캐드 분류
리습 내용 중 변경하고싶은 부분이 있습니다. 도움 부탁드립니다.
컨텐츠 정보
- 277 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요.
다시 한번 고캐드 여러분들의 고견을 듣고자 찾아왔습니다.
해당 리습은 면적과 길이를 적어주는 리습입니다.
이 리습을 첨부파일의 표 안에 내용이 바로 삽입되게 하고 싶은데요.
다만, 표가 도면의 스케일에 따라 커지고 작아져서
리습의 표현되는 글 또한 맞춰서 커지고 작아지게 하고 싶은데요.
한 프로젝트에서는 대부분 같은 크기의 글을 사용하게 될 테니
매번 제가 바꾸더라도..
리습의 내용중 어느 부분을 건드려야 글씨의 크기가 달라지는지 궁금합니다.
연습 캐드파일과 리습파일 첨부하겠습니다.
-파일첨부를 하려는데 안되어서 첨부방법을 덧글로 알려주시면
바로 올리겠습니다.
일단 리습의 본문입니다.
(defun c:aaaa ( / doc space ss index obj mi mx minpt maxpt inspt area txtobj)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(cond
((= (vla-get-activespace doc) 1) (setq space (vla-get-modelspace doc)))
((= (vla-get-activespace doc) 0) (setq space (vla-get-paperspace doc)))
)
(if (and (setq ss (car (entsel "n객체 선택 : "))) (setq inspt (getpoint "n텍스트 삽입점 지정 : ")))
(progn
(setq obj (vlax-ename->vla-object ss))
(setq area (vla-get-area obj) len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))
(mapcar '(lambda (a b)
(setq p (vlax-3d-point inspt))
(setq txtobj (vla-addtext space (strcat a b) p 200))
(vla-put-alignment txtobj 4)
(vla-put-textalignmentpoint txtobj p)
(setq inspt (polar inspt (/ (* 270 pi) 180) 300))
)
(list (rtos (/ area 1000000.) 2 2) (rtos (/ len 1000.) 2 2)) '("㎡" "m")
)
)
)
(princ)
)
(vl-load-com)
(prompt "n[ AAA ]")
(princ)
감사합니다.
관련자료
댓글 2