홈/ 질문/Q 26975
다음
진행 중
Something went wrong with the plugin API.
등록일: 2001-11-07T15:29:44+09:00 카테고리:

면적 구하는 방법?( area명령어가 아닌 다른방법)

설계 도면에서 면적 구하는 방법중 area 명령어가 아닌 다른 방법중
먼저 pedit로 외곽선을 join한후 하나의 선으로 만든다음 무슨 명령어를 쳐야 바로 면적을 구할수 있는지요?
예전에 다른 사람이 하는걸 봤는데 기억이 나지 않아서요.이 명령어를 치면 면적과 평수가 나오거든요
많은 답변 부탁드릴께요!

공유

    관련 있는 질문들

    1 답변

    1. aalan

    2. 제가 쓰는 리습 보낼께요…
      캐드디렉토리밑에 support였나 거기보면 acadr14.lsp(acad2000.lsp)
      라는 화일 있어요..
      그거 맨 끝에 복사해서 붙여넣고 쓰세요..
      혹시 리습 아시면 수정해서 쓰시던지..
      제가 노가다하다가 귀찮아서 만들었던건디..
      글씨크기를 고정해 버렸네요..
      명령어는 are 픽포인트 방식이니까 좀 편할꺼예요..
      잘 모르시면 멜주세요..
      요 아랫줄부텀 복사하세요..

      ;;************피크포인트 면적구해서 표기하기*************
      (defun c:are(/ p_area area_last)
      (setvar “cmdecho” 1)
      (setq p_area (getpoint”n 면적을 구할 곳에 Pick Point.. :”))
      (command “bpoly” p_area “”)
      (setq area_last (entlast))
      (command “area” “o” area_last)
      (setq a_get_ar (getvar “area”))
      (command “erase” area_last “”)
      ; (setq p_area1 (strcat ” 면적 : ” (rtos a_get_ar 2 2) ” m2″))
      (setq p_area3 (/ a_get_ar 1000000))
      (setq p_area4 (rtos p_area3 2 2))
      ; (princ p_area1)(princ”n”)

      (command “text” p_area “600” “0” p_area4)
      (princ)
      )

      • 0