再贴画椭圆的SKILL(原码)

RichardLC

看到老有人不停地问如何画椭圆（类似椭圆），画椭圆真的那么困难吗？再次重贴一个画椭圆的SKILL程序（源代码）

拷贝释放到一个目录下，load, cot即可

这是我好久以前的程序了（肯定不近人意），里面是简单的实例，大家可以融会贯通方便生成其他SHAPE， 逻辑功能用的是“与非”ANDNOT。

RichardLC

...

shapeid=axlDBCreateShape(path t)

o_poly = axlPolyFromDB(car(shapeid))

axlDeleteObject(car(shapeid))

i_poly=axlPolyExpand(o_poly -w 'NONE)

shapeid=axlDBCreateRectangle(list(p1 p2) t)

i_poly=append(i_poly axlPolyFromDB(car(shapeid)))

axlDeleteObject(car(shapeid))

shapeid=axlDBCreateRectangle(list(p3 p4) t)

i_poly = append(i_poly axlPolyFromDB(car(shapeid)))

axlDeleteObject(car(shapeid))

f_poly = axlPolyOperation(o_poly i_poly 'ANDNOT)

foreach(onepoly f_poly axlDBCreateShape(onepoly t))

axlWindowFit()

...

RichardLC

:

[此贴子已经被作者于2005-12-28 5:06:13编辑过]

shihuzhen

收藏！谢谢~~

dzkcool

嗯，很不错，楼主搞了多久的skill呀？？

billyhuang

多谢楼主啊！！！真是好人！

jacksonluo

多谢楼主,小弟新手,请问您提供的源代码适用于那个CAM软件呀?烦请告知,小弟在此先谢了.

RichardLC

shihuzhen & billyhuang 客气了，用不着收藏，希望你拿来用或篡改成其他东东来玩玩就行了[em44]。

dzkcool: 最早见你是在51EDA里面(很久以前了)，你那个大美女的ICON很漂漂哦[em31] 。我两年多前开始接触Allegro，不过说是玩Allegro，其实有一半以上的工作时间在弄其他（uip + Windows' Driver & Service），Skill是自己看帮助边学边用的（我从不主动学习，只是想偷懒的时候就去看看有什么简便的方法啦[em04]）。其实Skill只是一种类Lisp语言罢了，相对于MFC/ATL来讲还是没有那么费劲吧（当然我这里仅仅对PCB-LAYOUT，不提其他的功能）。

jacksonluo不用谢，这里是ALLEGRO的BBS区，所以那个文档是给ALLEGRO－PCB EDITOR用的（是CAD部分而不是CAM），你在找CAM软件吗?

姚澜

很有必要学一下啊

qigns

不错 好好学习下÷·

[em05]