装配图及普通零件的重心标记(VBA)
Public Sub WorkPointAtMassCenter() Dim oDoc As Document Set oDoc = ThisApplication...
Public Sub WorkPointAtMassCenter() Dim oDoc As Document Set oDoc = ThisApplication...
最近比较忙,忙着处理非设计事务,不过偶尔会有打开工程图查看相关尺寸的需求。通常都是打开一个大型装配体,然后在装配体里面层层往下打开相关零件,然后再打开工程图。感觉这样很繁琐。 脑海中突然想结束这样的一个繁琐的流程。于是在处理其它事情的时候...
Private Sub m_AppEvents_OnActivateDocument(ByVal DocumentObject As Inventor.Document, ByVal BeforeOrAfter As Inve...
Imports System.Windows.Forms Imports System.IO Public Sub Main Dim oPath As String &nbs...
一般,titleblockdefiition都会有一个name(名称),用这个名称去确认某个工程图中的标题栏是否是指定的。这里采用一个函数去判断,会比较简单,如下:Function TBExists(oTBName) As BooleanE...
方法一:iproperty中获取Dim invPartDoc As Document = _invApp.ActiveDocument Dim ifilename As S...
距离初始版本有一段时间了。新版本选择更加小巧的主界面。本插件的开发,主要是解决国内用户的一些习惯。如工程图明细栏标准化。装配体内重命名等。主要包含以下几个功能:1、通过文件名提取相关数据到IPROPERTY 中,最终映射到工程图;可有效整合...
将以下代码存为txt文件,通过ilogic导入外部规则,然后运行规则。主要可以自动识别纸张,并且可实现自动最佳打印模式。不必每次都去人工选择横向及纵向。实现无脑打印。
Public Sub Main Dim oPath As String ' Search for the folder Dim Dialog = New FolderBrowserDialog() Dialog.ShowNewFo...
SDK原版参考Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click &nb...