cad里测面积老说z轴不同,测不了,改怎么解决?

上面的太麻烦了，参考http://xiaoxiaoyi1999.blog.sohu.com/80547801.html
里面的更简单

自已写个LISP，把Z坐标规0，然后再测。如果不会写，请把以下代码复制，写入记事本，保存为ZZ.LSP，然后打开CAD加载ZZ.LSP
最后在在CAD里输入命令ZZ就OK了。

以下为代码:
(vmon) (defun c:zz (/ wholesel count treatcount chcount ent curent segcurent entlist segentlist etflag dfetflag input ) (command "_.undo" "_begin") (setq old_err *error* *error* zz_err ) (princ " ***********Z坐标值归零程序***********作者 燕鹏动力******" ) (setvar "cmdecho" 0) (setq wholesel (ssget '((-4 . "<OR") (0 . "POINT") (0 . "LINE") (0 . "LWPOLYLINE") (0 . "POLYLINE") (0 . "ARC") (0 . "CIRCLE") (0 . "TEXT") (0 . "INSERT") (-4 . "OR>") ) ) ) (if (null wholesel) (progn (princ "\n未选择到有效实体!") (exit) ) ) (setq count 0) (setq treatcount 0) (s