几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量

几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 (http://www.dimcax.com/hust/index.php)
-   ObjectARX(AutoLISP) (http://www.dimcax.com/hust/forumdisplay.php?f=178)
-   -   求一程序:求三角形面积 (http://www.dimcax.com/hust/showthread.php?t=12265)

yang686526 2009-04-27 09:55 AM

求一程序:求三角形面积
 
求一程序:求三角形面积
www.dimcax.com
求一程序:求三角形面积
小弟刚刚开始学lisp,如题,写一段求三角形面积的程序,现在有一些思路,但是一直不能形成于纸上,想让各位高手大大帮忙写一下,也好能让我有个实例观摩研究。。。
d
(defun area3 (a b c) ;;;返回三角形的面积,a、b、c为三边长
(setq s (* (+ a b c) 0.5))
(sqrt (* s (- s a) (- s b) (- s c)))
)
踅摸
d
非常感谢!是我给想复杂了,还不会这个计算工式,刚才baidu了一下,才知道。。。
d
你试下这个程序,看可以不??
通过工具菜单->加载应用程序 可加载该程序,然后可直接在命令行输入相关命令运行。如需要每次启动时均加载该程序,则可以将该文件放在启动组中。
文件预览:
d


所有的时间均为北京时间。 现在的时间是 09:48 AM.