[LISP程序]：计算面积并显示

cxg121 · 发表于 2006-8-24 08:00:06

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

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

×

如何做到在二维多段线围成的图形内部点击后，搜索该范围并计算显示面积？

jinsong-liao · 发表于 2006-8-24 08:01:29

搜索一下，论坛里面很多的。

youfengliu · 发表于 2006-8-24 13:18:29

我好想学，不过太复杂啦。

xyz518mm · 发表于 2006-8-25 06:52:29

看看這貼吧
http://p4.xdcad.net/forum/showthread.php?s=&threadid=525225
各类面积查询

ccfhq · 发表于 2006-8-25 16:53:32

谢谢

54256 · 发表于 2006-8-26 11:57:44

cxg121 · 发表于 2006-8-26 16:57:57

问题还是解决不了啊！

rainlighter · 发表于 2007-2-14 22:23:21

好像是哪个软件就有这个功能！
我也不记得了！

blues5218 · 发表于 2007-2-14 22:44:51

最好是能输入材料密度和厚度直接能算出重量的

TLHMQH · 发表于 2007-2-15 07:37:07

求公顷的

adadeep · 发表于 2007-7-19 05:05:15

我想要这个，要几个几分

它山之石 · 发表于 2007-7-19 08:44:47

直接用命令不能查吗？

真龙天子 · 发表于 2007-7-27 10:17:44

;;;;;;;;量多段线封闭区域面积
(defun c:mj ()
(setq os (getvar "osmode"))
(setq cmd (getvar "cmdecho"))
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(command "_ucs" "w")
(command "-style" "5" "宋体" 5 1 0 "n" "n") ;设置字体样式
(command "-style" "3" "宋体" 3 1 0 "n" "n") ;设置字体样式
(setq p1 (getpoint "\n请在封闭区域内点一下:"))
(setq p2 (getpoint "\n请确定要放置的位置:"))
(command "-boundary" p1 "")
(setq bj (entlast))
(command "area" "object" bj)
(entdel bj)
(setq mj (rtos (getvar "area") 2 0))
(setq area1 (strcat mj "m"))
(setq x (car p2) y (cadr p2))
(command"-text" "s" "5" "j" "r" p2 0 area1)
(command"-text" "s" "3" "j" "bl" (list (+ x 0) (+ y 2)) 0 "2")
(setvar "osmode" os)
(setvar "cmdecho" cmd)
(command "_ucs" "p")
(princ)
)

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

[LISP程序]：计算面积并显示

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

相关帖子