一个修改的面积标注 统计工具

kkyybb

一个面积标注工具，连续标注多个面积，并按空格后将已标注的面积求和标注。存在问题是选取非封闭区域会发生错误

(prompt "\n写封闭区域面积用acal命令;") ;程序加载的时候显示的提示
(defun c:bzmj()                         ；定义函数
  (setq h 1)                                ；赋值h=1
  (setq dz 0)                                ；赋值dz=0
  (setq p T)   
  (setvar "cmdecho" 0)                        ；设置系统变量 关闭命令行回显                             
  (while (not (null p))                         ；当点取了点后
    (setq p (getpoint "\n选择封闭区域内点:"))
    (if  (not (null p))
      (progn
        (command "boundary" p "")
        (setq bb (ssget "l"))
        (setq cc (ssname bb 0))
        (command "area" "o" cc)
        (command "erase" (entlast) "")
        (setq dd (getvar "area"))
        (setq dz  (+ dz dd))
        ;; (command "point" p)
        (command "text" p "" "" (rtos dd 2 3))
      )
    )
  )
(setq pt (getpoint "\n 文字标注位置:"))
(command "TEXT" pt  "" "" (rtos dz 2 3))
)

583775698

看看怎么样啊