[编程申请]：恳求面积计算的修正版！！(To 民工君：22楼已更新)

民工

民工来补充几句：
1. 字体要设置成宋体等才能显示后面的平方米。
2. 参数设定有两列窗口，左边一列是当前值，右边一列是可选值，也可以直接在左边一列手工输入。
3. hm2是公顷，不是平方公里的km2。
4. 标注的面积字段与图形线框关联，编辑图形后，只要重新生成regen（或者“工具”---“更新字段”），数值就相应变化，汇总的面积也改变。

北斗七星

我也将经过改正的程序写好了，大家也拿去用吧。
祝大伙们用得愉快！

tdgc

好象改变图形后面积不能跟着变化,能不能给原代码,想学习学习.谢谢

ligis

在2005中为何不能标注，计算出都为0？

民工

最初由 ligis 发布
[B]在2005中为何不能标注，计算出都为0？ [/B]

你画一个大一点的图形来测量试试
或者调整一下精度和单位
用area命令看看你原来画的那个图形的面积是多少

xxxyzxx

看了帖子这么久，工具也用顺手了，感谢“民工”和“北斗七星”！

jobpenn

问题再起：请问民工君和eachy君，程序生成的面积字段可否与excel表格建立链接。
工作需要，本人经常在excel中建立各种表格（如门窗表，材料表等），然后在autocad中链接粘贴，这样在excel中做的任何改动都即时反映到autocad的表格中去。现在我需要的是反向链接，即autocad→excel，修改autocad中的闭合曲线，面积字段自动更新的同时，在excel中的面积表也能自动更新。再请高手出招！！

leept

我的问题是能不能，填充所要计算的面积，然后统计到excel表格里面，并能够保持更新。请eachy和民工出手相助。

民工

跟ea讨论了半天，也找不到一个好的方法
首先excel就不能够单独插入acad的字段，或者让某个单元格与acad的某个数值关联。
目前怕是只能尽量利用acad自带的表格进行整理汇总，等哪天excel和acad完美的结婚了，我们才能这样运用。

leept

AutoXlsTable好像有点那个意思，不过不太会用，还要定义什么的。
常青藤的软里面统计相对好用，但是不能跟着面积的改变而改变，统计也不是很舒服。

eachy的量算后变成了一个层，何况要经常用getarea，输入麻烦，不能填充以便作出标示，有利于大量面积的量算，统计也是相对不爽，不知道autocad里面怎么统计方便。

对常青藤和eachy的东东报有极大的希望，但愿早日完善。

民工

最初由 leept 发布
[B]eachy的量算后变成了一个层，何况要经常用getarea，输入麻烦，不能填充以便作出标示，有利于大量面积的量算，统计也是相对不爽，不知道autocad里面怎么统计方便。
... [/B]

面积标注单独放一个层是民工提出的，这样适用性强，可以关闭不打印。

这个程序就是为了大量计算面积的，跟填充无关，acad对复杂图形的填充计算很弱的，不涉及填充才是明智的，你需要填充完全可以自己添加，室内装修的填充还要去掉家具，要是按照填充来算就问题大了。

你要是觉得命令太长，完全可以设置别名嘛，我现在就设成ga

统计有什么不爽的，你能详细说一下嘛，便于我们改进。

这个程序已经是非常的好用了，不知道你还期望什么样的功能，要是程序都能自动画图了，我们也要下岗了。

leept

谢谢，民工的关注。可能我们的用处不一样。我的用处是量地类面积，因为要区别不同地类，所以填充有利于分辨。我希望能够将每个面积统计到excell，但是eachy的软件没这个功能，甚至不能建立cad表格。我不懂cad编程，所以乱说一通，希望不要介意。
同时希望能有更适合我的东东。

qj866

想请教各位，怎么使用，

民工

最初由 leept 发布
[B]谢谢，民工的关注。可能我们的用处不一样。我的用处是量地类面积，因为要区别不同地类，所以填充有利于分辨。我希望能够将每个面积统计到excell，但是eachy的软件没这个功能，甚至不能建立cad表格。我不懂cad编程，?.. [/B]

acad与excel的沟通还没有达到我们想要的那个程度。
eacel输入到acad还好办一些，acad输入到excel就很糟糕了。
acad的表格只能以特定的格式导出后输入excel，但是就成了单纯的数值，原有的特性、函数都没有了，这样的输入意义不是很大。
acad自带的表格可以进行统计，勉强能用，只是操作比起excel差了很多。
这个问题可能要从excel那边解决。

我在office的论坛上问的这个问题，有人这样回复：

读出CAD图中所有文字的坐标autocad vba参考代码
(因我没有autocad2006,只好提供autocad2004类似功能的VBA代码供参考)

'**请copy以下代码至Autocad VBA(thisDrawing) ,然后执行宏
'**在VB或其它程序调用者请参考相关Autocad VBA帖子后引用
Sub Example_ShowAcadTText()
If ThisDrawing.ModelSpace.Count > 0 Then
    Dim acdObj As AcadObject
    Dim retCoord As Variant
    Dim str0, str As String
    For m = 0 To ThisDrawing.ModelSpace.Count - 1
    With ThisDrawing.ModelSpace.Item(m)
    str0 = .ObjectName
    If str0 = "AcDbText" Or str0 = "AcDbMText" Then
    .Highlight (True)
        retCoord = .InsertionPoint
        text0 = .TextString
         str = text0 & Chr(13) & retCoord(0) & "," & retCoord(1) & "," & retCoord(2)
         MsgBox str
        .Highlight (False)
      End If
      End With
    Next   
  End If
End Sub

我还没有搞明白这个东西怎么用

leept

有个高手帮我弄了个程序，和excel结合很完美，现在还在修正中，下次传上来给民工参考。