[求助]：有个小程序，大家来帮我修改一下，好吗

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

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

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

×

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

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

谢谢大家

寒光四射 · 发表于 2005-10-29 17:56:23

你的问题在另外一个LISP开发板块已经解决了,谢谢人家吧

风云 · 发表于 2005-10-30 09:13:17

(SETQ QAREA(RTOS(GETVAR "AREA")2 2))
(setq QAREA (strcat "S=" QAREA))

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

[求助]：有个小程序，大家来帮我修改一下，好吗

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

相关帖子