[LISP函数]：有无求算面积的lisp函数

小坛子

我需要求算面积的lisp函数，给出几个点后得出所围面积。
功能和AuoCAD命令"area"同。
有谁能帮我啊！

长清

;;; 借助辅助线计算面积
;;; 作者：刘长清
(defun  c:parea( / pt pt1 pt-list cmdvar)
   (setq  pt 1 pt-list nil)
   (while pt
       (setq pt (getpoint "\n输入范围点<完成>："))
       (if pt
           (if (not pt-list)
               (setq pt-list (list pt))
               (setq pt-list (cons pt pt-list))
           )
       )
       (if (and pt1 pt)
         (grdraw pt1 pt 3 1)
       )
       (setq pt1 pt)
   )
   (if
      (> (length pt-list) 2)
      (progn
         (setq cmdvar (getvar "cmdecho" ))
         (setvar "cmdecho" 0)
         (command"pline")
         (foreach pn pt-list (command pn))
         (command"c")
         (command"area" "e" "l" "erase" "l" "")
         (princ "\n刚确定范围的面积 = ")
         (princ (getvar "area"))
         (setvar "cmdecho" cmdvar)
       )
       (princ "\n输入的点数不够。")
   )
   (redraw)
   (princ)
)

hxg_888

用area命令计算后，计算结果保存在系统变量area中，读出变量的值即可