[求助]：怎么样求封闭区域的面积？

huangxy1 · 发表于 2005-7-14 14:32:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问各位高手，用VBA怎么样求封闭区域的面积？
在此先谢谢了！

macula55 · 发表于 2005-8-9 11:33:41

Public Sub cArea()

  Dim pt As Variant
  Dim spt As String

  pt = ThisDrawing.Utility.GetPoint(, vbCrLf & "输入要计算面积对象的内部一点：")

  spt = pt(0) & "," & pt(1)

  With ThisDrawing
   SendCommand "-boundary "
   SendCommand spt & " "
   SendCommand " "
   SendCommand "area "
   SendCommand "o "
   SendCommand "last "
   SendCommand "erase "
   SendCommand "last "
   SendCommand " "
  End With

  Dim zarea As double
  zarea =  ThisDrawing.GetVariable("AREA")

  ThisDrawing.Utility.Prompt vbCrLf & "选定对象的总面积为： " & zarea & vbCrLf

End Sub

ps122 · 发表于 2005-8-10 12:52:42

记得前几天刚讨论过，自己搜一下

measure1980 · 发表于 2005-8-10 15:01:51

前几天我上传了一个lisp的源代码，和楼上的兄弟用的是同样的算法

wxl1981807 · 发表于 2005-8-27 10:51:14

谢谢

hisum · 发表于 2005-8-29 13:25:55

boundary 不是很完善，有些明明是严格闭合的图块，只是因为交点处有多条polyline，就判断出错，有没有好办法改正这样的问题。是不是autocad能改进一下。

zcmjw · 发表于 2005-8-30 20:02:59

boundary 方法只对同一平面图形有效

macula55 · 发表于 2005-9-3 13:55:44

面积当然只是在平面中了，在3D中成了体积了！

xs212549 · 发表于 2005-9-9 14:41:54

不对,boundary 只对当前窗口有效,而且对复杂的图形容易出错,我也正在找更好的办法

qiaqiadeng · 发表于 2006-6-7 16:54:45

来段lisp版的：
(defun c:ae () ;求对象面积
  (setq ob (entsel "请选择对象"))
  (setq x (car ob))
  (setq p1 (car (cdr ob)))
  (command "area" "ob" x)
  (setq e (/ (getvar "area") 1000000))
  (setq aaa (rtos e 2 4))
  (prompt "\n面积是：")
  (prompt aaa)
  (prompt "\n")
  (command "text"
   "j"
   "bl"
   (getpoint "请输入文字标注点:")
   500
   0
   aaa
   ""
   ""
  )
  nil
)

账号		自动登录	找回密码
密码			立即注册

[求助]：怎么样求封闭区域的面积？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子