면적늘리기

Question

jhc050Lv.3

등록일: 2006-12-142006-12-14T20:29:02+09:00 2006-12-14T20:29:02+09:00카테고리: AutoCAD & CADian

면적늘리기

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

3 답변

[Deleted User] · Answer 1 · 2006-12-14T21:47:08+09:00

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