十年網(wǎng)站開(kāi)發(fā)經(jīng)驗(yàn) + 多家企業(yè)客戶 + 靠譜的建站團(tuán)隊(duì)
量身定制 + 運(yùn)營(yíng)維護(hù)+專業(yè)推廣+無(wú)憂售后,網(wǎng)站問(wèn)題一站解決
1、首先通過(guò)引用相應(yīng)的庫(kù)文件,啟動(dòng)Catia軟件。
目前成都創(chuàng)新互聯(lián)公司已為近千家的企業(yè)提供了網(wǎng)站建設(shè)、域名、網(wǎng)頁(yè)空間、網(wǎng)站改版維護(hù)、企業(yè)網(wǎng)站設(shè)計(jì)、六合網(wǎng)站維護(hù)等服務(wù),公司將堅(jiān)持客戶導(dǎo)向、應(yīng)用為本的策略,正道將秉承"和諧、參與、激情"的文化,與客戶和合作伙伴齊心協(xié)力一起成長(zhǎng),共同發(fā)展。
2、其次在相應(yīng)草圖平面用VB代碼創(chuàng)建草圖,根據(jù)節(jié)距數(shù)計(jì)算模型旋轉(zhuǎn)角度可創(chuàng)建輪胎實(shí)體模型。
3、最后采用開(kāi)槽方法生成可獲取catia中各節(jié)點(diǎn)的狀態(tài)。
首先,你要得到當(dāng)前文檔的SPAWorkbench對(duì)象.
代碼如下:
Dim TheSPAWorkbench As Workbench
Set TheSPAWorkbench = CATIA.ActiveDocument.GetWorkbench ( "SPAWorkbench" )
然后,你要得到Measurable對(duì)象.
代碼如下:
Dim TheMeasurable As Measurable
Set TheMeasurable = TheSPAWorkbench.GetMeasurable(referenceObject)
其中 referenceObject就是你要測(cè)量的直線的reference.
最后,有了Measurable以后,你就可以使用這個(gè)對(duì)象得到只想的長(zhǎng)度了.
代碼如下:
Dim ALength As double
ALength = TheMeasurable.Length
這個(gè)問(wèn)題很簡(jiǎn)單,盜版的原因,你試過(guò)不同版本的盜版可能就可以用了,我以前用一個(gè)齒輪的宏就出現(xiàn)了這種問(wèn)題,后來(lái)我用別人的CATIA就能用,而我的卻不能用
你可以用VB.NET中內(nèi)建的Shell函數(shù)或調(diào)用System.Diagnostics命名空間中Process類的Start靜態(tài)方法來(lái)運(yùn)行。將可執(zhí)行文件的路徑和運(yùn)行參數(shù)以字符串型傳送給方法的參數(shù)即可。
另:用Chr(34)代替英文的單引號(hào),沒(méi)有前后之分。