[编程申请]：谁能帮我编个简单的面积统计程序

xxming · 发表于 2003-9-25 19:32:25

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

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

×

谁能帮我编个简单的面积统计程序：能自动进行各个闭合多义线的面积相加、相减并把结果标注在上面。

lsjjm · 发表于 2003-9-26 06:43:31

Try this code:
(defun c:test (/ ss)
  (vl-load-com)
  (setq ss (ssget '((0 . "PLINE,POLYLINE,LWPOLYLINE"))))
  (setq sum 0 n 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(setq sum (+ sum (vla-get-area obj)))
(setq n (1+ n))
  )
  sum
)

xxming · 发表于 2003-9-26 08:45:40

楼上你的程序比较简单，能不能面积即能相加也能相减，并能把结果标注在图面上

runkeji · 发表于 2003-9-28 09:54:04

相减怎么个减法，谁减谁呀。相加怎么加。
那样我们可以通过选择，还是别的方法呀。最好通过面域的计算后：
直接提取面域的面积那多方便你说对吗？
请告讼我你想怎样算。如果在这找不到我请到明经通道那里的任何一个人都可能给你解答的，只要他们有时间。都有这种能力。那是这方面最好的论坛了。

f5612140 · 发表于 2003-9-28 11:21:27

1.同意4 樓對明經通道的看法
2.我有寫好這方面的程式,如樓主有需要請先Email圖檔 f5612140@ms17.hinet.net 看看是否能幫忙

xxming · 发表于 2003-9-28 12:42:47

你能否把相减的面积做负数，相加的面积做正数，在进行统计。最后可把结果标注在图面上。

f5612140 · 发表于 2003-9-28 16:15:23

1.可
2.如何判斷該面積為負數請具體說明,如不同的編號,不同的圖層,不同的顏色等等

xxming · 发表于 2003-9-28 20:06:01

楼上兄台：你可让人选择，面积为相减时输入--- 号，面积为相加时输入+号或不输入符号，最后自动统计面积，这样行吗？

f5612140 · 发表于 2003-9-28 21:47:30

1.程序設計可依個人需求修改
2.何不上傳一案例實際操作較有意義

五月的杨 · 发表于 2006-4-28 09:50:51

没有人做吗？

Polluxbao · 发表于 2006-4-29 13:35:06

还是没有看明白怎么把面积相减的道理

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

[编程申请]：谁能帮我编个简单的面积统计程序

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

相关帖子

浏览过的版块