酷居科技

每个人都有属于自己的世界

VS Code 的常用快捷键和插件

VS Code 的常用快捷键和插件

一、vs code 的常用快捷键

1、注释

a) 单行注释:[ctrl+k,ctrl+c] 或 ctrl+/

b) 取消单行注释:[ctrl+k,ctrl+u] (按下ctrl不放,再按k + u)

c) 多行注释:[alt+shift+A]

d) 多行注释:/**

2、移动行:alt+up/down

十个国外科技网站

十个国外科技网站

1、Cnet

Cnet是网络上最热门的科技新闻网站。截至2016年12月,网站每月约有7000万访客。
2、TechCrunch

TechCrunch是一家在线科技和产业新闻出版商。网站内容涵盖各种小型企业和初创公司新闻。
3、InformationWeek

InformationWeek是一个提供IT新闻,研究,趋势分析的科技网站。InformationWeek提供市场研究报告,技术趋势和商业行业面临的问题。网站每月约有150万访客,Alexa Global排名为6394位。
4、Wiredis

Selenium使用chromedriver与Chrome版本对照表

Selenium使用chromedriver与Chrome版本对照表

在使用selenium启动谷歌Chrome浏览器的时候,是需要用到chromedirver的,两者之间的版本是需要匹配的,否则会出现下面类似的报错:

  1: Exception in thread "main" org.openqa.selenium.WebDriverException: unknown error: call function result missing 'value'
  2:  
  3:   (Session info: chrome=65.0.3325.31)
  4:   (Driver info: chromedriver=2.33.506120 (e3e53437346286c0bc2d2dc9aa4915ba81d9023f),platform=Windows NT 6.1.7601 SP1 x86) 
  5: (WARNING: The server did not provide any stacktrace information)
  6: Command duration or timeout: 0 milliseconds

这个例子中就是因为谷歌浏览器用的是65的版本,chromedriver用的是2.33的版本,而对于谷歌65的版本来说,与它匹配的chromedriver的版本是2.37或2.38,不匹配时就会出现上面的错误,使用匹配的版本后该问题即可解决。

微信公众号再次调整可注册数量

微信公众号再次调整可注册数量

2018 年 11 月 16 日,微信公众平台宣布,从即日起,微信公众号注册数量进行调整。具体的调整方案为:个人主体注册公众号数量上限由 2 个调整为 1 个,组织类主体注册公众账号的数量上限由 5 个调整为 2 个。

 

微信公众号(服务号、订阅号、企业号)的区别

微信公众号(服务号、订阅号、企业号)的区别

一、侧重功能:

1、服务号侧重于对用户进行服务;

2、订阅号侧重于信息传播;

3、企业号侧重于生产运营管理;

二、适用范围:

1、服务号主要适用于媒体、企业、政府或其他有需求的组织;

2、订阅号主要适用于个人、媒体、企业、政府或其他有需求的组织;

3、企业号主要适用于企业、政府、事业单位或其他有需求的组织;

VB.net中DateGridView使用记录

VB.net中DateGridView使用记录

这两天抽空维护一个早前写的软件,于是重新撸了一下VB.net。说实话,用Visual Studio来操vb.net真的很happy。顺手记录下面几点:

1、行头、列头的隐藏
[VB.NET]
' 列头隐藏
DataGridView1.ColumnHeadersVisible = False
' 行头隐藏
DataGridView1.RowHeadersVisible = False

Python flatlib包安装方法记录

Python flatlib包安装方法记录

这两天突然想给公众号增加一个返回星盘信息的功能,于是看上了flatlib包,这是一个适用于传统占星术的python包。不过,起初用vs 2017和pycharm都不能成功安装。基本上都是附带的一个天文计算包pyswisseph安装失败(编译失败)。

最后,只能安装经过编译的pyswisseph文件。文件是这里下载的(应有尽有。。)。

Mouse Without Borders无法安装问题处理

Mouse Without Borders无法安装问题处理

今天无聊把笔记本的系统降级到win7,于是开始安装各种软件。安装到Mouse Without Borders时,发现居然无法安装成功。首次碰到这个问题。后,百度了一下。原来是 Windows Firewall防火墙服务没有启动的缘故。

想了一下,这个系统是网上无脑下载的ghost版本。这年头,还是安装原版的比较靠谱,其他版本的,有后门也不一定。不过,无所谓了,反正这台笔记本基本上不怎么开机了。要黑,随便了。

碰到的问题,如下:

image

Inventor工程图批量替换文本-ilogic外部规则

Inventor工程图批量替换文本-ilogic外部规则

有时候,你想批量替换工程图中的标准文本或指引线文本。那么可以试试如下的ilogic代码,可存为txt,然后应用外部规则。

  1: Dim oDoc As Document
  2: oDoc = ThisApplication.ActiveDocument
  3: 
  4: If oDoc.DocumentType = kDrawingDocumentObject Then
  5:     Dim oDwgDoc As DrawingDocument
  6:     oDwgDoc = ThisApplication.ActiveDocument
  7:     
  8:     Dim oSheet As Sheet
  9:     Dim oDwgView As DrawingView
 10:     Dim oSketch As Sketch
 11:     Dim oText As TextBox
 12:     
 13:     Dim oGenNot As GeneralNote
 14:     MyText = InputBox("What Text?", "Search Text")
 15:     If MyText = "" Then
 16:         MsgBox ("You input empty field, process canceling!")
 17:         Exit Sub
 18:     End If
 19:     NewText = InputBox("New Text?", "Modify Text")
 20:     
 21:     If NewText = "" Then
 22:         MsgBox ("You input empty field, process canceling!")
 23:         Exit Sub
 24:     End If
 25:     
 26:     For Each oSheet In oDwgDoc.Sheets
 27:         For Each oDwgView In oSheet.DrawingViews
 28:             For Each oSketch In oDwgView.Sketches
 29:                 For Each oText In oSketch.TextBoxes
 30:                     If oText.Text = MyText Then
 31:                         oSketch.Edit
 32:                         oText.FormattedText = NewText
 33:                         oSketch.ExitEdit
 34:                     End If
 35:                 Next
 36:             Next
 37:         Next
 38:         For Each oGenNot In oSheet.DrawingNotes.GeneralNotes
 39:             If oGenNot.Text = MyText Then
 40:                 oGenNot.FormattedText = NewText
 41:             End If
 42:         Next
 43:     Next
 44: Else
 45:     MsgBox ("Only for drawing document")
 46: End If

运行后,会提示要替换的文本,然后填入新文本。之后会全部替换掉。

Autodesk Inventor工程图自动保存PDF文件iLogic代码

Autodesk Inventor工程图自动保存PDF文件iLogic代码

代码形式:Inventor内置ilogic工具

兼容版本:Autodesk Inventor 2018

解决的问题:方便自动将工程图保存为PDF文件格式

具体代码如下:

  1: oPath = ThisDoc.Path
  2: oFileName = ThisDoc.FileName(False) 'without extension
  3: oRevNum = iProperties.Value("project", "revision number")
  4: oPDFAddIn = ThisApplication.ApplicationAddIns.ItemById _
  5: ("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
  6: oDocument = ThisApplication.ActiveDocument
  7: oContext = ThisApplication.TransientObjects.CreateTranslationContext
  8: oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
  9: oOptions = ThisApplication.TransientObjects.CreateNameValueMap
 10: oDataMedium = ThisApplication.TransientObjects.CreateDataMedium 
 11: 
 12: If oPDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
 13: oOptions.Value("All_Color_AS_Black") = 0
 14: oOptions.Value("Remove_Line_Weights") = 1
 15: oOptions.Value("Vector_Resolution") = 400
 16: oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets
 17: 'oOptions.Value("Custom_Begin_Sheet") = 2'oOptions.Value("Custom_End_Sheet") = 4
 18: End If 
 19: 
 20: 
 21: 'get PDF target folder path
 22: oFolder = "k:\dwg\pdf\"
 23: 
 24: 
 25: 'Check for the PDF folder and create it if it does not exist
 26: If Not System.IO.Directory.Exists(oFolder) Then
 27:     System.IO.Directory.CreateDirectory(oFolder)
 28: End If
 29: 
 30: 
 31: 'Set the PDF target file name
 32: oDataMedium.FileName = oFolder & "\" & oFileName & _
 33: " rev" & oRevNum & ".pdf" 
 34: 
 35: 
 36: 'Publish document
 37: oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) 
 38: '------end of iLogic-------