홈/ 질문/Q 95610
다음
진행 중
Lv.0
등록일: 2012-07-09T11:18:11+09:00 카테고리:

면적리습 수정좀 부탁드립니다.;;;;

여기 자주 와서 묻고는 하는데, 도움을 드리지는 못하고, 받아만 갑니다.

제가 쓰는 면적 리습입니다. 

명령어 ”q”를 치고 
폴리라인 찍고,
점을 찍으면 “00.00㎡” 
이렇게 나타납니다.
평수를 추가하고 싶습니다.
그냥 아래에 “00.00평”을 추가해주실 수 있을까요?
혹시나 수정할 수 있는 방법도 알려주시면…ㅅ..ㅅ;;; 염치 없습니다.
고맙게 잘 쓰겠습니다.
부탁드립니다.
공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 대단히 고맙습니다만, 제가 원하는 내용과는 좀 다르네요.

      저는 면적 찍을 때 폴리라인(사각형 따위)등의 객체를 선택해서 쓰고요.
      면적앞에 군더더기 없이 m2과 평만 나왔으면 합니다.
      ‘면적=’같은 거 없이요. ㅅ..ㅅ;;;;;
      죄송합니다만, 이걸 좀 고쳐주실 분 없으신가요??????
      • 0
    3. Lv.26

      (defun c:QB()
              (graphscr)
              (setvar “cmdecho” 0)
              (setq os (getvar “osmode” ))
              (setvar “osmode” 0)
             
              (setq p1 (getpoint “n면적을 원해요?. “))
              (setq p2 (polar p1 (- (* pi 2) (/ pi 2)) 2500))
              (command “COLOR” “blue” “”)
              (command “bpoly” p1 “”)    ;  CHECK!
              (command “area” “o”  “1” “”)
              (setq e1 (/ (getvar “area” ) 1.0e+06))
              (setq d1 (* e1 0.3025))
              (setq dm (rtos e1 2 2))
              (setq dp (rtos d1 2 2))
              (setq bm (strcat “A=” dm “m2”))
              (setq bp (strcat “A=” dp “평”))
      ;       (setq bn (strcat “Area=” d2 “ha”))

              (command “COLOR” “WHITE” “”)
              (command “text” p1 2000 “” bm)
              (command “text” p2 2000 “” bp)
              (setvar “osmode” os)

      );

      • 0