[求助]求椭圆逼近程序

sirius · 发表于 2008-5-6 22:08:00

求一个椭圆逼近程序，用直线拟合椭圆，输出一个含有数控G代码直线命令G01的文档，能输出精度越高越好了 ^_^

能做出来的帮一下忙吧鞠躬感谢

ZZXXQQ · 发表于 2008-5-7 08:24:00

为何用直线？圆弧行吗？

只要将系统变量PELLIPSE设成1，再画椭圆就能得到由16段圆弧组成的椭圆。

sirius · 发表于 2008-5-7 19:41:00

要求是用直线以较高精度逼近椭圆，不让用圆弧啊，加工时精度没有直线逼近高吧求高人帮忙~~~

danxingpen · 发表于 2008-5-8 13:59:00

不知道什么是输出一个含有数控G代码直线命令G01的文档.
得到模拟的顶点倒是简单.
你想用多少个顶点就直接循环获得就可以了,
(vlax-curve-getpointAtParam ellipseent 0到6.28(步进参数))

ljttjl · 发表于 2008-5-8 17:51:00

本帖最后由作者于 2008-5-8 17:59:55 编辑

我这有个将曲线转换成多段线的程序，而且可以任意设置吻合精度。联系:ljttjl@ tom.com

以下为部分源码：

(defun c:xgqx ()
(setq bl (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq bl1 (getvar "osmode"))
(setvar "osmode" 16384)

(vl-load-com)
(setq a (car (entsel "\n请选择要修改的对象!")))

.....

(setq i (getreal "\n请输入线段间隔值："))
(setq i1 i)
(command ".pline" qd)
(while (< i1 qc)

......

(setq i1 (+ i1 i))
)
(command zd "")

(setvar "cmdecho" bl)
(setvar "osmode" bl1)
(princ "\n修改已完成，请查看！")
(princ)
)

sailorcwx · 发表于 2008-5-8 20:39:00

楼上的好牛啊，前面一大堆，后面一大堆，最重要的计算点的部分却省略了

ZZXXQQ · 发表于 2008-5-8 23:23:00

本帖最后由作者于 2008-5-13 9:39:31 编辑

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

wszxf · 发表于 2008-5-9 09:45:00

后面那位高手的东西看不到。顶出来

sirius · 发表于 2008-5-12 20:35:00

谢谢7楼ZZXXQQ高人的帮助

可是这个程序输出的nc文件是空的？

另外模拟的直线需要是等间距的，7楼的程序是等角度的？

能否再帮忙修改一下鞠躬感谢！

ZZXXQQ · 发表于 2008-5-13 09:43:00

文件未关闭。7楼已改。等间距误差大些。

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