您的位置：程序门 -> vb -> vba

请问前辈们sw二次开发装配体中替换零件的代码为何不对？小女子初学solidworks二次开发，忘前辈们不吝赐教。

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

请问前辈们sw二次开发装配体中替换零件的代码为何不对？小女子初学solidworks二次开发，忘前辈们不吝赐教。

发表于：2008-01-18 21:21:01 楼主

小女子初学solidworks二次开发，忘前辈们不吝赐教。
dim swapp as object
dim part as object
dim boolstatus as boolean
dim longstatus as long, longwarnings as long
dim featuredata as object
dim feature as object
dim component as object

sub main（)
set swapp = createobject（"sldworks.application")
set part = swapp.activedoc
swapp.activedoc.activeview.framestate = 1
boolstatus = part.extension.selectbyid（"起升机构 5吨（m5)-1@小车5t", "component", 0, 0, 0, false, 0, nothing)
part.clearselection2 true
part.clearselection2 true
boolstatus = part.extension.selectbyid（"起升机构 5吨（m5)-1@小车5t", "component", 0, 0, 0, false, 0, nothing)
part.clearselection2 true
part.replacecomponents "d:\solidworks三维图\起升机构\起升机构 5吨（m6).sldasm", "", true, true
end sub

发表于：2008-01-19 21:23:341楼得分:0

自己解决了，不过还是谢谢看我帖子的前辈们。

下一篇：苍天呀大地呀,如何才能使用户输入有效化呀!!!???
上一篇：请问在vb中如何调用word的拼写功能（不用vba）

其他资讯