国产探花免费观看_亚洲丰满少妇自慰呻吟_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
    發表評論 共有條評論
    用戶名: 密碼:
    驗證碼: 匿名發表
    主站蜘蛛池模板: 岚皋县| 萍乡市| 江阴市| 黄大仙区| 隆化县| 贵州省| 枝江市| 左贡县| 西藏| 滨海县| 合山市| 平利县| 灵璧县| 苍梧县| 霍邱县| 崇明县| 藁城市| 闻喜县| 玉环县| 天台县| 鹤峰县| 阿克| 建水县| 那曲县| 冷水江市| 克什克腾旗| 昌邑市| 门头沟区| 哈尔滨市| 上杭县| 江油市| 白河县| 东至县| 泸水县| 墨竹工卡县| 商都县| 务川| 藁城市| 通榆县| 湟源县| 维西|