酷居科技

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

将某文件夹下所有装配体文件bom表导出

将某文件夹下所有装配体文件bom表导出
Imports System.Windows.Forms
Imports System.IO

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"

    ' Show dialog box
    If DialogResult.OK = Dialog.ShowDialog() Then
        ' User clicked 'ok' on dialog box - capture the export path
        oPath = Dialog.SelectedPath & "\"
    
    Else
        ' User clicked 'cancel' on dialog box - exit
        Return
    End If

    ' Make a reference to a directory.
    Dim oDirectoryInfo As New DirectoryInfo(oPath)
    
    ' Get a reference to each file in that directory.
    Dim oFileArray As FileInfo() = oDirectoryInfo.GetFiles()
    
    ' Display the names of the files.
    Dim oFileInfo As FileInfo
    
    ' Loop through all files in the directory (not in the sub directories.)
    For Each oFileInfo In oFileArray
        If oFileInfo.Name.contains(".iam") Then
        
            ' Open the file
            ThisApplication.Documents.Open(oFileInfo.FullName, True) 
            
            ' Export the BOM
            
            ' Set a reference to the assembly document.
            ' This assumes an assembly document is active.
            Dim oDoc As AssemblyDocument
            oDoc = ThisApplication.ActiveDocument
            
            ' Set a reference to the BOM
            Dim oBOM As BOM
            oBOM = oDoc.ComponentDefinition.BOM
            
            ' Set the structured view to 'all levels'
            oBOM.StructuredViewFirstLevelOnly = False
        
            ' Make sure that the structured view is enabled.
            oBOM.StructuredViewEnabled = True
        
            ' Set a reference to the "Structured" BOMView
            Dim oStructuredBOMView As BOMView
            oStructuredBOMView = oBOM.BOMViews.Item("Structured")
            
            Dim oExcelPath As String
            oExcelPath = oPath & System.IO.Path.GetFileNameWithoutExtension(oDoc.FullFileName)& ".xls"
            
            ' Export the BOM view to an Excel file
            oStructuredBOMView.Export(oExcelPath, kMicrosoftExcelFormat)
            
            ' Close the document
            oDoc.Close
        
        End If
    Next
End Sub

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当成学习资料中转站之类的吧。这年头,各大网站的云盘越来越不靠谱了。总是担心哪天就被关闭了。还是自己付钱控制的东西好用一点。

好的,暂别。

宁静

宁静

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

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

这个世界很安静。