홈/ 질문/Q 64071
다음
진행 중
jhc050
Lv.3
등록일: 2006-12-14T20:29:02+09:00 카테고리:

면적늘리기

123.23m2라는면적의 객체가 있을때 그객체를 150m2이렇게 축척할수있는 기능이있는지요? 아니면 리습을 구할수있는지 부탁드립니다

공유

    관련 있는 질문들

    3 답변

    1. aalan

    2. 리습만드는방법

      • 0
    3. Lv.3

      you92(一初) 님 감사감사함니다 계산기두드려서할려고했는데 리습이너무좋네요 거듭감사

      • 0
    4. (defun c:rescale (/ ss old_area new_area newscale bp)
        (setq ss (entsel “n 면적을구하려는 객체 : “))
        (if ss
          (progn
            (command “area” “e” ss)
            (setq old_area (/ (getvar “area”) 1000000.0))
            (setq new_area (getreal (strcat “n 새면적<” (rtos old_area 2 4) “> : “)))
            (if new_area
              (progn
                (setq newscale (sqrt (/ new_area  old_area)))
                (setq bp (getpoint “n 스케일변경 기준점 : “))
                (if bp
                  (progn
                    (setq os (getvar “osmode”))
                    (setvar “osmode” 0)
                    (command “scale” ss “” bp newscale)
                    (setvar “osmode” os)
                  )
                )
              )
            )
          )
        )
        (princ)
      )
      • 0