几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量  


返回   几何尺寸与公差论坛------致力于产品几何量公差标准GD&T (GDT:ASME)|New GPS(ISO)研究/CAD设计/CAM加工/CMM测量 » 仿射空间:CAX软件开发(三)二次开发与程序设计 » CAD二次开发 » SolidWorks二次开发
用户名
密码
注册 帮助 会员 日历 银行 搜索 今日新帖 标记论坛为已读


回复
 
主题工具 搜索本主题 显示模式
旧 2009-04-13, 12:34 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 【转帖】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
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)
回复


主题工具 搜索本主题
搜索本主题:

高级搜索
显示模式

发帖规则
不可以发表新主题
不可以回复主题
不可以上传附件
不可以编辑您的帖子

vB 代码开启
[IMG]代码开启
HTML代码关闭

相似的主题
主题 主题发起者 论坛 回复 最后发表
【转帖】how to get the name of the reference plane yang686526 SolidWorks二次开发 0 2009-04-13 11:58 AM
【转帖】how can i do to select a componen yang686526 SolidWorks二次开发 0 2009-04-12 09:07 PM
【转帖】inserting and mating parts in an assembly yang686526 SolidWorks二次开发 0 2009-04-12 06:43 PM


所有的时间均为北京时间。 现在的时间是 10:18 PM.


于2004年创办,几何尺寸与公差论坛"致力于产品几何量公差标准GD&T | GPS研究/CAD设计/CAM加工/CMM测量"。免责声明:论坛严禁发布色情反动言论及有关违反国家法律法规内容!情节严重者提供其IP,并配合相关部门进行严厉查处,若內容有涉及侵权,请立即联系我们QQ:44671734。注:此论坛须管理员验证方可发帖。
沪ICP备06057009号-2
更多