闭合多段线面积值到
大家好。在所附图片中，您可以看到3条多段线，其中每条多段线包围一个区域。这3个面积值是否可以导出到各自行中的excel？
只是更改了以前代码中的几行
（添加了小数分隔符）
~'J'~
区域至XL。LSP 你好，fixo:D
小问题。
我在Autocad中有3个对象，在Excel中有2个区域，第3个是3个区域的总和，但缺少一个区域。
你能这样做只是为了显示面积值，而不是在Excel中求和吗？
你好
这些应该得到面积测量值，并将其放入CSV文件中。它将位于运行例程的图形的图形目录中。您需要替换或删除write_行代码中的变量BldgName、FloorLevel和TextString，以满足您的需要。请注意，我没有进行错误处理，如果您选择一个没有区域的对象，例程可能会失败。
(defun AreaCSV ( / File File_ID PlineSelSet PlineArea)
(setq File (strcat (getvar "DWGPREFIX") (getvar "DWGNAME") ".csv"))
(setq File_ID (open File "a"))
(while (/= (setq PlineSelSet (ssadd (car (entsel "Select a Closed Polyline for Area Calculation. ")))))
(command "._area" "O" PlineSelSet)
(setq PlineArea (getvar "area"))
(write-line (strcat BldgName "," FloorLevel "," TextString "," (getvar "area")) File_ID); Example, replace with your variables.
); while
(close File_ID)
); Defun
如果你需要帮助，请告诉我。
祝你过得愉快。
肖恩多 Fixo，我试着用嘴唇进行aga，但例如，如果我有7个被对象包围的区域，我总是只能得到2行+3是Excel中的总和：-(
也许你能解决这个问题吗？ 对不起，我的错
我忘了增加上面例程中的最后一行
附件中没有按升序排序的总和
~'J'~
AreasToXL\u V2。LSP Fixo，您可以删除升序，并根据Autoacd中的几何体写入区域吗。
就像在第一篇文章中，3个区域一个接一个，你在excel中得到3个对应于每个形状的小数值。
我将永远拥有一个接一个的几何！
好的，我把它改成了你的需要
~J~
AreasToXL\u V3。LSP
嘿，菲索！
很抱歉耽搁了这么长时间。我生病了，离开了一小段时间。现在一切都好了。
我再次尝试lsip，它像我要求的那样工作，但出现了一个小问题：（。
excel中获取值的顺序与Autocad中的几何图形相反，例如，我在Autocad 4,3,5,7,8中有值（几何图形是一个接一个的），在excel中有8,7,5,3,4。
你能把这个倒过来吗？
Thanx公司
很高兴你痊愈了，我想现在是时候了
好的，我会尽力的，但不要着急
~'J'~
页:
[1]
2