酷居科技

2017-06-18阅读(3042)评论(1)赞(0)

Public Sub AutoReattachAnnotation() Dim odoc As Document Set odoc = ThisApplication.ActiveDocument If ThisApplication.Do...

2017-06-11kuju阅读(3320)评论(1)赞(0)

  Private Sub m_AppEvents_OnActivateDocument(ByVal DocumentObject As Inventor.Document, ByVal BeforeOrAfter As Inve...

2017-05-29阅读(3065)评论(1)赞(0)

Imports System.Windows.Forms Imports System.IO Public Sub Main     Dim oPath As String    &nbs...

2017-05-09kuju阅读(3252)评论(0)赞(0)

一般，titleblockdefiition都会有一个name（名称），用这个名称去确认某个工程图中的标题栏是否是指定的。这里采用一个函数去判断，会比较简单，如下：Function TBExists(oTBName) As BooleanE...

2017-05-01kuju阅读(4388)评论(0)赞(0)

 方法一：iproperty中获取Dim invPartDoc As Document = _invApp.ActiveDocument         Dim ifilename As S...

2017-04-23kuju阅读(12773)评论(0)赞(0)

Public Class clsSelect     ' Declare the event objects     Private WithEvents oInteraction As In...

2017-04-22kuju阅读(7293)评论(2)赞(6)

距离初始版本有一段时间了。新版本选择更加小巧的主界面。本插件的开发，主要是解决国内用户的一些习惯。如工程图明细栏标准化。装配体内重命名等。主要包含以下几个功能：1、通过文件名提取相关数据到IPROPERTY 中，最终映射到工程图；可有效整合...

2017-04-19阅读(2990)评论(2)赞(0)

无聊测试一下。可惜不能添加tag。不然还是不错的。

2017-04-17kuju阅读(4219)评论(0)赞(2)

将以下代码存为txt文件，通过ilogic导入外部规则，然后运行规则。主要可以自动识别纸张，并且可实现自动最佳打印模式。不必每次都去人工选择横向及纵向。实现无脑打印。

2017-04-16kuju阅读(3922)评论(0)赞(0)

Public Sub Main Dim oPath As String ' Search for the folder Dim Dialog = New FolderBrowserDialog() Dialog.ShowNewFo...