[编程申请]：：誰能幫我做自動標示面積的lisp

skevin1 · 发表于 2002-7-3 14:56:54

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

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

×

在2000i下area能計算面積能有自動在封閉區域計算完後於此區域中央以目前默認字型直接輸出於圖上(xxx m2)嗎當然要含有此圖面比例計算後的實際面積 skevin1@sina.com.cn 不勝感激...............

无忧 · 发表于 2002-7-8 11:02:21

就象Archicad那样的吗？应该不难吧？

XDSoft · 发表于 2002-7-8 11:06:10

最初由 skevin1 发布
[B]在2000i下area能計算面積能有自動在封閉區域計算完後於此區域中央以目前默認字型直接輸出於圖上(xxx m2)嗎當然要含有此圖面比例計算後的實際面積 skevin1@sina.com.cn 不勝感激............... [/B]

搜索论坛，论坛以前给大家写过。晓东工具箱里面也应该有。

skevin1 · 发表于 2002-7-8 20:57:49

找不到有一些只是計算而已並不能自動將結果輸入於圖面中

aqaz · 发表于 2002-7-8 21:27:48

怎么知道区域中央在哪里?

雄啸 · 发表于 2002-7-8 22:23:29

搜索程序库，关键字填写“面积”

aqaz · 发表于 2002-7-8 22:57:13

我只会简单的写法,不知道用不用得上.

不知道怎么样找区域的中心,所以字写在你点的位置,

(defun c:mj ()

  (prompt "\n输入字高：<") (princ (getvar "textsize")) (princ ">")
(setq 输入字高 (getreal))
(if (not 输入字高)
   (setq 字高 (getvar "textsize"))
   (setq 字高输入字高)
  )

  (setq a t)
  (while a
(setq a (getpoint "\n点取封闭区域:"))
(command "-boundary" a "" "yes")
(setq ent (entlast))
(command "area" "o" ent)
(setq mianji (strcat (rtos (getvar "area") 2 4)))
(if (eq ent ent1)
      (alert "点取的区域没有封闭"))
(command "text" a 字高 "0" mianji)
(setq ent1 ent)
(princ)
  )
)

aqaz · 发表于 2002-7-8 23:29:04

我现在没有cad,没法试验,不知道行不行.

skevin1 · 发表于 2002-7-9 11:57:34

感謝啦不過能否小數點後一位就好自動四捨五入然後在數字後加上m2呀

aqaz · 发表于 2002-7-9 12:51:29

(setq mianji (strcat (rtos (getvar "area") 2 4)))
上面最后的4就是小数点后的位数,你可以自己改成别的,5,6...,

aqaz · 发表于 2002-7-9 12:57:11

不记得合并字符窜是怎样写了,试试这个行不行

(setq mianji (strcat (rtos (getvar "area") 2 5) "㎡"))

skevin1 · 发表于 2002-7-9 13:05:47

可以了不過還有一點小小的要求因為做圖是1:100 或1000的所以時計算出來的數字要除乙10 或100 才是m2 area 的數字能再去除以一個固定數嗎

aqaz · 发表于 2002-7-9 13:32:36

(setq mianji (strcat (rtos (/ (getvar "area") 100) 2 5) "㎡"))

要除10就把上面的100换成10,

skevin1 · 发表于 2002-7-9 15:16:28

非常感謝啦

aqaz · 发表于 2002-7-9 19:35:14

不客气,下次你再自立更生在开头加个提示输入比例多少的.反正又不难.

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

[编程申请]：：誰能幫我做自動標示面積的lisp

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

相关帖子

Re: [编程申请]：：誰能幫我做自動標示面積的lisp