电子发烧友App

硬声App

0
  • 聊天消息
  • 系统消息
  • 评论与回复
登录后你可以
  • 下载海量资料
  • 学习在线课程
  • 观看技术视频
  • 写文章/发帖/加入社区
会员中心
创作中心

完善资料让更多小伙伴认识你,还能领取20积分哦,立即完善>

3天内不再提示
电子发烧友网>电子资料下载>电子资料>工程师小经验:快速查找原理图元器件资料资料下载

工程师小经验:快速查找原理图元器件资料资料下载

2021-04-03 | pdf | 404.42KB | 次下载 | 10积分

资料介绍

我们在设计原理图或者查看原理图时,经常需要到网站上搜索某个元器件的相关资料,看能否找到规格书来查看。每次都要打开相关网站,输入关键词去搜索,这样的重复操作效率不是很高。有没有办法在原理图上,选中某个元器件,下一步就已经在网站上搜索了这个元器件的关键词,并找出了相关网页来。答案是有的,就是编写一个脚本,选中某个元器件,运行脚本就能实现这个功能。下面介绍一下这个方法。 首先,打开原理图的脚本编辑器,编写以下代码。 参考代码: 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   然后,选中需要查找的元器件,运行脚本,就会弹出一个网站的页面让我们选择,这里设置了百度,立创和淘宝。 最后,任选其中一个网站,点击确认,就会自动打开相对应的网站,搜索元器件的关键词,找到相关的内容供我们查看,非常方便快捷。
下载该资料的人也在下载 下载该资料的人还在阅读
更多 >

评论

查看更多

下载排行

本周

  1. 1山景DSP芯片AP8248A2数据手册
  2. 1.06 MB  |  532次下载  |  免费
  3. 2RK3399完整板原理图(支持平板,盒子VR)
  4. 3.28 MB  |  339次下载  |  免费
  5. 3TC358743XBG评估板参考手册
  6. 1.36 MB  |  330次下载  |  免费
  7. 4DFM软件使用教程
  8. 0.84 MB  |  295次下载  |  免费
  9. 5元宇宙深度解析—未来的未来-风口还是泡沫
  10. 6.40 MB  |  227次下载  |  免费
  11. 6迪文DGUS开发指南
  12. 31.67 MB  |  194次下载  |  免费
  13. 7元宇宙底层硬件系列报告
  14. 13.42 MB  |  182次下载  |  免费
  15. 8FP5207XR-G1中文应用手册
  16. 1.09 MB  |  178次下载  |  免费

本月

  1. 1OrCAD10.5下载OrCAD10.5中文版软件
  2. 0.00 MB  |  234315次下载  |  免费
  3. 2555集成电路应用800例(新编版)
  4. 0.00 MB  |  33566次下载  |  免费
  5. 3接口电路图大全
  6. 未知  |  30323次下载  |  免费
  7. 4开关电源设计实例指南
  8. 未知  |  21549次下载  |  免费
  9. 5电气工程师手册免费下载(新编第二版pdf电子书)
  10. 0.00 MB  |  15349次下载  |  免费
  11. 6数字电路基础pdf(下载)
  12. 未知  |  13750次下载  |  免费
  13. 7电子制作实例集锦 下载
  14. 未知  |  8113次下载  |  免费
  15. 8《LED驱动电路设计》 温德尔著
  16. 0.00 MB  |  6656次下载  |  免费

总榜

  1. 1matlab软件下载入口
  2. 未知  |  935054次下载  |  免费
  3. 2protel99se软件下载(可英文版转中文版)
  4. 78.1 MB  |  537798次下载  |  免费
  5. 3MATLAB 7.1 下载 (含软件介绍)
  6. 未知  |  420027次下载  |  免费
  7. 4OrCAD10.5下载OrCAD10.5中文版软件
  8. 0.00 MB  |  234315次下载  |  免费
  9. 5Altium DXP2002下载入口
  10. 未知  |  233046次下载  |  免费
  11. 6电路仿真软件multisim 10.0免费下载
  12. 340992  |  191187次下载  |  免费
  13. 7十天学会AVR单片机与C语言视频教程 下载
  14. 158M  |  183279次下载  |  免费
  15. 8proe5.0野火版下载(中文版免费下载)
  16. 未知  |  138040次下载  |  免费