[LISP程序]：cad中求封闭区域的面积

zzyxhqplay · 发表于 2003-9-12 22:05:47

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

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

×

cad中求封闭区域的面积实现方法多是借鉴area命令来实现，
这就存在一个问题：只可求多义线组成的封闭区域，但不可
求用line组成的封闭区域（除非转化为面域），但在工作中，毕竟用line用的比较多
有没有方法可实现求用line组成的封闭区域面积呢，小弟下面给出一段lsp求面域面积的程序，请各位大虾修改来实现
－－－－－－－－－－－－－－－－－－－
(defun c:qmj()       ;求一封闭区域面积
(setq os (getvar "osmode"))
(setvar "osmode" 512)
(setq pt1 (getpoint"选择一条线段(非多义线)"))
  (setvar "osmode" os)
  (prompt "\n选择一组封闭对象:")
  (setq a (ssget))
  (if (= (sslength a ) 1)
   (progn
         (command "area" "e" a)
))
  (if (> (sslength a) 1)
   (progn
         (command "pedit" pt1 "" "j" a "" ""
                  "area" "e" pt1
                  "explode" pt1)
   )
  )
(princ "\n该封闭区域面积=")
(princ (getvar"area"))
(princ)
);;end of qmj
－－－－－－－－－－－－－－－－－－－－－－

*-*6

堕落天使 · 发表于 2003-9-13 11:38:23

好深奥呀．．．．

lsjjm · 发表于 2003-9-13 13:01:21

用REGION不是更简单吗?

zzyxhqplay · 发表于 2003-9-13 14:19:00

Region的定义是转换一个对象，该对象将一块区域封闭到面域对象中。
这样还是改变了封闭区域的原有形状或特性

popxi · 发表于 2003-9-13 22:39:15

可以用boundary嘛，既快又方便。

saltyfish · 发表于 2003-9-14 08:54:14

我晕，我想我还是不要再做画图这件事了，没什么将来呀！呵呵

正航 · 发表于 2003-9-15 10:57:34

我就一直用boundary，放在一个独立的图层中，很方便就可以获取面积的

zzyxhqplay · 发表于 2003-9-18 21:52:25

boundary？region？都要改变原始图形

sbb · 发表于 2003-9-19 07:44:12

最初由 zzyxhqplay 发布
[B]boundary？region？都要改变原始图形 [/B]

有什么改变？

lgh04212 · 发表于 2017-6-15 23:20:08

学到一个好命令

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

[LISP程序]：cad中求封闭区域的面积

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

相关帖子