我們在設(shè)計原理圖或者查看原理圖時，經(jīng)常需要到網(wǎng)站上搜索某個元器件的相關(guān)資料，看能否找到規(guī)格書來查看。每次都要打開相關(guān)網(wǎng)站，輸入關(guān)鍵詞去搜索，這樣的重復(fù)操作效率不是很高。有沒有辦法在原理圖上，選中某個元器件，下一步就已經(jīng)在網(wǎng)站上搜索了這個元器件的關(guān)鍵詞，并找出了相關(guān)網(wǎng)頁來。答案是有的，就是編寫一個腳本，選中某個元器件，運行腳本就能實現(xiàn)這個功能。下面介紹一下這個方法。 首先，打開原理圖的腳本編輯器，編寫以下代碼。 參考代碼： Sub?Main Begin?Dialog?UserDialog?260,140,"Select?a?Web?",.CallbackFunc?'?%GRID:10,7,1,1 Text?50,84,170,14,"",.Text1 OKButton?40,112,90,21,.OK CancelButton?140,112,90,21? OptionGroup?.Manufacturer OptionButton?60,14,140,14,"baidu",.OptionButton1 OptionButton?60,35,90,14,"szlcsc",.OptionButton2 OptionButton?60,56,90,14,"taobao",.OptionButton3 End?Dialog Dim?dlg?As?UserDialog Dim?attrs?As?Attributes If?Dialog(dlg)?=?-1?Then?'OK?was?pressed Set?objs?=?ActiveDocument.GetObjects(plogObjectTypeComponent,?"",?True) For?Each?part?In?objs Set?attrs?=?part.Attributes compName?=?attrs("Value") Next?part 'compName?=?objs.Item(1).AttrVal(part,?"Description") Set?ie?=?CreateObject("InternetExplorer.Application") 'compName?=?objs.Item(1).AttrVal(part,?"Description") Set?ie?=?CreateObject("InternetExplorer.Application") ie.Visible?=?True Select?Case?dlg.Manufacturer Case?0 'ie.Navigate("http://www-s.ti.com/sc/docs/psheets/pids2.htm") ie.Navigate("http://www.baidu.com/s?wd="&?compName) SendKeys?compName?&?"~" Case?1 ie.Navigate("https://so.szlcsc.com/global.html?&hot-key=CC2530F256RHAR") Case?2 ie.Navigate("https://s.taobao.com/search?keywords="?&?compName) End?Select End?If End?Sub Rem?See?DialogFunc?help?topic?for?more?information. Private?Function?CallbackFunc(DlgItem$,?Action%,?SuppValue%)?As?Boolean Select?Case?Action% Case?1?'?Dialog?box?initialization Document_SelectionChange Case?2?'?Value?changing?or?button?pressed Case?3?'?TextBox?or?ComboBox?text?changed Case?4?'?Focus?changed Case?5?'?Idle Rem?CallbackFunc?=?True?'?Continue?getting?idle?actions End?Select End?Function Public?Sub?Document_SelectionChange() Set?objs?=?ActiveDocument.GetObjects(plogObjectTypeComponent,?"",?True) DlgEnable?"OK",?False If?objs.Count?=?1?Then compName?=?objs.Item(1).Name DlgText?"Text1",?"Selected?Part:?"?&?compName DlgEnable?"OK",?True ElseIf?objs.Count?>?1?Then DlgText?"Text1",?"Multiple?Selection" Else DlgText?"Text1",?"Select?a?part" End?If End?Sub?? 然后，選中需要查找的元器件，運行腳本，就會彈出一個網(wǎng)站的頁面讓我們選擇，這里設(shè)置了百度，立創(chuàng)和淘寶。 最后，任選其中一個網(wǎng)站，點擊確認(rèn)，就會自動打開相對應(yīng)的網(wǎng)站，搜索元器件的關(guān)鍵詞，找到相關(guān)的內(nèi)容供我們查看，非常方便快捷。