Solidworks二次開發—09--添加配合參考
2024-07-21 02:16:08
供稿:網友
 
本文來源于網頁設計愛好者web開發社區http://www.html.org.cn收集整理,歡迎訪問。下面的代碼選擇了零件的兩個面,然后為此零件添加一個配合參考,先選擇的面為配合參考的第一參考面。并且是同向、重合配合。第二個為反向、重合配合。
需要看part.featuremanager.insertmatereference函數。第一個參數是配合參考的名稱,后面三個為一組定義一個參考。第一個為選擇的實體entity,然后是配合類型(整數索引),正反向(整數索引)。
dim swapp as sldworks.sldworks
dim part as sldworks.modeldoc2
dim selmgr as sldworks.selectionmgr
dim feature as sldworks.feature
dim facefst as sldworks.face2
dim facesed as sldworks.face2
dim facefstent as sldworks.entity
dim facesedent as sldworks.entity
dim tempfeat as object
sub addcleatmateref()
set swapp = application.sldworks
set part = swapp.activedoc
set selmgr = part.selectionmanager
set tempfeat = selmgr.getselectedobject5(1)
if tempfeat.gettype = 2 then
set facefst = tempfeat
set facefstent = facefst
else
msgbox "請選擇平面"
end if
set tempfeat = selmgr.getselectedobject5(2)
if tempfeat.gettype = 2 then
set facesed = tempfeat
set facesedent = facesed
else
msgbox "請選擇平面"
end if
set feature = part.featuremanager.insertmatereference("配合參考1", facefstent, 2, 1, facesedent, 2, 2, nothing, 0, 0)
end sub