几何尺寸与公差论坛

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

【转帖】delete sketch

[复制链接]
发表于 2009-4-13 10:15:49 | 显示全部楼层 |阅读模式
delete sketch
just searched over the aip help and could not find the info. of how to delete a part's sketch?
thx, chris
solidworks 2007 (office pro.) sp5.0
testing solidworks 2009 (pro) sp0.0
dell precision t3400
2 cpu (8500) 3.16 ghz, 3.25 gb of ram
window xp pro sp2
nvidia fx 570 6.14.11.6262
you have to get the sketch feature, then you can delete.
check out the "delete selected feature example" in the api help. the catch is that you must have the sketch feature selected before you use modeldocextension.deleteselection2.
mike spens
mike spens
"automating solidworks using macros"
leap frog leap pad x64
thx, mike
what i want to do here is to delete an unwated sketch, not feature
is there a way to delete a sketch (recognized by its name)
chris
solidworks 2007 (office pro.) sp5.0
testing solidworks 2009 (pro) sp0.0
dell precision t3400
2 cpu (8500) 3.16 ghz, 3.25 gb of ram
window xp pro sp2
nvidia fx 570 6.14.11.6262
hi chris,
a sketch is essentially a feature (have a look at the swselecttype_e for more info)
of the part (document it can be an assembly) that it belongs to.
find below a macro that will delete a sketch named "sketch1" from a part
cheers,
--stav.
option explicit
dim swapp as sldworks.sldworks
dim modeldoc as sldworks.modeldoc2
dim partdoc as sldworks.partdoc
dim feat as sldworks.feature
dim boolstatus as boolean
sub main()
set swapp = application.sldworks
set modeldoc = swapp.activedoc
set partdoc = modeldoc
set feat = partdoc.featurebyname("sketch1")
boolstatus = feat.select2(false, 0)
modeldoc.editdelete
end sub
in this world i am nobody...
and nobody is perfect ;) !!!
---------
solidworks office 2008 sp4.0
dell precision pws390
nvidia quadro fx 3450/4000 sdi
edited: 06/26/2008 at 04:20 am by stavros antoniou
thanks, stavros
it works like a charm;
and i add some lines for the assembly
please see the att. code
chris
dim swapp as sldworks.sldworks
dim modeldoc as sldworks.modeldoc2
dim partdoc as sldworks.partdoc
dim assemblydoc as sldworks.assemblydoc
dim feat as sldworks.feature
dim boolstatus as boolean
sub main()
on error resume next
set swapp = createobject("sldworks.application")
set modeldoc = swapp.activedoc
set partdoc = modeldoc
if modeldoc.gettype = swdocassembly then set assemblydoc = modeldoc
set feat = partdoc.featurebyname("cog")
if modeldoc.gettype = swdocassembly then set feat = assemblydoc.featurebyname("cog")
boolstatus = feat.select2(false, 0)
modeldoc.editdelete
solidworks 2007 (office pro.) sp5.0
testing solidworks 2009 (pro) sp0.0
dell precision t3400
2 cpu (8500) 3.16 ghz, 3.25 gb of ram
window xp pro sp2
nvidia fx 570 6.14.11.6262
edited: 06/26/2008 at 10:54 am by chris ch
you are very welcome.
--stav.
in this world i am nobody...
and nobody is perfect ;) !!!
---------
solidworks office 2008 sp4.0
dell precision pws390
nvidia quadro fx 3450/4000 sdi
quick
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-12-24 09:49 , Processed in 0.036351 second(s), 19 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2023 Discuz! Team.

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