【转帖】maco to select all faces
 

maco to select all faces
is there any one have a macro file that select all faces i can't find one. or even a macro that change all the faces colors.
thanks in advance it's urgent
mohamed abdel moniem | mechanical engineer
cswp, cswa, cswp core, cswp-smtl
solidworks 2009 sp3.0
vista x64 sp1.0
intel q6600, 8gb ram
ati hd 4850
3dconnexions spacenavigator
just modify the select all faces on part example (vb) example and change the select function to alter the color instead by using face2::getmaterialpropertyvalues2 and face2::setmaterialpropertyvalues2 respectively. always helps to read the api help file first.
'-----------------
'
' preconditions: part document with a single part is open.
'
' postconditions: all faces on that part are selected.
'
'-----------------
option explicit
sub main()
dim swapp as sldworks.sldworks
dim swmodel as sldworks.modeldoc2
dim swselmgr as sldworks.selectionmgr
dim swseldata as sldworks.selectdata
dim swpart as sldworks.partdoc
dim swbody as sldworks.body2
dim swface as sldworks.face
dim swent as sldworks.entity
dim bret as boolean
dim vbodies as variant
set swapp = createobject("sldworks.application")
set swmodel = swapp.activedoc
set swpart = swmodel
set swselmgr = swmodel.selectionmanager
set swseldata = swselmgr.createselectdata
vbodies = swpart.getbodies2(swallbodies, true)
set swbody = vbodies(0)
set swface = swbody.getfirstface
swmodel.clearselection2 true
do while not swface is nothing
set swent = swface
' select through entity
bret = swent.select4(true, swseldata): debug.assert bret
set swface = swface.getnextface
loop
end sub
luke
thank you for your fast response. i don't know how to do that because i don't know about macro.
it will be good thing if you give me the macro file
thanks
mohamed abdel moniem | mechanical engineer
cswp, cswa, cswp core, cswp-smtl
solidworks 2009 sp3.0
vista x64 sp1.0
intel q6600, 8gb ram
ati hd 4850
3dconnexions spacenavigator
not sure if you figured it out yet but the attached file seems to work good for me.
solidworks 2006,2007,2008,2009 (office premium.)
core 2 duo e6850 @ 3.00 mhz
window xp pro sp3 32 bit
ati firegl v7350
is there any ability to create a macro that gives a part a specific color if i know it's rgb numbers
mohamed abdel moniem | mechanical engineer
cswp, cswa, cswp core, cswp-smtl
solidworks 2009 sp3.0
vista x64 sp1.0
intel q6600, 8gb ram
ati hd 4850
3dconnexions spacenavigator
mohamed,
you can edit the macro posted by ben to change the colour.
feroz mahomed
windows xp professional sp2
sworks 2009 sp2
nvidia quadro fx1500
mohamed,
find attached the macro modified to allow you to input rgb values.
ben,
i presume you wrote this little macro? if so would you mind if i posted the modified macro on a6 repository and quoted you as the original creator? i think some people may find this one useful.
yup go ahead and post it. i can't really remember if i wrote it, just modified it or just downloaded it. it has been a long time ago.
solidworks 2006,2007,2008,2009 (office premium.)
core 2 duo e6850 @ 3.00 mhz
window xp pro sp3 32 bit
ati firegl v7350
i have a macro that resets all face colors. it is part of the vb6 addin project that can be found at
i wrote a macro for trimech a few years ago that removes the color from all faces in the model. with minimal changes you could have it apply a new color.
jeff cope
extensible cad technologies
800.379.0322