求在lisp中椭圆长轴的长度

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

大家好，如何在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

收到了，谢谢@

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