国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 開發 > 綜合 > 正文

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
    發表評論 共有條評論
    用戶名: 密碼:
    驗證碼: 匿名發表
    主站蜘蛛池模板: 会同县| 革吉县| 铜梁县| 林甸县| 桐柏县| 徐汇区| 海晏县| 旌德县| 杭锦旗| 马龙县| 台中县| 丹巴县| 华阴市| 贺兰县| 普定县| 盐津县| 大理市| 黄大仙区| 房山区| 佛学| 泸定县| 抚远县| 云南省| 瑞昌市| 台东市| 紫金县| 靖宇县| 海林市| 新余市| 舒城县| 屏山县| 家居| 辽阳市| 河南省| 诸城市| 舞钢市| 芜湖市| 高州市| 含山县| 昂仁县| 兴安县|