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

首頁(yè) > 開(kāi)發(fā) > 綜合 > 正文

solidworks二次開(kāi)發(fā)-03-訪(fǎng)問(wèn)特征數(shù)據(jù)

2024-07-21 02:16:15
字體:
來(lái)源:轉(zhuǎn)載
供稿:網(wǎng)友
solidworks二次開(kāi)發(fā)-03-訪(fǎng)問(wèn)特征數(shù)據(jù)
'coder arden
'filename : getchoosed.swp
'date  :2005-03-22
'used to get the simple hole infomation dep & dia
'finished lucky !!
'------------------------------------------------------------

option explicit
dim swapp as sldworks.sldworks
dim model as modeldoc2
dim curfeature as feature
dim boolstatus as boolean
dim featdata as simpleholefeaturedata2   '聲明一個(gè)簡(jiǎn)單直孔對(duì)象
dim component as component2                
dim dep as double
dim dia as double
dim selmgr as selectionmgr
dim ncount as integer

 

sub getselected()

set swapp = application.sldworks

set model = swapp.activedoc

set selmgr = model.selectionmanager

set curfeature = selmgr.getselectedobject5(1)  '得到當(dāng)前選中的第一個(gè)特征

    msgbox curfeature.name
   
set featdata = curfeature.getdefinition '得到特征的定義

boolstatus = featdata.accessselections(model, component) ' 可以對(duì)數(shù)據(jù)進(jìn)行訪(fǎng)問(wèn)了

ncount = featdata.getfeaturescopebodiescount        

msgbox ncount


dep = featdata.depth    
dia = featdata.diameter

msgbox dia & "*" & dep

'msgbox "error arden"    '在solidworks中可以使用swapp.sendmsgtouser2
'featdata.releaseselectionaccess
model.save
model.editrebuild
end sub

**********************************************

上面程序運(yùn)行前,假設(shè)你選擇了一個(gè)簡(jiǎn)單直孔特征。然后得到這個(gè)孔德一些參數(shù)。

孔深、直徑等。

solidworks的api雖然是e文的。介紹的還算詳細(xì),并且有很多的example。大家可以多看看代碼。

要訪(fǎng)問(wèn)一個(gè)特征,需要經(jīng)歷這樣的步驟:

定義一個(gè)特征對(duì)象: dim....as ...

得到這個(gè)特征 :比如使用getselectedobject5 還有selectebyid等...

得到定義:getdefinition

進(jìn)行訪(fǎng)問(wèn):accessselections

上面的程序沒(méi)有if選擇的容錯(cuò)機(jī)制,需要添加上。

發(fā)表評(píng)論 共有條評(píng)論
用戶(hù)名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板: 那曲县| 佛冈县| 汉阴县| 龙口市| 定南县| 永清县| 南昌市| 秦皇岛市| 遂昌县| 莱西市| 南通市| 延吉市| 安仁县| 册亨县| 周口市| 布尔津县| 崇礼县| 德阳市| 曲阳县| 政和县| 西乡县| 山西省| 合阳县| 石家庄市| 集贤县| 开原市| 盘山县| 拉孜县| 赫章县| 辰溪县| 新郑市| 高青县| 麻栗坡县| 思南县| 拜城县| 郑州市| 高安市| 丹巴县| 万盛区| 西畴县| 宁明县|