帮我看看这个程序(求封闭区域的面积的)

kewyst

下面的小程序功能为：求一个封闭区域的面积
代码：
(defun c:cxa()
 (setvar "cmdecho" 0)
 (setq pt (getpoint "\n 请在要计算面积的封闭区域内指定一个点 :"))
 (setq ss (ssadd))
 (while pt
  (setvar "cecolor" 1)
  (command "bpoly" pt "")
  (setq a (entlast))
  (if (/= a nil)
   (progn
   (command "area" "o" a)
   (setq b (getvar "area"))
   (redraw 3)
   (princ (strcat "\n 选区面积=" (rtos b)))
   (setq ss (ssadd a ss))
  )
 )
 (setq pt (getpoint "\n 继续选取点 :"))
)
(command "erase" ss "")
(setvar "cecolor" "bylayer")
(prin1)
)


(prompt "\n ***<<c:cxa>>***  程序设计作者：ZG*CHEN"）
(prompt "\n 查询封闭区域面积。命令:cxa")
(prin1)

---------------------------------------------------------------
zg*chen

是不是有什么问题,帮我编译一下,我生成文件怎么运行不了????

我的QQ是:28792959,kewyst@163.com

zsh8012

有三处错误，以下程序纠正了错误。

(defun c:cxa( / ss pt a b)
 (setvar "cmdecho" 0)
 (setq pt (getpoint "\n 请在要计算面积的封闭区域内指定一个点 :"))
 (setq ss (ssadd))
 (while pt
  (setvar "cecolor" "red")    ;;;要设置成这样
  (command "bpoly" pt "")
  (setq a (entlast))
  (if (/= a nil)
   (progn
   (command "area" "o" a)
   (setq b (getvar "area"))
   (redraw a 3)                    ;;;亮显要指明实体
   (princ (strcat "\n 选区面积=" (rtos b)))
   (setq ss (ssadd a ss))
  )
 )
 (setq pt (getpoint "\n 继续选取点 :"))
)
(command "erase" ss "")
(setvar "cecolor" "bylayer")
(prin1)
)

(prompt "\n ***<<c:cxa>>***  程序设计作者：ZG*CHEN")   ;;;你的右）格式错误
(prompt "\n 查询封闭区域面积。命令:cxa")
(prin1)

whm2216

zsh8012（帮主）您好！你能再改改此程序吗？实现如下的功能：

(1)多个不相交不包含的封闭多边形，各面积“相加”进行统计。

(2)如有两个互包含封闭多边形，进行统计面积“减掉”被包含那个封闭多边形的面积

zsh8012

过几天给你

jtspirit

能不能将面积值直接标到区域里呢?

xyp1964

试试这个：

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=39447

124350440

能否将总面积之和取3位小数标注在图内指定地点啊

sxh_why

还没见过能支持孤岛的源程序。

武汉天喻的intecad在R14版就能实现了，不知道怎样实现的？