[讨论]：怎样才能准确的测量出不规则图形的面积

zxb5160

请高手指点：怎样才能准确的测量出不规则图形的面积
例如：扇形、多边形、直线和曲线组成的图形

民工

先将边界形成一个闭合的线框，可以连接成Pline，也可以用搜索边界的命令完成
然后测量面积，area命令，o选项，选择边界框就行了

das

用list命令，可以显示面积

dxh

查询工具的面域（massprop)命令也可以。

zxb5160

是不是用 F 把他们连接到一起啊   组成一个整体封闭的图形啊
可是 圆弧 不能和直线用Pline连接到一起啊   应该怎么做啊

dxh

boundary和region命令都可以。

maplesu

面域是一个不错得方法
比较直接得

zxb5160

谢谢大家  我会了  
是不是先用boundary把所有的线组成一个整体的图形边框
然后再用area来测量面积  
太好了  我做出来了   谢谢大家了！！！

sunny_c

用pline辉指出，用LS命令算出面积和周长。

king009

这个我也常碰到！各位能不能说的在细致一些！谢谢诸位了！！！！

maplesu

以前做过一个用来求面积的lsp
大家看看好用不

命令行：输入qa
输入字高
然后在需要测量的区域内部点左键（连续选者为叠加）
右键结束后在点测量区域内为相减右键结束
再点左键选点写出结果

[PHP]
;;;求封闭区域面积
(defun c:qa()
  (setvar "cmdecho" 0)
  (setq tt (getreal "high"))
  (setq pt (getpoint "\n 选取点<相加>:"))
  (setq sum 0)
  (while pt
     (command "bpoly" pt "")
     (setq en (entlast))
     (if (/= en nil)
       (progn
         (command "area" "o" en)
         (setq aa (getvar "area"))
         
         (princ (strcat "Area=" (rtos aa 2 2) "\n"))         
         (setq sum (+ sum aa))
         )
       )
     (entdel en)     
     (setq pt (getpoint "\n 选取点<相加>:"))
     )
  (setq pt1 (getpoint "\n 选点<相减>："))
  (while pt1
     (command "bpoly" pt1 "")
     (setq en1 (entlast))
     (if (/= en1 nil)
       (progn
         (command "area" "o" en1)
         (setq aa1 (getvar "area"))
         (princ (strcat "Area=" (rtos aa1 2 2) "\n"))         
         (setq sum (- sum aa1))
         )
       )
     (entdel en)     
     (setq pt1 (getpoint "\n 选取点<相减>:"))
     )
  (setq ptt (getpoint "文字输入点： "))
  (command "text" "c" ptt tt 0 (rtos sum 2 2))
)
(prin1)
[/PHP]