大家好，下面一段代碼中紅色一句有錯誤，請指正，謝謝！
Variant swApp,part;
String Name=ExtractFilePath(Application->ExeName)+"1.SLDPRT";
swApp=Variant::CreateObject("SldWorks.Application");
swApp.OlePropertySet("Visible",true);
part=swApp.OleFunction("OpenDoc",Name.c_str(),1);
(part.OleFunction("Parameter","D1@草圖1")).OlePropertySet("SystemValue",0.2);
(part.OleFunction("Parameter","切除-拉伸1")).OleFunction("EditDelete");
part.OleFunction("EditRebuild3");
我用錄制了一下SolidWors自帶的宏，如下：
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Sub main()
Set swApp = _
Application.SldWorks
Set Part = swApp.ActiveDoc
Dim myModelView As Object
Set myModelView = Part.ActiveView
myModelView.FrameState = swWindowState_e.swWindowMaximized
boolstatus = Part.Extension.SelectByID2("切除-拉伸1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
Part.EditDelete
boolstatus = Part.EditRebuild3()
End Sub
但依舊不知道怎么改，求幫助。
uj5u.com熱心網友回復：
"切除-拉伸1"是不是這種命令的錯誤啊？uj5u.com熱心網友回復：
我似乎又明白了一些
VB中 boolstatus = Part.Extension.SelectByID2("切除-拉伸1", "BODYFEATURE", 0, 0, 0, False, 0, Nothing, 0)
是用這句選中"切除-拉伸1"這個特征，再用EditDelete這個進行洗掉。
而我的問題是在BCB中怎么樣才能選中"切除-拉伸1"這個特征？
之后再用part.OleFunction("EditDelete")就可以了;
uj5u.com熱心網友回復：
妖哥在哪里？
妖哥在哪里？
妖哥到底在哪里？
uj5u.com熱心網友回復：
有請OLE專業戶 妖哥.....uj5u.com熱心網友回復：
沉入海底了uj5u.com熱心網友回復：
這個不是老妖不回你，而是要回復你，就需要裝這個軟體測驗，6-7個G太大太麻煩。這里你的問題你自己也比較清晰，還是需要你自己摸索一下。關鍵就是要怎么選定“切除-拉伸1”(part.OleFunction("Parameter","切除-拉伸1")).OleFunction("EditDelete");--》猜測你應該用這個方法“SelectByID2”就是類似于 (part.OleFunction("SelectByID2","切除-拉伸1")).OleFunction("EditDelete");這樣的，SelectByID2這個后面的引數要參照你錄制的那段腳本。
uj5u.com熱心網友回復：
哎，BCB的學習資料實在是太少了，我還是繞開這種方式吧，我決定用編程VB，封裝成DLL，再用C++ builder 呼叫吧。
uj5u.com熱心網友回復：
大家誰有Visual Basic 6.0的安裝包，給發一份，謝謝了！郵箱[email protected]
uj5u.com熱心網友回復：
你這個用VB做還是用BC做其實一樣的，你都是通過OLE呼叫的，都要解決對應的呼叫函式和引數問題。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/108663.html
標籤：基礎類
上一篇：關于C++參考的一個問題
下一篇：這幾個錯誤怎么也找不出來