[推荐]：一个自动计算面积工具

jennos · 发表于 2004-7-31 17:04:00

在ｃａｄ命令行输入APPLOAD加载*.LSP就可以了

8110lxq · 发表于 2004-8-1 15:28:03

搞预算的朋友用用蛮好的

gdqbx · 发表于 2004-8-2 15:34:05

2004不能用。
命令: _appload 已成功加载 getarea.lsp。
命令: ; 错误: 读入的 (八进制) 字符不正确: 0

木春林 · 发表于 2004-8-16 08:19:43

最好把各部分面积，分别表示出来然后有一个，统计表就更好了。

语双关 · 发表于 2004-8-16 09:09:55

我也觉得算面积不必如此,CAD本身就有.

zyy2326 · 发表于 2004-9-12 21:16:13

这工具在哪儿加载进去呀！！请高手赐教！！！

3580855 · 发表于 2006-7-12 20:51:45

这两天,忙者学CAD,累死了,谢谢

ghflovexx · 发表于 2006-7-13 17:18:22

晕用AREA这个命令就可以算面积了啊!我用的是04版的!!!

whirlwind · 发表于 2006-7-13 22:37:45

好用吗?

shwy · 发表于 2006-7-14 09:39:48

这工具在哪儿加载进去呀，我不清楚！！请高手赐教！！！

howtimefly · 发表于 2006-7-16 15:04:41

支持那个版本阿？使用说明有吗？

lc88126 · 发表于 2006-7-25 12:43:04

东西不错。

漫山绿 · 发表于 2006-7-25 14:25:07

;get area
(defun C:GETAREA  ( /  ss e ent lyname ls llist)
  (setq ss (ssget))
  (while ss
(setq
   e (ssname ss 0)
   ent (entget e)
   ss (if (> (sslength ss) 1)
         (ssdel e ss)
      nil
      )
)
(cond ((or (=  (cdr (assoc 0 ent))  "LWPOLYLINE") (=  (cdr (assoc 0 ent))  "POLYLINE"))
   (command "AREA" "e" e)
   (setq
      lyname (cdr (assoc 8 ent))
      ls (assoc lyname llist)
      ls1 (cons lyname (+ (if ls (cdr ls) 0) (getvar "AREA")))
      llist (if ls (subst ls1 ls llist) (cons ls1 llist))
   )
))
  )
  llist
)


  我一下载变为一个程序，不知为什么

acepublic · 发表于 2006-8-3 11:52:15

58楼源码对于单条线围成的面积好用,但对于由几条线围成的一个面积不能求出正确解
谁知道求这种情况好办法,请指教?

qqcool · 发表于 2006-8-11 11:42:45

想下载，可惜爱心币不够啊，以后再下吧，谢谢楼主分享。

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