캐디안(CADian)/오토캐드(AutoCAD) 면적(area) 계산하는 Lisp

[안티캐드]

; Calculate the Area
(defun c:qw (/ ar pyung ar1 sc ds)
     (setvar "cmdecho" 0)
     (prompt "\nArea Check! >>> ")
     (setq sc (getvar "ltscale"))
     (setq ds (* sc 8.0))
     (setq pt1 (getpoint "\nPick a point ->"))
     (setq pt2 (list (car pt1) (- (cadr pt1) ds)))
     (command "-boundary" pt1 "" )
;     (command "bpoly" pt1 "" )
     (command "area" "e" "l")
     (setq ar (getvar "area"))
     (setq ar1 (/ ar 1))
     (setq pyung (/ (/ ar 1) 3.3058))
     (setq pyung (rtos pyung 2 2))
     (setq ar1 (rtos ar1 2 2))
     (princ "\n       Area : ")
     (princ ar1)
     (princ "    mm^2")
     (princ "\n       Area : ")
     (princ Pyung)
     (princ "    Pyung")
     (setq disp (strcat "(" Pyung ")" ))
     (setq Z (getdist))
         (if Z
             (setq dsh Z)
)
     (setq dsh (getvar "textsize"))
         (COMMAND "TEXT"
                  (SETQ Z PT1)
                  (SETQ Z dsh)
                  (SETQ Z 0.0)
                  (SETQ Z ar1)
                  )
         (COMMAND "TEXT"
                  (SETQ Z PT2)
                  (SETQ Z dsh)
                  (SETQ Z 0.0)
                  (SETQ Z disp)
                  )
(prin1)
)
;**************************

[JIN93]

잘 봤습니다! 감사합니다~~