프로그램
캐드 분류

리습 내용 중 변경하고싶은 부분이 있습니다. 도움 부탁드립니다.

컨텐츠 정보

  • 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
여분필드1 여분필드2 여분필드3
전체 7,337 / 1 페이지
번호
제목
이름
알림 0