【分享源代碼】复位Assembly Refdes 到零件中心

zqy610710 · 发表于 2016-3-1 08:48

谢谢楼主分享

liujie123 · 发表于 2016-3-1 08:50

谢谢分享！

liujie123 · 发表于 2016-3-1 09:30

我把fMAR.il文件放在pcbenv路径下，然后在allegro.ilinit里加上load(fMAR.il)
为什么我在PCB中执行mar 提示：E- Command not found: mar
是哪里搞错了吗？

XYX365 · 发表于 2016-3-3 08:00

liujie123 发表于 2016-3-1 09:30
我把fMAR.il文件放在pcbenv路径下，然后在allegro.ilinit里加上load(fMAR.il)
为什么我在PCB中执行mar 提 ...

應該是在allegro.ilinit裡面加入 load("fMAR.il")
是我說明裡面寫錯.

skill_rc · 发表于 2016-4-14 14:37

谢谢分享！

TobyTao_Zhang · 发表于 2016-4-15 15:04

为什么我试了不行啊，我用的16.3

361553894 · 发表于 2016-4-25 14:24

本帖最后由 361553894 于 2016-4-25 14:30 编辑

procedure(SymCenter(@optional (sym nil))
prog( (pins Xs Ys X Y)
when(stringp(sym) sym = car(axlSelectByName("REFDES" sym)))
unless(sym
  axlSetFindFilter(?enabled '("all") ?onButtons '("noall" "symbols"))
  sym = car(axlGetSelSet(axlSingleSelectPoint()))
)
unless(sym return(nil))
pins = sym->pins
Xs = nil, Ys = nil
foreach(pin pins
  Xs = append1(Xs car(pin->xy))
  Ys = append1(Ys cadr(pin->xy))
)
Xs = unique(Xs), Ys = unique(Ys)
X = 0.0, Y = 0.0
foreach(x Xs
  X = X + x
)
X = X / length(Xs)
foreach(y Ys
  Y = Y + y
)
Y = Y / length(Ys)
return(list(X,Y))
))
这是我写的获取零件中心的Skill

carrie_wg · 发表于 2016-4-26 14:34

感謝分享~學習一下~

76213665 · 发表于 2016-5-5 09:35

非常感謝樓主無私分享太感謝了

hayatokoc · 发表于 2016-7-3 18:55

非常感謝樓主無私分享 ,感謝

wu55 · 发表于 2016-7-7 14:56

Thanks

王开鑫55 · 发表于 2017-2-6 16:50

测量发现，place_bound_top与ref的中线点没有重合呢，会有偏移

lovesweet33 · 发表于 2017-2-6 19:06

谢谢楼主分享

carol8688 · 发表于 2017-2-20 10:58

謝謝分享

amy4616 · 发表于 2017-5-31 17:16

感謝樓主分享!!

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

【分享源代碼】复位Assembly Refdes 到零件中心

点评

本帖子中包含更多资源

推荐内容 /1