一个修改的面积标注 统计工具
一个面积标注工具，连续标注多个面积，并按空格后将已标注的面积求和标注。存在问题是选取非封闭区域会发生错误(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))
)
看看怎么样啊
页:
[1]