几何尺寸与公差论坛

 找回密码
 注册
查看: 887|回复: 0

【转帖】inserting bom in an specified layer

[复制链接]
发表于 2009-4-13 12:19:12 | 显示全部楼层 |阅读模式
inserting bom in an specified layer
for drawings send to our customers we need different languages. we have a batch plot wich toggles on and off the different layers (languages=layer). the last step is to insert every bom in a different layer (6 in total), manualy it works fine. but we need to place 6 bom's manualy.
i started to write on an vb code to place te bom's automaticcaly. but i can't find out a way to change the bom-layer.
toggleing layer visibility on and off, works fine, but placing a bom in a specified layer won't work.
option explicit
dim swapp as sldworks.sldworks
dim swmodel as sldworks.modeldoc2
dim swselmgr as sldworks.selectionmgr
dim swfeatmgr as sldworks.featuremanager
dim swview as sldworks.view
dim swbomann as bomtableannotation
dim swbomfeat as sldworks.bomfeature
dim swlayermgr as sldworks.layermgr
dim anchortype as long
dim bomtype as long
dim configuration as string
dim tabletemplate as string
dim names as variant
dim visible as variant
dim boolstatus as boolean
sub main()
set swapp = application.sldworks
set swmodel = swapp.activedoc
set swselmgr = swmodel.selectionmanager
set swfeatmgr = swmodel.featuremanager
set swlayermgr = swmodel.getlayermanager
' select view
set swview = swselmgr.getselectedobject6(1, 0)
anchortype = swconst.swbomconfigurationanchortype_e.swbomconfigurationanchor_bottomright
bomtype = swconst.swbomtype_e.swbomtype_toplevelonly
configuration = ""
tabletemplate = "h:\solidworks\templates\bom templates\vertaling bom ass\ned ass temp.sldbomtbt"
' insert bom table
set swbomann = swview.insertbomtable2(true, 0.4, 0.3, anchortype, bomtype, configuration, tabletemplate)
swmodel.clearselection2 true
' because bom type is swbomtype_toplevelonly, then work with bomfeature to get and set configurations
set swbomfeat = swbomann.bomfeature
names = swbomfeat.getconfigurations(false, visible)
visible(0) = true
boolstatus = swbomfeat.setconfigurations(true, visible, names)
'update featuremanager design tree
swfeatmgr.updatefeaturetree
end sub
jo, this is what i would use to set the layer for bom table:
swbomann.getannotation.layer = "layername"
insert it directly after the "set swbomann =" line and see if it works for you!
to defeat the wheat, go against the grain.
tom, thx.
this was the part i couldn't find. tryed it out this morning, and it works almost fine. just need a bit of finetuning.
option explicit
dim swapp as sldworks.sldworks
dim swmodel as sldworks.modeldoc2
dim swselmgr as sldworks.selectionmgr
dim swfeatmgr as sldworks.featuremanager
dim swview as sldworks.view
dim swbomann as bomtableannotation
dim swbomfeat as sldworks.bomfeature
dim swlayermgr as sldworks.layermgr
dim anchortype as long
dim bomtype as long
dim configuration as string
dim tabletemplate as string
dim names as variant
dim visible as variant
dim boolstatus as boolean
sub main()
set swapp = application.sldworks
set swmodel = swapp.activedoc
set swselmgr = swmodel.selectionmanager
set swfeatmgr = swmodel.featuremanager
set swlayermgr = swmodel.getlayermanager
' select view
set swview = swselmgr.getselectedobject6(1, 0)
anchortype = swconst.swbomconfigurationanchortype_e.swbomconfigurationanchor_bottomright
bomtype = swconst.swbomtype_e.swbomtype_toplevelonly
configuration = ""
tabletemplate = "h:\solidworks\templates\bom templates\vertaling bom ass\ned ass temp.sldbomtbt"
' insert bom table
set swbomann = swview.insertbomtable2(true, 0.4, 0.3, anchortype, bomtype, configuration, tabletemplate)
swmodel.clearselection2 true
swbomann.getannotation.layer = "layer-ned"
quick
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|小黑屋|几何尺寸与公差论坛

GMT+8, 2024-12-23 18:44 , Processed in 0.035053 second(s), 19 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2023 Discuz! Team.

快速回复 返回顶部 返回列表