면적산출 리습 질문이 있습니다. //
컨텐츠 정보
- 213 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요.
면적산출 리습을 잘쓰고 있습니다.
산출시 상단에 "Area Table" 이라고 표현되는 부분을 레이어 이름으로 바꿀수있을까요?
도움주시면 감사하겠습니다.
;┌─────────────────────┐
;│ ♥ 일괄 면적 표기 ♥
;│ Program By. Jeong Kil Bok
;│ E-mail: 810storm@Daum.net
;│ Sep 26, 2008 Rev. Oct 07, 2008
;└─────────────────────┘
(if (setq pt (getpoint "n>> 테이블 작성 포인트 지정:"))
(progn
(setq table (vla-addtable space (vlax-3d-point pt) (+ cnt 3) 2 (* $tsz 2) (* $tsz 10)))
(vla-settext table 0 0 "Area Table")
(vla-settext table 1 0 "No.")
(vla-settext table 1 1 "Area")
(vla-settext table (+ cnt 2) 0 "Total")
(vla-settext table (+ cnt 2) 1 sum)
(foreach x arlst
(vla-settext table n 0 (itoa (- n 1)))
(vla-settext table n 1 (cadr x))
(setq n (1+ n))