求助：点击矩形，列出公式

fanqinwei · 发表于 2013-10-10 21:25

本帖最后由 fanqinwei 于 2013-10-16 22:36 编辑

各位：如何用LISP程序做到点击矩形后，在指定位置用列出矩形面积公式，
例如：点击矩形后，列出长×宽
如果点多个矩形，用加号连接长×宽
谢谢了。

(defun c:DQ（/A B C ）
(SETVAR "OSMODE" 1) ;打开捕捉
(SETQ A (GETPOINT "/N点取基点:"))
(SETQ B (GETDIST A "拾取点: "))
(SETQ C (GETDIST A "拾取点: "))
(SETQ B (rtos B 2 2))
(SETQ C (rtos C 2 2))
接下来，如何将式子B×C写在图形中间？

fanqinwei · 发表于 2013-10-16 22:42

请高手们看一下，完成这段代码？

fanqinwei · 发表于 2013-10-17 12:09

http://bbs.mjtd.com/thread-92772-2-1.html

楚留香 · 发表于 2013-10-17 22:35

数值转换字符串，然后字符串连接！知道我在说什么你就会了！不知道多看参考书！这个不难的！

Atsai · 发表于 2013-11-26 16:27

本帖最后由 Atsai 于 2022-6-24 16:07 编辑

楼主想要的是类似这样的功能吧！
指令：bmz

flytoday · 发表于 2014-1-2 19:12

本帖最后由 flytoday 于 2014-1-2 19:20 编辑

楼上这个这个强大。。不知道有没源码~~~~可公布~~~~~

flytoday · 发表于 2014-1-2 20:21

Atsai 发表于 2013-11-26 16:27
楼主想要的是类似这样的功能吧！
指令：bmz

大侠这个三角形的计算式咋不是底*高/2呢。。。你那样怎么解释啊。。。

Atsai · 发表于 2014-1-2 22:24

本帖最后由 Atsai 于 2022-6-24 16:07 编辑

三角形的計算是利用海龍公式(Heron's formula)計算的，
相關的說明，可以上網找一下就有了。
S=(a+b+c)/2
Area=sqrt(s*(s-a)*(s-b)*(s-c))
纯粹是为了达到网上需求者功能而写的，所以可能跟相关行业的表达习惯不同。
里面是繁中的版本，所以简体可能显示不正常。

fanqinwei · 发表于 2014-5-29 20:41

我的是手动一个个来，你的程序太好了

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

求助：点击矩形，列出公式

相关帖子

本帖子中包含更多资源

评分