프로그램
캐드 분류

면적산출 리습 질문이 있습니다. //

컨텐츠 정보

  • 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))

관련자료

댓글 2 / 1 페이지

수야12님의 댓글

(vla-settext table 0 0 "Area Table") 이부분을

(vla-settext table 0 0 (getvar 'clayer))로 고치세요 그럼 현재 레이어로 됩니다 
전체 6,913 / 1 페이지
번호
제목
이름
알림 0