[LISP函数]：计算选定对象的总面积

zjsuman · 发表于 2003-5-19 15:32:10

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

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

×

;;; AREAM.LSP
;;; Function: Calculates the total area of selected objects
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2002 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com / http://jtbworld.vze.com
;;; E-mail: info@jtbworld.com / jtbworld@hotmail.com
;;; Tested on AutoCAD 2000

(defun c:aream (/ olderr oldcmdecho errexit undox restore ss1 nr en tot_area)
  (defun errexit (s)
(restore)
  )

  (defun undox ()
(command "._undo" "_E")
(setvar "cmdecho" oldcmdecho)
(setq *error* olderr)
(princ)
  )

  (setq olderr  *error*
      restore undox
      *error* errexit
  )
  (setq oldcmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (command "._UNDO" "_BE")
  (if (setq ss1 (ssget '((-4 . "<OR")
                     (0 . "POLYLINE")
                     (0 . "LWPOLYLINE")
                     (0 . "CIRCLE")
                     (0 . "ELLIPSE")
                     (0 . "SPLINE")
                     (0 . "REGION")
                     (-4 . "OR>")
                     )
            )
   )
(progn
   (setq nr 0)
   (setq tot_area 0.0)
   (setq en (ssname ss1 nr))
   (while en
      (command "._area" "_O" en)
      (setq tot_area (+ tot_area (getvar "area")))
      (setq nr (1+ nr))
      (setq en (ssname ss1 nr))
   )
   (princ "\nTotal Area = ")
   (princ tot_area)
)
  )
  (restore)
)

li809 · 发表于 2005-2-17 23:43:14

好,算绿化面积的时候最能用

yudiquan · 发表于 2005-2-28 11:36:22

我不懂如何定义LISP文件，我把你的编码复制到记事本，保存后居然不是LISP文件，到底怎么回事呢？

一路欢笑 · 发表于 2005-3-8 15:04:19

把后缀，改了就可以了

思念的海 · 发表于 2005-3-8 22:33:20

另存为＊.lsp,不要管其他就可以，谢谢楼主！

lanwei8300 · 发表于 2005-3-9 00:27:49

和晓东的很类似！不过还是很好用！谢谢

yudiquan · 发表于 2005-3-15 11:49:33

不同的条样曲线组成的图形，发挥不了作用！简单的还可以！

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

[LISP函数]：计算选定对象的总面积

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

相关帖子

和晓东的很类似！