用LISP语言怎么写椭圆周长公式

z394326635 · 发表于 2009-7-9 13:55:00

提示: 作者被禁止或删除内容自动屏蔽

xchrimp · 发表于 2009-7-9 14:01:00

提示: 作者被禁止或删除内容自动屏蔽

xchrimp · 发表于 2009-7-9 14:06:00

提示: 作者被禁止或删除内容自动屏蔽

z394326635 · 发表于 2009-7-9 18:34:00

提示: 作者被禁止或删除内容自动屏蔽

nzl1116 · 发表于 2009-7-9 19:41:00

(defun Fun (A B / modelspace center point Ratio ellipse endParam leng)
(vl-load-com)
(setq modelspace
(vla-get-modelspace
    (vla-get-ActiveDocument
      (vlax-get-acad-object)
    )
)
)
(setq center '(0.0 0.0 0.0)
point (polar center 0.0 A)
Ratio (/ B A)
)
(setq ellipse (vla-addEllipse
    modelspace
    (vlax-3d-point center)
    (vlax-3d-point point)
    Ratio
  )
)
(setq endParam (vlax-curve-getEndParam ellipse))
(setq leng (vlax-curve-getDistAtParam ellipse endParam))
leng
)

nzl1116 · 发表于 2009-7-9 19:54:00

更新：

(defun Fun (A B / modelspace center point Ratio ellipse endParam leng)
(vl-load-com)
(setq modelspace
(vla-get-modelspace
    (vla-get-ActiveDocument
      (vlax-get-acad-object)
    )
)
)
(setq center '(0.0 0.0 0.0)
point (polar center 0.0 A)
Ratio (/ (float B) A)
)
(setq ellipse (vla-addEllipse
    modelspace
    (vlax-3d-point center)
    (vlax-3d-point point)
    Ratio
  )
)
(setq leng (vlax-curve-getDistAtParam ellipse (* pi 2.0)))
(vla-delete ellipse)
leng
)

飞诗(fsxm) · 发表于 2009-7-9 21:10:00

直接计算貌似很难哦!

xchrimp · 发表于 2009-7-10 12:56:00

提示: 作者被禁止或删除内容自动屏蔽

xchrimp · 发表于 2009-7-10 12:58:00

提示: 作者被禁止或删除内容自动屏蔽

highflybir · 发表于 2009-7-10 16:36:00

如果要直接计算，是很麻烦的。
下面的lisp是直接计算椭圆的周长的。

(defun c:EL (/ ent dxf a b c d l)
(setq ent (car (entsel)))
(setq dxf (entget ent))
(setq a (distance (cdr (assoc 11 dxf)) '(0.0 0.0 0.0)))
(setq d (cdr (assoc 40 dxf)))
(setq b (* a d))
(setq c (/ (- 1.0 d) (1+ d)))
(setq L (* Pi
(+ a b)
(+ 1.0
(* c c 0.25)
(* c c c c 0.015625)
(* c c c c c c 0.00390625)
(* c c c c c c c c 0.00152587890625)
)
)
)
(rtos l 2 20)
)

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

z394326635 z394326635 当前离线积分 827 明经币个注册时间 2008-5-2 在线时间小时威望金钱个贡献激情	发表于 2009-7-9 13:55:00 \| 显示全部楼层 \|阅读模式提示: 作者被禁止或删除内容自动屏蔽

	回复使用道具举报置顶卡变色卡显身卡

xchrimp xchrimp 当前离线积分 828 明经币个注册时间 2009-7-3 在线时间小时威望金钱个贡献激情	发表于 2009-7-9 14:01:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

xchrimp xchrimp 当前离线积分 828 明经币个注册时间 2009-7-3 在线时间小时威望金钱个贡献激情	发表于 2009-7-9 14:06:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

z394326635 z394326635 当前离线积分 827 明经币个注册时间 2008-5-2 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2009-7-9 18:34:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

xchrimp xchrimp 当前离线积分 828 明经币个注册时间 2009-7-3 在线时间小时威望金钱个贡献激情	发表于 2009-7-10 12:56:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

xchrimp xchrimp 当前离线积分 828 明经币个注册时间 2009-7-3 在线时间小时威望金钱个贡献激情	发表于 2009-7-10 12:58:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡