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

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

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

    Function TBExists(oTBName) As Boolean

    Exists = False

    dim oTB as TitleBlockDefinitions

    For Each oTB in oDrawDoc.TitleBlockDefinitions

2017-5-9 8:28:27 科技 次阅读 0条评论
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

2017-5-1 7:31:42 科技 次阅读 0条评论
事件案例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

2017-4-23 21:2:16 生活 次阅读 0条评论
AutoDesk Inventor插件定制开发

AutoDesk Inventor插件定制开发

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

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

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

2017-4-22 15:5:44 科技 次阅读 0条评论
WORD2016加密文档测试

WORD2016加密文档测试

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

     

2017-4-19 14:7:40 生活 次阅读 1条评论
Inventor工程图增强打印ilogic代码

Inventor工程图增强打印ilogic代码

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

2017-4-17 13:0:57 科技 次阅读 0条评论
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"
    
2017-4-16 21:15:24 科技 次阅读 0条评论
换个感觉

换个感觉

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

    好的,暂别。

2017-4-15 21:40:8 生活 次阅读 0条评论
宁静

宁静

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

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

    这个世界很安静。

2017-3-25 21:53:40 生活 次阅读 0条评论
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

2017-3-22 21:18:31 科技 次阅读 0条评论
图标汇集
  • 订阅本站的 RSS 2.0 新闻聚合
  • 酷居科技
网站分类
最新留言
友情链接
控制面板
您好,欢迎到访网站!
  [查看权限]