Question

CAD中多个封闭区域的总面积计算插件

我在网上找到一个程序，如下：
;求spline,polyline,lwpolyline,arc面积
(defun c:ss ()
(setq 总面积 0)
(setq 总亩数 0)
(setq 面积 0)
(setq 总周长 0)
(setq 周长 0)
(setq k 0)
(setq a nil)
(setq a (ssget))
(setq Len (sslength a))
(repeat Len
(setq name (ssname a k))
(setq ent1 (entget name))
(setq na (assoc 0 ent1))
(setq na (cdr na))
(if (= na "SPLINE")
(progn
(command "area" "o" name)
(setq 面积 (getvar "area"))
(setq 总面积 (+ 总面积 面积))
(setq 周长 (getvar "perimeter"))
(setq 总周长 (+ 总周长 周长))
)
)
(if (= na "POLYLINE")
(progn
(command "area" "o" name)
(setq 面积 (getvar "area"))
(setq 总面积 (+ 总面积 面积))
(setq 周长 (getvar "perimeter"))
(setq 总周长 (+ 总周长 周长))
)
)
(if (= na "ARC")
(progn
(command "area" "o" name)
(setq 面积 (getvar "area"))
(setq 总面积 (+ 总面积 面积))
(setq 周长 (getvar "perimeter"))
(setq 总周长 (+ 总周长 周长))
)
)
(if (= na "CIRCLE")
(progn
(command "area" "o" name)
(setq 面积 (getvar "area"))
(setq 总面积 (+ 总面积 面积))
(setq 周长 (getvar "perimeter"))
(setq 总周长 (+ 总周长 周长))
)
)
(if (= na "ELLIPSE")
(progn
(command "area" "o" name)
(setq 面积 (getvar "area"))
(setq 总面积 (+ 总面积 面积))
(setq 周长 (getvar "perimeter"))
(setq 总周长 (+ 总周长 周长))
)
)
(if (= na "LINE")
(progn
(command "area" "o" name)
(setq 面积 (getvar "area"))
(setq 总面积 (+ 总面积 面积))
(setq 周长 (getvar "perimeter"))
复制以下内容到记事本：

(setq 总周长 (+ 总周长 周长))
)
)
(if (= na "LWPOLYLINE")
(progn
(command "area" "o" name)
(setq 面积 (getvar "area"))
(setq 总面积 (+ 总面积 面积))
(setq 周长 (getvar "perimeter"))
(setq 总周长 (+ 总周长 周长))
)
)
(setq k (+ k 1))
(setq 总亩数 (/ 总面积 666.667))
)
(print (list "总周长=" 总周长))
(print (list "总面积=" 总面积 "平方米" 总亩数 "亩"))
(princ)
)

结束复制，保存文件。将文件后缀.txt更改为.lsp。OK。完成，加载应用程序（CAD快捷命令AP）。本lisp的快捷命令为：SS

但是这样计算的结果是科学计数法体现的 ，怎么编辑后是以平方米或者平方毫米显示结果的。

Answer 1

把后面两句
(print (list "总周长=" 总周长))
(print (list "总面积=" 总面积 "平方米" 总亩数 "亩"))
改成
(print (list "总周长=" (rtos 总周长) "米"))
(print (list "总面积=" (rtos 总面积) "平方米" (rtos 总亩数) "亩"))
如果不想在结果中看到那么多引号可以改成
(princ (strcat "\n总周长=" (rtos 总周长) "米"))
(princ (strcat "\n总面积=" (rtos 总面积) "平方米, " (rtos 总亩数) "亩"))

Answer 2

满意请采纳，谢谢

追问

哥们我要的是CAD应用插件，不是EXCEL 的 不好意思！

追答

你确定你操作对了？

-
看看这个

追问

正常的CAD插件是以.lsp为后缀的文件，你文件的格式都不对啊

追答

http://c.picphotos.baidu.com/album/h%3D80%3Bq%3D90/sign=6d7f614a7c3e6709a10048ff00b6a204/30adcbef76094b3666568680a0cc7cd98c109d93.jpg
上面是动态教程。VLX和LISP一样使用AP加载即可....

追问

好的 我去看看

追答

满意请采纳，谢谢。

追问

你发的动态教程太小了 ，看不清楚

追答

图片真的很大了...