制造业参数化设计网

快捷导航
查看: 502|回复: 2

[Inventor] Inventor工程图增强打印ilogic代码

[复制链接]

1345

主题

3155

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
11215
发表于 2021-8-5 22:54:09 | 显示全部楼层 |阅读模式
将以下代码存为txt文件,通过ilogic导入外部规则,然后运行规则。主要可以自动识别纸张,并且可实现自动最佳打印模式。不必每次都去人工选择横向及纵向。实现无脑打印.
增强打印.jpg
设计也需要变革了
回复

使用道具 举报

1345

主题

3155

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
11215
 楼主| 发表于 2021-8-5 22:54:26 | 显示全部楼层
Dim oDrawDoc1 As Document
            oDrawDoc1 = ThisApplication.ActiveDocument
            oPrintMgr = oDrawDoc1.PrintManager
'            oPrintMgr.Printer = "请填入打印机"     '手动设置默认打印机,一般不必填写,特殊情况填写
                    rozm=oDrawDoc1.ActiveSheet.Size        
'            oPrintMgr.ColorMode = kPrintDefaultColorMode'  设定为彩色打印
            oPrintMgr.AllColorsAsBlack = True  '设定为全黑打印
            oPrintMgr.NumberOfCopies = 1    '打印份数
            If ActiveSheet.Width>ActiveSheet.Height Then
            oprintMgr.Orientation = 13570
            End If
            If ActiveSheet.Width<ActiveSheet.Height Then
            oprintMgr.Orientation = 13569
            End If
'            自动判断横向及纵向
            oPrintMgr.PrintRange = kPrintAllSheets
            oPrintMgr.Scalemode = kCustomScale
            oPrintMgr.ScaleMode = PrintScaleModeEnum.kPrintBestFitScale   '最佳比例
oStringArray = New String(){"A4", "A3", "猜你喜欢","我不想打印了"}
oList = InputListBox("人生若只如初见,何事秋风悲画扇", oStringArray, "A4", "增强打印", "选择打印类型")
   
    If oList="我不想打印了" Then
    MessageBox.Show("等闲变却故人心,却道故人心易变!", "ilogic")
            End If
            If oList="A4" Then
            oPrintMgr.PaperSize = PaperSizeEnum.kPaperSizeA4
            oPrintMgr.SubmitPrint
            End If
            If  oList="A3" Then
            oPrintMgr.PaperSize = PaperSizeEnum.kPaperSizeA3
            oPrintMgr.SubmitPrint
            End If
            If  oList="猜你喜欢" Then
            If rozm=9997 Then
            oPrintMgr.PaperSize = PaperSizeEnum.kPaperSizeA4
            i=MessageBox.Show("检测到您设定的图框尺寸为 A4,是否打印为A4?", "Title",MessageBoxButtons.OKCancel)
            End If
            If rozm=9996 Then
            oPrintMgr.PaperSize = PaperSizeEnum.kPaperSizeA3
            i=MessageBox.Show("检测到您设定的图框尺寸为 A3,是否打印为A3?", "Title",MessageBoxButtons.OKCancel)
            End If
            
            If i=1 Then
            oPrintMgr.SubmitPrint
            End If
            End If

设计也需要变革了
回复 支持 反对

使用道具 举报

1345

主题

3155

帖子

1万

积分

管理员

Rank: 9Rank: 9Rank: 9

积分
11215
 楼主| 发表于 2021-8-5 22:55:08 | 显示全部楼层
附件

Inventor工程图增强打印ilogic代码.docx

29.61 KB, 下载次数: 3

设计也需要变革了
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

联系我们
Email:1691470123@qq.com
QQ群:Inventor(290911645)、Solidworks(324451806)、Creo/ProE(451821425)、NX/UG(471430551)、Catia(497740844)

MPD制造业参数化设计网是一个提升设计效率方法论的交流平台,是一个搭建可重用资源库的共享平台,我们期待您的加入。

Powered by 制造业参数化设计网 © 2001-2013 Comsenz Inc.

Archiver|手机版|小黑屋|制造业参数化设计网 ( 湘ICP备16011161号 )

GMT+8, 2021-9-23 07:13 , Processed in 0.096239 second(s), 25 queries .

快速回复 返回顶部 返回列表