Question

跪求高手帮忙改写CAD的lsp代码

看下面的代码

;面积周长
(defun c:mjzc()
(vl-load-com)
;直线(图元为LINE)是没有面积为属性的
(if (setq ssa (ssget '((0 . "SPLINE,ARC,CIRCLE,ELLIPSE,LWPOLYLINE"))))
(if (setq wjm (getfiled "请指定存盘文件" "e:\\" "txt" 1))
(progn
(setq n (sslength ssa) i 0
zmj 0 zzc 0
fff (open wjm "w")
)
(repeat n
(setq ent (ssname ssa i)
mj (vlax-curve-getarea ent)
zc (vlax-curve-getdistatparam ent (vlax-curve-getendparam ent))
i (1+ i)
zmj (+ zmj mj) ;总面积
zzc (+ zzc zc) ;总周长
zfc (strcat (itoa i) ", "
"面积=" (rtos mj 2 2) ", "
"周长=" (rtos zc 2 2)
)
)
(princ "\nname=")(princ (cdr (assoc 0 (entget ent))))
(princ " ") (princ zfc)
(princ zfc fff) (princ "\n" fff)
)
(princ "\n总面积=") (princ (rtos zmj 2 3))
(princ ", 总周长=") (princ (rtos zzc 2 3))
(princ "总面积=" fff) (princ (rtos zmj 2 3) fff)
(princ ", 总周长=" fff) (princ (rtos zzc 2 3) fff)
(close fff)
)
)
)
(princ)
)
该代码基本功能同前面的代码一样，但是该代码能分别列出选择的多个多段线封闭区域的面积和周长，并在最后一行统计出面积的总和，周长的总和，并自动导出保存为TXT格式的文本。该代码的统计结果单位为：mm2 ，mm

最后求高手帮忙将两个代码合二为一，并实现：分别列出选择的多个多段线封闭区域的面积和周长，并在最后一行统计出面积的总和，周长的总和，并自动导出保存为excel。并且该代码的统计结果单位为：m2 ，m。

Answer 1

你那个代码不是已经实现了你需要的功能吗？统计结果单位就是：m2 ，m的啊，只是自动导出保存为TXT笔记本格式而已