[求助]：已有一个很短而很好的程序，请你帮修改

温柔女神 · 发表于 2005-10-29 10:17:10

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

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

×

我从此网站得到一个网友的计算面积的程序，
我把主要几行写一下：
...
(command "AREA" "E" "L")
(SETQ QAREA(RTOS(GETVAR "AREA")2 2))
(command "text" PT "" "" QAREA)
....
功能:有一个封闭多边形(不管用什么线画),点击里面,自动算出面积并标上。比如,此面积=88，那么就会标上88.00。

现在问题是：我不光要面积，还要加上“S=”，比如面积是88，则标上S=88.00。
兄弟姐妹们，帮忙啊，怎么加代码啊，急用啊

谢谢大家

Underway · 发表于 2005-10-29 11:16:41

(command "AREA" "E" "L")
(SETQ QAREA (RTOS (GETVAR "AREA") 2 2)
QAREA (STRCAT "S=" QAREA) ; add this line
)
(command "text" PT "" "" QAREA)

xyp1964 · 发表于 2005-10-29 14:37:42

[FONT=courier new]
(defun c:test (/ pt en aa)
(while (setq pt (getpoint "\n选取封闭域内一点 : "))
(command "bpoly" pt "")
(setq en (entlast))
(if (/= en nil)
(progn
(command "area" "o" en)
(setq aa (STRCAT "S=" (RTOS (GETVAR "AREA") 2 2)))
)
)
(entdel en)
(command "text" "j" "mc" pt "" "" aa)
)
)[/FONT]

寒光四射 · 发表于 2005-10-29 17:50:38

高手如云啊,斑竹都出招了,
算面积的时候,怎么多了一条封闭线,应该删除
不过,我不知道怎么删除,高手也可以指点一下

gcb998 · 发表于 2005-10-31 00:57:17

选中后按DEL，或E回车!

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

[求助] [求助]：已有一个很短而很好的程序，请你帮修改

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

相关帖子