[LISP程序]：计算任意封闭图形面积的LISP小程序

ljg516

;CCCCCCCCCCCCCCCCCC  (Written by Golden-shine 2003.1.12)   CCCCCCCCCCCCCCCCC
;CCC    计算任意封闭图形面积的LISP小程序(不能计算“岛”)
(defun c:MJ (/ A P P1 oldcmdecho )
    (setq A 0.0 P 0.0 )
    (setq oldcmdecho (getvar "cmdecho"))
    (setvar "cmdecho" 0)
    (if (setq p1 (getpoint "\n选择闭合区域内任意一点"))
       (progn
       (command "boundary"  p1 "" )
       (command "._area" "_O" "L")
       (setq A (getvar "area"))
       (setq P (getvar "Perimeter"))
         )
      )
       (princ "\n块面积 = ")(princ A)
       (princ " 块周长 = ")(princ P)
       (command "erase" "L" "")
      (setvar "cmdecho" oldcmdecho)
(princ)
)

lhj743

很不错，
点面积比area命令还方便呢！
还能创造面域！
如果楼主能修改一下，
所点的面积可以相加或者相减就更好啦！

自由的鱼

楼主可以再修改一下，能支持比例尺就更好了！

梦断江南

最初由 自由的鱼 发布
[B]楼主可以再修改一下，能支持比例尺就更好了！ [/B]

试试：

http://www.xdcad.net/forum/showthread.php?threadid=225057

自由的鱼

最初由 梦断江南 发布
[B]
试试：

http://www.xdcad.net/forum/showthread.php?threadid=225057 [/B]

不错，很好的东东！

shisj

原创的，不错，我的想法与你的一模一样。

gdqbx

不错，能够求有样条曲线组成的闭合区域的话会更好。

shisj

奇怪的是，直接用boundary命令的对话框可以生成样条曲线组成的闭合区域的面域，而用你的程序会出错，怎么也搞不明白

梦断江南

楼上发个图来看看

lsjjm

最初由 ljg516 发布
[B]...  计算任意封闭图形面积的LISP小程序(不能计算“岛”)... [/B]

求 去除孤岛的面积
http://www.xdcad.net/forum/showt ... hlight=%C3%E6%BB%FD
或先HATCH再求面积.

它山之石

又一个计算面积的程序，回头我把我的源程序贴出来给大家讨论。

lsjjm

最初由 它山之石 发布
[B]又一个计算面积的程序，回头我把我的源程序贴出来给大家讨论。 [/B]

我看你回了好几次头拉(开玩笑), 贴出来再说吧?

shisj

最初由 梦断江南 发布
[B]楼上发个图来看看 [/B]

随便用spline画几个封闭的图形，然后用楼主的程序，以下是运行后的提示，但直接用boundary就不会有这个问题
mj

选择闭合区域内任意一点
请回答“是”或“否”。
; 错误: 函数被取消
无法导出多段线边界。是否创建面域？? <Y>

已提取 1 个环。


已创建 1 个面域。

BOUNDARY 已创建 1 个面域
命令: 指定对角点:

combywind

封闭图形面积相加CAD本身就可以完成，相减好像还不行，
哪位大虾，写一个给小弟看看，谢了！

xiaping

最初由 shisj 发布
[B]
随便用spline画几个封闭的图形，然后用楼主的程序，以下是运行后的提示，但直接用boundary就不会有这个问题
mj

选择闭合区域内任意一?.. [/B]

你把这一行代码(command "boundary" p1 "" )用下面的替换就可以解决了。 (command "boundary" "A" "O" "R" "" p1 "")   但是，这个程序没有解决孤岛面积扣除的问题，用起来不大方便。