酷居科技

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

Inventor判断指定工程图标题栏是否存在

Inventor判断指定工程图标题栏是否存在

一般,titleblockdefiition都会有一个name(名称),用这个名称去确认某个工程图中的标题栏是否是指定的。这里采用一个函数去判断,会比较简单,如下:

Function TBExists(oTBName) As Boolean

Exists = False

dim oTB as TitleBlockDefinitions

For Each oTB in oDrawDoc.TitleBlockDefinitions

Inventor API调用缩略图Thumbnail

Inventor API调用缩略图Thumbnail

 方法一:iproperty中获取

Dim invPartDoc As Document = _invApp.ActiveDocument
        Dim ifilename As String = invPartDoc.FullDocumentName
        Dim apprentice As New ApprenticeServerComponent
         Dim doc As ApprenticeServerDocument
        doc = apprentice.Open(ifilename)
        Dim summaryInfo As PropertySet
        summaryInfo = doc.PropertySets.Item(
        Dim thumbProp As Inventor.Property
        thumbProp = summaryInfo.Item("Thumbnail")
        Dim thumbnail As stdole.IPictureDisp
        thumbnail = thumbProp.Value
        Dim img As Image = VB6.IPictureDispToImage(thumbnail)
        PictureBox1.Image = img

事件案例1

事件案例1

Public Class clsSelect
    ' Declare the event objects
    Private WithEvents oInteraction As InteractionEvents
    Private WithEvents oSelect As SelectEvents

    ' Declare a flag that's used to determine when selection stops.
    Private bStillSelecting As Boolean

AutoDesk Inventor插件定制开发

AutoDesk Inventor插件定制开发

距离初始版本有一段时间了。新版本选择更加小巧的主界面。

本插件的开发,主要是解决国内用户的一些习惯。如工程图明细栏标准化。装配体内重命名等。主要包含以下几个功能:

1、通过文件名提取相关数据到IPROPERTY 中,最终映射到工程图;可有效整合Inventor各种名(文件名、代号、名称等等);批量提取。

WORD2016加密文档测试

WORD2016加密文档测试

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

 

Inventor工程图增强打印ilogic代码

Inventor工程图增强打印ilogic代码

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

Inventor Bom集中导出

Inventor Bom集中导出
Public Sub Main
    Dim oPath As String
        ' Search for the folder
    Dim Dialog = New FolderBrowserDialog()
    Dialog.ShowNewFolderButton = True
    Dialog.Description = "Jef_E Bom's export tool"

换个感觉

换个感觉

来个干净的。又一年过去了。刚给服务器续费。感觉,这里还是得发挥点作用。以后就把这个blog当成学习资料中转站之类的吧。这年头,各大网站的云盘越来越不靠谱了。总是担心哪天就被关闭了。还是自己付钱控制的东西好用一点。

好的,暂别。

宁静

宁静

在偌大的房子里,静静的陪着孩子看书,是一件幸福的事情。

虽然,外面下着绵绵无绝期的细雨。

这个世界很安静。

Inventor设计复制代码

Inventor设计复制代码

SDK原版参考

Private Sub btnOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnOK.Click

        ' Disable the buttons while it's processing