uditx 发表于 2012-3-18 22:50:37

求在lisp中椭圆长轴的长度

大家好，如何在lisp中求椭圆长轴的长度呀 帮小弟一把呀 不胜感激！

VBALISPER 发表于 2012-3-19 15:15:25

(11 -171.483 -140.988 0.0)求组码11.将后面两数,按求直角三角形斜边长的办法.两数平方和再开方.再乘以2,得到长轴长度

uditx 发表于 2012-3-19 20:56:16

好的，知道了，谢谢了

namezg 发表于 2012-3-19 21:25:19

(defun c:test (/ en en_dxf ldist)
(setq en (car (entsel "\n请选择一个椭圆: ")))
(setq en_dxf (entget en))
(setq ldist (* (distance '(0 0 0) (cdr (assoc 11 en_dxf))) 2))
(princ (strcat "\n椭圆的长轴长度为: " (rtos ldist 2 3)))
)

uditx 发表于 2012-3-19 21:37:59

收到了，谢谢@
页: [1]
查看完整版本: 求在lisp中椭圆长轴的长度