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

rammer · 发表于 2003-6-7 08:27:44

可以很简单的算绿地了

老好人 · 发表于 2003-6-7 11:15:54

;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
)
这个东西是没有什么用的。特此说明，因为ACAD的AREA命令本身中就有这个功能。选用O选与它一样。不必如此之走弯路！！

徐志凯 · 发表于 2003-6-8 14:38:27

楼主编个说明讲解一下。

lliyany · 发表于 2003-6-10 12:32:27

我喜欢这些小软件，我也学习作

萧山 · 发表于 2003-6-10 21:59:08

有说明就好了

yanzai · 发表于 2003-6-11 23:20:26

请问，能否象区域填充那样，用鼠标一点，就可以自动找寻面积并进行计算吗？

名动江湖 · 发表于 2003-6-15 23:32:39

很多外挂有这功能！
如 ARCHT14

ylsy · 发表于 2003-8-5 15:10:24

这个外挂可以用，但也是没有用，cad自带的area命令也可以算面积呀。关键是如何确定边界。

strengthen · 发表于 2003-8-14 21:34:02

用处大大的，从此买房可算面积，防止js受的当!

maijinghua1001 · 发表于 2003-8-15 21:40:10

用了再说说我得心得,用于面积量算应该很好把？

strengthen · 发表于 2003-8-16 13:08:21

不错的东东,我要了!

tmqgx · 发表于 2003-8-20 15:50:12

求面积，CAD里就有，天正的更好，不知这个有什么用？

Anglefish · 发表于 2003-8-20 17:18:14

按，不会用啊，可以教教我吗？？

空壳 · 发表于 2003-8-20 21:52:15

应该多鼓励楼主，
大家应该都学学编程，
我最早学lisp编程，
还编过画矩形的命令呢，
只要是锻炼，编的东西不一定要好用，
只要在这里和大家交流了，就应该学习，
我向楼主学习。
并为楼主鼓一下掌。

wqwq · 发表于 2003-8-20 23:20:45

楼主出来解说解说吧？你看各位兄弟都不知怎么用

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

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

回答