├── .gitattributes ├── .gitignore ├── BOM表导出.xls ├── BatOperation ├── App.config ├── ApplicationEvents.vb ├── BatOperation.sln ├── BatOperation.vbproj ├── FrmMain.Designer.vb ├── FrmMain.resx ├── FrmMain.vb ├── Module_ConnAndSession.vb ├── Module_Famtab.vb ├── Module_Frm.vb ├── Module_Material.vb ├── Module_ModelPurge.vb ├── Module_Object.vb ├── Module_Param.vb ├── Module_Relations.vb ├── Module_Unit.vb ├── Module_Win.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── favicon.ico └── packages.config ├── CSharpMenuTest ├── App.config ├── CSharpMenuTest.csproj ├── CSharpMenuTest.sln ├── CreoFunction.cs ├── Frm_load.Designer.cs ├── Frm_load.cs ├── Frm_load.resx ├── Program.cs ├── Properties │ ├── AssemblyInfo.cs │ ├── Resources.Designer.cs │ ├── Resources.resx │ ├── Settings.Designer.cs │ └── Settings.settings └── msg.txt ├── CreoCSharp ├── App.config ├── CreoCSharp.csproj ├── CreoCSharp.sln ├── Frm_Main.Designer.cs ├── Frm_Main.cs ├── Frm_Main.resx ├── Program.cs ├── Properties │ ├── AssemblyInfo.cs │ ├── Resources.Designer.cs │ ├── Resources.resx │ ├── Settings.Designer.cs │ └── Settings.settings └── VBAPITool.cs ├── CreoFileExportTools ├── CreoDirExportDwg │ ├── CreoDirExportDwg.csproj │ ├── Program.cs │ ├── Properties │ │ └── AssemblyInfo.cs │ └── app.config ├── CreoDirExportIgs │ ├── App.config │ ├── CreoDirExportIges.csproj │ ├── Program.cs │ └── Properties │ │ └── AssemblyInfo.cs ├── CreoDirExportPdf │ ├── CreoDirExportPdf.csproj │ ├── Program.cs │ ├── Properties │ │ └── AssemblyInfo.cs │ └── app.config ├── CreoDirExportStep │ ├── CreoDirExportStep.csproj │ ├── Program.cs │ ├── Properties │ │ └── AssemblyInfo.cs │ └── app.config ├── CreoFileExportTools.sln └── CreoFileExportTools │ ├── App.config │ ├── CreoFileExportTools.vbproj │ ├── Frm_tools.Designer.vb │ ├── Frm_tools.resx │ ├── Frm_tools.vb │ └── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── CreoRelationTools ├── CreoDirRelAdd │ ├── App.config │ ├── CreoDirRelAdd.csproj │ ├── Program.cs │ └── Properties │ │ └── AssemblyInfo.cs ├── CreoDirRelRemove │ ├── App.config │ ├── CreoDirRelClear.csproj │ ├── Program.cs │ └── Properties │ │ └── AssemblyInfo.cs ├── CreoRelationTools.sln └── CreoRelationTools │ ├── App.config │ ├── CreoRelationTools.vbproj │ ├── Frm_tools.Designer.vb │ ├── Frm_tools.resx │ ├── Frm_tools.vb │ └── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── Familyexport ├── App.config ├── Familyexport.idx ├── Familyexport.sln ├── Familyexport.vbproj ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── VBapitool.vb ├── fin.prt └── main.vb ├── Purge ├── FrmMain.frm ├── FrmMain.frx ├── Purge.vbp └── Purge.vbw ├── Readme.md ├── TkDllEample ├── TkDllEample.sln ├── TkDllEample │ ├── ReadMe.txt │ ├── Resource.h │ ├── TkDllEample.cpp │ ├── TkDllEample.def │ ├── TkDllEample.h │ ├── TkDllEample.rc │ ├── TkDllEample.vcxproj │ ├── TkDllEample.vcxproj.filters │ ├── res │ │ └── TkDllEample.rc2 │ ├── stdafx.cpp │ ├── stdafx.h │ └── targetver.h ├── msg.txt └── prodev.dat ├── _config.yml ├── chapter10.1 ├── App.config ├── Frm_load.Designer.vb ├── Frm_load.resx ├── Frm_load.vb ├── Module_VB API.vb ├── Module_win.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── chapter10.1.sln └── chapter10.1.vbproj ├── chapter10.2 ├── App.config ├── Frm_load.Designer.vb ├── Frm_load.resx ├── Frm_load.vb ├── Module_VB API.vb ├── Module_win.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── chapter10.2.sln └── chapter10.2.vbproj ├── chapter10.3 ├── App.config ├── Frm_load.Designer.vb ├── Frm_load.resx ├── Frm_load.vb ├── Module_VB API.vb ├── Module_win.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── chapter10.3.sln └── chapter10.3.vbproj ├── chapter10.4 ├── App.config ├── Frm_load.Designer.vb ├── Frm_load.resx ├── Frm_load.vb ├── Module_VB API.vb ├── Module_win.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── chapter10.4.sln └── chapter10.4.vbproj ├── chapter10.5 ├── App.config ├── Frm_load.Designer.vb ├── Frm_load.resx ├── Frm_load.vb ├── Module_VB API.vb ├── Module_win.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── chapter10.5.sln └── chapter10.5.vbproj ├── chapter10.6 ├── App.config ├── Frm_load.Designer.vb ├── Frm_load.resx ├── Frm_load.vb ├── Module_VB API.vb ├── Module_win.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── chapter10.6.sln └── chapter10.6.vbproj ├── chapter10.7 ├── App.config ├── Frm_load.Designer.vb ├── Frm_load.resx ├── Frm_load.vb ├── Module_VB API.vb ├── Module_win.vb ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings ├── chapter10.7.sln └── chapter10.7.vbproj ├── chapter2.1 ├── chapter2.1.sln └── chapter2.1 │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ ├── app.config │ └── chapter2.1.vbproj ├── chapter2.2 ├── chapter2.2.sln └── chapter2.2 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter2.2.vbproj ├── chapter2.3 ├── chapter2.3.sln └── chapter2.3 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter2.3.vbproj ├── chapter2.4 ├── chapter2.4.sln └── chapter2.4 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter2.4.vbproj ├── chapter3.1 ├── chapter3.1.sln └── chapter3.1 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter3.1.vbproj ├── chapter3.2 ├── chapter3.2.sln └── chapter3.2 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter3.2.vbproj ├── chapter4.1 ├── chapter4.1.sln └── chapter4.1 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter4.1.vbproj ├── chapter5.1 ├── chapter5.1.sln └── chapter5.1 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter5.1.vbproj ├── chapter6.1 ├── chapter6.1.sln └── chapter6.1 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter6.1.vbproj ├── chapter6.2 ├── chapter6.2.sln └── chapter6.2 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter6.2.vbproj ├── chapter6.3 ├── chapter6.3.sln └── chapter6.3 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter6.3.vbproj ├── chapter7.1 ├── chapter7.1.sln └── chapter7.1 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter7.1.vbproj ├── chapter7.10 ├── chapter7.10.sln └── chapter7.10 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter7.10.vbproj ├── chapter7.2 ├── chapter7.2.sln └── chapter7.2 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter7.2.vbproj ├── chapter7.3 ├── chapter7.3.sln ├── chapter7.3 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ │ ├── Application.Designer.vb │ │ ├── Application.myapp │ │ ├── AssemblyInfo.vb │ │ ├── Resources.Designer.vb │ │ ├── Resources.resx │ │ ├── Settings.Designer.vb │ │ └── Settings.settings │ └── chapter7.3.vbproj └── msg.txt ├── chapter7.4 ├── chapter7.4.sln ├── chapter7.4 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ │ ├── Application.Designer.vb │ │ ├── Application.myapp │ │ ├── AssemblyInfo.vb │ │ ├── Resources.Designer.vb │ │ ├── Resources.resx │ │ ├── Settings.Designer.vb │ │ └── Settings.settings │ └── chapter7.4.vbproj ├── msg.txt └── standard1.sym ├── chapter7.5 ├── chapter7.5.sln └── chapter7.5 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter7.5.vbproj ├── chapter7.6 ├── GBqiubiao.sym ├── chapter7.6.sln ├── chapter7.6 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ │ ├── Application.Designer.vb │ │ ├── Application.myapp │ │ ├── AssemblyInfo.vb │ │ ├── Resources.Designer.vb │ │ ├── Resources.resx │ │ ├── Settings.Designer.vb │ │ └── Settings.settings │ └── chapter7.6.vbproj └── msg.txt ├── chapter7.7 ├── GBqiubiao.sym ├── chapter7.7.sln ├── chapter7.7 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ │ ├── Application.Designer.vb │ │ ├── Application.myapp │ │ ├── AssemblyInfo.vb │ │ ├── Resources.Designer.vb │ │ ├── Resources.resx │ │ ├── Settings.Designer.vb │ │ └── Settings.settings │ └── chapter7.7.vbproj └── msg.txt ├── chapter7.8 ├── chapter7.8.sln └── chapter7.8 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter7.8.vbproj ├── chapter7.9 ├── chapter7.9.sln └── chapter7.9 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter7.9.vbproj ├── chapter8.1 ├── chapter8.1.sln └── chapter8.1 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter8.1.vbproj ├── chapter8.2 ├── app.ico ├── chapter8.2.sln ├── chapter8.2 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ │ ├── Application.Designer.vb │ │ ├── Application.myapp │ │ ├── AssemblyInfo.vb │ │ ├── Resources.Designer.vb │ │ ├── Resources.resx │ │ ├── Settings.Designer.vb │ │ └── Settings.settings │ └── chapter8.2.vbproj └── msg.txt ├── chapter8.3 ├── chapter8.3.sln └── chapter8.3 │ ├── App.config │ ├── Frm_load.Designer.vb │ ├── Frm_load.resx │ ├── Frm_load.vb │ ├── Module_VB API.vb │ ├── Module_win.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter8.3.vbproj ├── chapter9.1 ├── chapter9.1.sln └── chapter9.1 │ ├── App.config │ ├── Frm_Main.Designer.vb │ ├── Frm_Main.resx │ ├── Frm_Main.vb │ ├── My Project │ ├── Application.Designer.vb │ ├── Application.myapp │ ├── AssemblyInfo.vb │ ├── Resources.Designer.vb │ ├── Resources.resx │ ├── Settings.Designer.vb │ └── Settings.settings │ └── chapter9.1.vbproj ├── clean.ps1 ├── clean.vbs ├── vb6creo ├── vb6creo.frm ├── vb6creo.vbp └── vb6creo.vbw ├── 参数的批处理.xls └── 零件参数化设计系统 ├── Templates └── ban.prt └── 零件参数化设计系统.xls /BOM表导出.xls: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/BOM表导出.xls -------------------------------------------------------------------------------- /BatOperation/App.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 | -------------------------------------------------------------------------------- /BatOperation/ApplicationEvents.vb: -------------------------------------------------------------------------------- 1 | Namespace My 2 | End Namespace 3 | -------------------------------------------------------------------------------- /BatOperation/BatOperation.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.29509.3 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "BatOperation", "BatOperation.vbproj", "{924D82CD-B477-493D-A889-97D8206B54E3}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {924D82CD-B477-493D-A889-97D8206B54E3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {924D82CD-B477-493D-A889-97D8206B54E3}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {924D82CD-B477-493D-A889-97D8206B54E3}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {924D82CD-B477-493D-A889-97D8206B54E3}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {8F183E60-C1F3-4EEE-9B3F-7E29223FB0F1} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /BatOperation/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | FrmMain 5 | true 6 | 0 7 | true 8 | 0 9 | true 10 | -------------------------------------------------------------------------------- /BatOperation/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System.Resources 2 | Imports System 3 | Imports System.Reflection 4 | Imports System.Runtime.InteropServices 5 | 6 | ' General Information about an assembly is controlled through the following 7 | ' set of attributes. Change these attribute values to modify the information 8 | ' associated with an assembly. 9 | 10 | ' Review the values of the assembly attributes 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 22 | 23 | 24 | ' Version information for an assembly consists of the following four values: 25 | ' 26 | ' Major Version 27 | ' Minor Version 28 | ' Build Number 29 | ' Revision 30 | ' 31 | ' You can specify all the values or you can default the Build and Revision Numbers 32 | ' by using the '*' as shown below: 33 | ' 34 | 35 | 36 | 37 | 38 | -------------------------------------------------------------------------------- /BatOperation/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /BatOperation/favicon.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/BatOperation/favicon.ico -------------------------------------------------------------------------------- /BatOperation/packages.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CSharpMenuTest/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /CSharpMenuTest/CSharpMenuTest.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.30621.155 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "CSharpMenuTest", "CSharpMenuTest.csproj", "{9A149AA2-0116-4E32-90EE-F7503A78BCEC}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {9A149AA2-0116-4E32-90EE-F7503A78BCEC}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {9A149AA2-0116-4E32-90EE-F7503A78BCEC}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {9A149AA2-0116-4E32-90EE-F7503A78BCEC}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {9A149AA2-0116-4E32-90EE-F7503A78BCEC}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {FE32F732-341D-4B89-A4A2-9A1A94315FC8} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /CSharpMenuTest/Frm_load.cs: -------------------------------------------------------------------------------- 1 | using System; 2 | using System.Windows.Forms; 3 | 4 | namespace CSharpMenuTest 5 | { 6 | public partial class Frm_load : Form 7 | { 8 | CreoFunction mycreoFunction = new CreoFunction(); 9 | public Frm_load() 10 | { 11 | InitializeComponent(); 12 | } 13 | 14 | private void Btn_Connect_Click(object sender, EventArgs e) 15 | { 16 | mycreoFunction.ConnectCreo(); 17 | } 18 | } 19 | } 20 | -------------------------------------------------------------------------------- /CSharpMenuTest/Program.cs: -------------------------------------------------------------------------------- 1 | using System; 2 | using System.Collections.Generic; 3 | using System.Linq; 4 | using System.Threading.Tasks; 5 | using System.Windows.Forms; 6 | 7 | namespace CSharpMenuTest 8 | { 9 | static class Program 10 | { 11 | /// 12 | /// The main entry point for the application. 13 | /// 14 | [STAThread] 15 | static void Main() 16 | { 17 | Application.EnableVisualStyles(); 18 | Application.SetCompatibleTextRenderingDefault(false); 19 | Application.Run(new Frm_load()); 20 | } 21 | } 22 | } 23 | -------------------------------------------------------------------------------- /CSharpMenuTest/Properties/Settings.Designer.cs: -------------------------------------------------------------------------------- 1 | //------------------------------------------------------------------------------ 2 | // 3 | // This code was generated by a tool. 4 | // Runtime Version:4.0.30319.42000 5 | // 6 | // Changes to this file may cause incorrect behavior and will be lost if 7 | // the code is regenerated. 8 | // 9 | //------------------------------------------------------------------------------ 10 | 11 | namespace CSharpMenuTest.Properties 12 | { 13 | 14 | 15 | [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] 16 | [global::System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0")] 17 | internal sealed partial class Settings : global::System.Configuration.ApplicationSettingsBase 18 | { 19 | 20 | private static Settings defaultInstance = ((Settings)(global::System.Configuration.ApplicationSettingsBase.Synchronized(new Settings()))); 21 | 22 | public static Settings Default 23 | { 24 | get 25 | { 26 | return defaultInstance; 27 | } 28 | } 29 | } 30 | } 31 | -------------------------------------------------------------------------------- /CSharpMenuTest/Properties/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CSharpMenuTest/msg.txt: -------------------------------------------------------------------------------- 1 | PrintMessage 2 | 你点击菜单了 3 | 你点击菜单了 4 | # 5 | 6 | 7 | MyPushButton 8 | 自定义按钮 9 | 自定义按钮 10 | # 11 | 12 | MyPushButtonHelp 13 | 自定义按钮帮助文本 14 | 自定义按钮帮助文本 15 | # 16 | -------------------------------------------------------------------------------- /CreoCSharp/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | -------------------------------------------------------------------------------- /CreoCSharp/CreoCSharp.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.28803.352 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{FAE04EC0-301F-11D3-BF4B-00C04F79EFBC}") = "CreoCSharp", "CreoCSharp.csproj", "{6D4ED47B-D533-4632-A4CA-525294367938}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {6D4ED47B-D533-4632-A4CA-525294367938}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {6D4ED47B-D533-4632-A4CA-525294367938}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {6D4ED47B-D533-4632-A4CA-525294367938}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {6D4ED47B-D533-4632-A4CA-525294367938}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {C4A22DD9-0FB6-481D-99E4-08760DABB6E8} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /CreoCSharp/Frm_Main.cs: -------------------------------------------------------------------------------- 1 | using System; 2 | using System.Windows.Forms; 3 | 4 | namespace CreoCSharp 5 | { 6 | public partial class Frm_Main : Form 7 | { 8 | private VBAPITool mytool; 9 | 10 | public Frm_Main() 11 | { 12 | InitializeComponent(); 13 | mytool = new VBAPITool(); 14 | } 15 | 16 | private void Btn_new_Click(object sender, EventArgs e) 17 | { 18 | mytool.StartCreo(); 19 | } 20 | 21 | private void Btn_Connect_Click(object sender, EventArgs e) 22 | { 23 | mytool.ConnectCreo(); 24 | } 25 | 26 | private void Btn_Open_Click(object sender, EventArgs e) 27 | { 28 | mytool.Openfile(); 29 | } 30 | } 31 | } -------------------------------------------------------------------------------- /CreoCSharp/Program.cs: -------------------------------------------------------------------------------- 1 | using System; 2 | using System.Windows.Forms; 3 | 4 | namespace CreoCSharp 5 | { 6 | internal static class Program 7 | { 8 | /// 9 | /// The main entry point for the application. 10 | /// 11 | [STAThread] 12 | private static void Main() 13 | { 14 | Application.EnableVisualStyles(); 15 | Application.SetCompatibleTextRenderingDefault(false); 16 | Application.Run(new Frm_Main()); 17 | } 18 | } 19 | } -------------------------------------------------------------------------------- /CreoCSharp/Properties/Settings.Designer.cs: -------------------------------------------------------------------------------- 1 | //------------------------------------------------------------------------------ 2 | // 3 | // This code was generated by a tool. 4 | // Runtime Version:4.0.30319.42000 5 | // 6 | // Changes to this file may cause incorrect behavior and will be lost if 7 | // the code is regenerated. 8 | // 9 | //------------------------------------------------------------------------------ 10 | 11 | namespace CreoCSharp.Properties 12 | { 13 | 14 | 15 | [global::System.Runtime.CompilerServices.CompilerGeneratedAttribute()] 16 | [global::System.CodeDom.Compiler.GeneratedCodeAttribute("Microsoft.VisualStudio.Editors.SettingsDesigner.SettingsSingleFileGenerator", "11.0.0.0")] 17 | internal sealed partial class Settings : global::System.Configuration.ApplicationSettingsBase 18 | { 19 | 20 | private static Settings defaultInstance = ((Settings)(global::System.Configuration.ApplicationSettingsBase.Synchronized(new Settings()))); 21 | 22 | public static Settings Default 23 | { 24 | get 25 | { 26 | return defaultInstance; 27 | } 28 | } 29 | } 30 | } 31 | -------------------------------------------------------------------------------- /CreoCSharp/Properties/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoDirExportDwg/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // 有关程序集的常规信息通过以下 6 | // 特性集控制。更改这些特性值可修改 7 | // 与程序集关联的信息。 8 | [assembly: AssemblyTitle("CreoDirExportDwg")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("")] 12 | [assembly: AssemblyProduct("CreoDirExportDwg")] 13 | [assembly: AssemblyCopyright("Copyright © 2016")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // 将 ComVisible 设置为 false 使此程序集中的类型 18 | // 对 COM 组件不可见。如果需要从 COM 访问此程序集中的类型， 19 | // 则将该类型上的 ComVisible 特性设置为 true。 20 | [assembly: ComVisible(false)] 21 | 22 | // 如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 23 | [assembly: Guid("cc3b1909-322c-43c9-98b5-5b3bdb9261f2")] 24 | 25 | // 程序集的版本信息由下面四个值组成: 26 | // 27 | // 主版本 28 | // 次版本 29 | // 内部版本号 30 | // 修订号 31 | // 32 | // 可以指定所有这些值，也可以使用“内部版本号”和“修订号”的默认值， 33 | // 方法是按如下所示使用“*”: 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoDirExportDwg/app.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoDirExportIgs/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoDirExportIgs/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // 有关程序集的一般信息由以下 6 | // 控制。更改这些特性值可修改 7 | // 与程序集关联的信息。 8 | [assembly: AssemblyTitle("CreoDirExportIges")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("")] 12 | [assembly: AssemblyProduct("CreoDirExportIges")] 13 | [assembly: AssemblyCopyright("Copyright © 2017")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // 将 ComVisible 设置为 false 会使此程序集中的类型 18 | //对 COM 组件不可见。如果需要从 COM 访问此程序集中的类型 19 | //请将此类型的 ComVisible 特性设置为 true。 20 | [assembly: ComVisible(false)] 21 | 22 | // 如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 23 | [assembly: Guid("1f487cde-bbd9-4ec0-a3b1-0831dc804e08")] 24 | 25 | // 程序集的版本信息由下列四个值组成: 26 | // 27 | // 主版本 28 | // 次版本 29 | // 生成号 30 | // 修订号 31 | // 32 | // 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 33 | // 方法是按如下所示使用“*”: : 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoDirExportPdf/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // 有关程序集的常规信息通过以下 6 | // 特性集控制。更改这些特性值可修改 7 | // 与程序集关联的信息。 8 | [assembly: AssemblyTitle("CreoDirExportPdf")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("")] 12 | [assembly: AssemblyProduct("CreoDirExportPdf")] 13 | [assembly: AssemblyCopyright("Copyright © 2016")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // 将 ComVisible 设置为 false 使此程序集中的类型 18 | // 对 COM 组件不可见。如果需要从 COM 访问此程序集中的类型， 19 | // 则将该类型上的 ComVisible 特性设置为 true。 20 | [assembly: ComVisible(false)] 21 | 22 | // 如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 23 | [assembly: Guid("bce0d482-1f22-43dc-9cc5-c85510393d9d")] 24 | 25 | // 程序集的版本信息由下面四个值组成: 26 | // 27 | // 主版本 28 | // 次版本 29 | // 内部版本号 30 | // 修订号 31 | // 32 | // 可以指定所有这些值，也可以使用“内部版本号”和“修订号”的默认值， 33 | // 方法是按如下所示使用“*”: 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoDirExportPdf/app.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoDirExportStep/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // 有关程序集的常规信息通过以下 6 | // 特性集控制。更改这些特性值可修改 7 | // 与程序集关联的信息。 8 | [assembly: AssemblyTitle("CreoDirExportStep")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("")] 12 | [assembly: AssemblyProduct("CreoDirExportStep")] 13 | [assembly: AssemblyCopyright("Copyright © 2016")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // 将 ComVisible 设置为 false 使此程序集中的类型 18 | // 对 COM 组件不可见。如果需要从 COM 访问此程序集中的类型， 19 | // 则将该类型上的 ComVisible 特性设置为 true。 20 | [assembly: ComVisible(false)] 21 | 22 | // 如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 23 | [assembly: Guid("f9fdf145-3a71-482b-801f-c07d11f74128")] 24 | 25 | // 程序集的版本信息由下面四个值组成: 26 | // 27 | // 主版本 28 | // 次版本 29 | // 内部版本号 30 | // 修订号 31 | // 32 | // 可以指定所有这些值，也可以使用“内部版本号”和“修订号”的默认值， 33 | // 方法是按如下所示使用“*”: 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoDirExportStep/app.config: -------------------------------------------------------------------------------- 1 | 2 | 3 | 4 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoFileExportTools/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoFileExportTools/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' 此代码由工具生成。 4 | ' 运行时版本:4.0.30319.42000 5 | ' 6 | ' 对此文件的更改可能会导致不正确的行为，并且如果 7 | ' 重新生成代码，这些更改将会丢失。 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | '注意:此文件是自动生成的；请勿直接进行修改。若要更改， 18 | ' 或者如果您在此文件中遇到生成错误，请转至项目设计器 19 | ' (转至“项目属性”或在解决方案资源管理器中双击“我的项目”节点)， 20 | ' 然后在“应用程序”选项卡中进行更改。 21 | ' 22 | Partial Friend Class MyApplication 23 | 24 | _ 25 | Public Sub New() 26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) 27 | Me.IsSingleInstance = true 28 | Me.EnableVisualStyles = true 29 | Me.SaveMySettingsOnExit = true 30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 31 | End Sub 32 | 33 | _ 34 | Protected Overrides Sub OnCreateMainForm() 35 | Me.MainForm = Global.CreoFileExportTools.Frm_tools 36 | End Sub 37 | End Class 38 | End Namespace 39 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoFileExportTools/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Frm_tools 5 | true 6 | 0 7 | true 8 | 0 9 | true 10 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoFileExportTools/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /CreoFileExportTools/CreoFileExportTools/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /CreoRelationTools/CreoDirRelAdd/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /CreoRelationTools/CreoDirRelAdd/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // 有关程序集的一般信息由以下 6 | // 控制。更改这些特性值可修改 7 | // 与程序集关联的信息。 8 | [assembly: AssemblyTitle("CreoDirRelAdd")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("")] 12 | [assembly: AssemblyProduct("CreoDirRelAdd")] 13 | [assembly: AssemblyCopyright("Copyright © 2017")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // 将 ComVisible 设置为 false 会使此程序集中的类型 18 | //对 COM 组件不可见。如果需要从 COM 访问此程序集中的类型 19 | //请将此类型的 ComVisible 特性设置为 true。 20 | [assembly: ComVisible(false)] 21 | 22 | // 如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 23 | [assembly: Guid("bb517ddb-ef95-4968-9be3-a215c4e31313")] 24 | 25 | // 程序集的版本信息由下列四个值组成: 26 | // 27 | // 主版本 28 | // 次版本 29 | // 生成号 30 | // 修订号 31 | // 32 | // 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 33 | // 方法是按如下所示使用“*”: : 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CreoRelationTools/CreoDirRelRemove/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /CreoRelationTools/CreoDirRelRemove/Properties/AssemblyInfo.cs: -------------------------------------------------------------------------------- 1 | using System.Reflection; 2 | using System.Runtime.CompilerServices; 3 | using System.Runtime.InteropServices; 4 | 5 | // 有关程序集的一般信息由以下 6 | // 控制。更改这些特性值可修改 7 | // 与程序集关联的信息。 8 | [assembly: AssemblyTitle("CreoDirRelClear")] 9 | [assembly: AssemblyDescription("")] 10 | [assembly: AssemblyConfiguration("")] 11 | [assembly: AssemblyCompany("")] 12 | [assembly: AssemblyProduct("CreoDirRelClear")] 13 | [assembly: AssemblyCopyright("Copyright © 2017")] 14 | [assembly: AssemblyTrademark("")] 15 | [assembly: AssemblyCulture("")] 16 | 17 | // 将 ComVisible 设置为 false 会使此程序集中的类型 18 | //对 COM 组件不可见。如果需要从 COM 访问此程序集中的类型 19 | //请将此类型的 ComVisible 特性设置为 true。 20 | [assembly: ComVisible(false)] 21 | 22 | // 如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 23 | [assembly: Guid("d7ecc0b1-6431-4dfc-afdb-89977c910c5d")] 24 | 25 | // 程序集的版本信息由下列四个值组成: 26 | // 27 | // 主版本 28 | // 次版本 29 | // 生成号 30 | // 修订号 31 | // 32 | // 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 33 | // 方法是按如下所示使用“*”: : 34 | // [assembly: AssemblyVersion("1.0.*")] 35 | [assembly: AssemblyVersion("1.0.0.0")] 36 | [assembly: AssemblyFileVersion("1.0.0.0")] 37 | -------------------------------------------------------------------------------- /CreoRelationTools/CreoRelationTools/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /CreoRelationTools/CreoRelationTools/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' 此代码由工具生成。 4 | ' 运行时版本:4.0.30319.42000 5 | ' 6 | ' 对此文件的更改可能会导致不正确的行为，并且如果 7 | ' 重新生成代码，这些更改将会丢失。 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | 15 | Namespace My 16 | 17 | '注意:此文件是自动生成的；请勿直接进行修改。若要更改， 18 | ' 或者如果您在此文件中遇到生成错误，请转至项目设计器 19 | ' (转至“项目属性”或在解决方案资源管理器中双击“我的项目”节点)， 20 | ' 然后在“应用程序”选项卡中进行更改。 21 | ' 22 | Partial Friend Class MyApplication 23 | 24 | _ 25 | Public Sub New() 26 | MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) 27 | Me.IsSingleInstance = false 28 | Me.EnableVisualStyles = true 29 | Me.SaveMySettingsOnExit = true 30 | Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses 31 | End Sub 32 | 33 | _ 34 | Protected Overrides Sub OnCreateMainForm() 35 | Me.MainForm = Global.CreoRelationTools.Frm_tools 36 | End Sub 37 | End Class 38 | End Namespace 39 | -------------------------------------------------------------------------------- /CreoRelationTools/CreoRelationTools/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Frm_tools 5 | false 6 | 0 7 | true 8 | 0 9 | true 10 | -------------------------------------------------------------------------------- /CreoRelationTools/CreoRelationTools/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /CreoRelationTools/CreoRelationTools/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /Familyexport/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /Familyexport/Familyexport.idx: -------------------------------------------------------------------------------- 1 | INST_IDX 12 2 | 2 M10_40 FIN 3 | 2 M12_45 FIN 4 | 2 M16_55 FIN 5 | 2 M20_65 FIN 6 | 2 M22_80 FIN 7 | 2 M24_90 FIN 8 | 2 M30_120 FIN 9 | 2 M36_140 FIN 10 | 2 M42_150 FIN 11 | 2 M48_160 FIN 12 | 2 M64_200 FIN 13 | 2 M8_35 FIN 14 | INST_IDX 12 15 | -------------------------------------------------------------------------------- /Familyexport/Familyexport.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.28803.352 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Familyexport", "Familyexport.vbproj", "{0F35B7FA-0655-40DA-A49F-C42BA84F0102}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {0F35B7FA-0655-40DA-A49F-C42BA84F0102}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {0F35B7FA-0655-40DA-A49F-C42BA84F0102}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {0F35B7FA-0655-40DA-A49F-C42BA84F0102}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {0F35B7FA-0655-40DA-A49F-C42BA84F0102}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {C57AA0D8-B8D4-4B1C-8A82-5BEBEE6A8FE0} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /Familyexport/My Project/Application.Designer.vb: -------------------------------------------------------------------------------- 1 | '------------------------------------------------------------------------------ 2 | ' 3 | ' This code was generated by a tool. 4 | ' Runtime Version:4.0.30319.42000 5 | ' 6 | ' Changes to this file may cause incorrect behavior and will be lost if 7 | ' the code is regenerated. 8 | ' 9 | '------------------------------------------------------------------------------ 10 | 11 | Option Strict On 12 | Option Explicit On 13 | 14 | -------------------------------------------------------------------------------- /Familyexport/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | false 4 | false 5 | 0 6 | true 7 | 0 8 | 2 9 | true 10 | 11 | -------------------------------------------------------------------------------- /Familyexport/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /Familyexport/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /Familyexport/fin.prt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/Familyexport/fin.prt -------------------------------------------------------------------------------- /Familyexport/main.vb: -------------------------------------------------------------------------------- 1 | Module main 2 | 3 | Sub Main(args As String()) 4 | Dim mytool As VBapitool 5 | mytool = New VBapitool(args(0), args(1), args(2)) 6 | If mytool.NewSession() Then 7 | mytool.ExportFamtableinstances() 8 | mytool.EndSession() 9 | End If 10 | End Sub 11 | End Module 12 | -------------------------------------------------------------------------------- /Purge/FrmMain.frm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/Purge/FrmMain.frm -------------------------------------------------------------------------------- /Purge/FrmMain.frx: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/Purge/FrmMain.frx -------------------------------------------------------------------------------- /Purge/Purge.vbp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/Purge/Purge.vbp -------------------------------------------------------------------------------- /Purge/Purge.vbw: -------------------------------------------------------------------------------- 1 | FrmMain = 182, 181, 1449, 822, Z, 26, 26, 1293, 666, C 2 | -------------------------------------------------------------------------------- /TkDllEample/TkDllEample.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 11.00 3 | # Visual Studio 2010 4 | Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "TkDllEample", "TkDllEample\TkDllEample.vcxproj", "{4B4DAFCC-C083-46A8-8AE0-AE59FE4D59C2}" 5 | EndProject 6 | Global 7 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 8 | Debug|Win32 = Debug|Win32 9 | Debug|x64 = Debug|x64 10 | Release|Win32 = Release|Win32 11 | Release|x64 = Release|x64 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {4B4DAFCC-C083-46A8-8AE0-AE59FE4D59C2}.Debug|Win32.ActiveCfg = Debug|Win32 15 | {4B4DAFCC-C083-46A8-8AE0-AE59FE4D59C2}.Debug|Win32.Build.0 = Debug|Win32 16 | {4B4DAFCC-C083-46A8-8AE0-AE59FE4D59C2}.Debug|x64.ActiveCfg = Debug|x64 17 | {4B4DAFCC-C083-46A8-8AE0-AE59FE4D59C2}.Debug|x64.Build.0 = Debug|x64 18 | {4B4DAFCC-C083-46A8-8AE0-AE59FE4D59C2}.Release|Win32.ActiveCfg = Release|Win32 19 | {4B4DAFCC-C083-46A8-8AE0-AE59FE4D59C2}.Release|Win32.Build.0 = Release|Win32 20 | {4B4DAFCC-C083-46A8-8AE0-AE59FE4D59C2}.Release|x64.ActiveCfg = Release|x64 21 | {4B4DAFCC-C083-46A8-8AE0-AE59FE4D59C2}.Release|x64.Build.0 = Release|x64 22 | EndGlobalSection 23 | GlobalSection(SolutionProperties) = preSolution 24 | HideSolutionNode = FALSE 25 | EndGlobalSection 26 | EndGlobal 27 | -------------------------------------------------------------------------------- /TkDllEample/TkDllEample/Resource.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/TkDllEample/TkDllEample/Resource.h -------------------------------------------------------------------------------- /TkDllEample/TkDllEample/TkDllEample.cpp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/TkDllEample/TkDllEample/TkDllEample.cpp -------------------------------------------------------------------------------- /TkDllEample/TkDllEample/TkDllEample.def: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/TkDllEample/TkDllEample/TkDllEample.def -------------------------------------------------------------------------------- /TkDllEample/TkDllEample/TkDllEample.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/TkDllEample/TkDllEample/TkDllEample.h -------------------------------------------------------------------------------- /TkDllEample/TkDllEample/TkDllEample.rc: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/TkDllEample/TkDllEample/TkDllEample.rc -------------------------------------------------------------------------------- /TkDllEample/TkDllEample/res/TkDllEample.rc2: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/TkDllEample/TkDllEample/res/TkDllEample.rc2 -------------------------------------------------------------------------------- /TkDllEample/TkDllEample/stdafx.cpp: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/TkDllEample/TkDllEample/stdafx.cpp -------------------------------------------------------------------------------- /TkDllEample/TkDllEample/stdafx.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/TkDllEample/TkDllEample/stdafx.h -------------------------------------------------------------------------------- /TkDllEample/TkDllEample/targetver.h: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/TkDllEample/TkDllEample/targetver.h -------------------------------------------------------------------------------- /TkDllEample/msg.txt: -------------------------------------------------------------------------------- 1 |  -------------------------------------------------------------------------------- /TkDllEample/prodev.dat: -------------------------------------------------------------------------------- 1 | name TkDllEample 2 | startup dll 3 | allow_stop TRUE 4 | exec_file D:\mydoc\creo_vbapi\TkDllEample\x64\Debug\TkDllEample.dll 5 | text_dir D:\mydoc\creo_vbapi\TkDllEample\msg.txt 6 | revision 18.0 7 | end 8 | -------------------------------------------------------------------------------- /_config.yml: -------------------------------------------------------------------------------- 1 | theme: jekyll-theme-dinky -------------------------------------------------------------------------------- /chapter10.1/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter10.1/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | 3 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 4 | If Creo_Connect() <> True Then 5 | MsgBox("无法连接CREO对话！") 6 | Else 7 | Btn_retrieveExternalData.Enabled = True 8 | Btn_storeExternalData.Enabled = True 9 | End If 10 | End Sub 11 | 12 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 13 | If Creo_New() <> True Then 14 | MsgBox("无法新建CREO对话！") 15 | Else 16 | Btn_retrieveExternalData.Enabled = True 17 | Btn_storeExternalData.Enabled = True 18 | End If 19 | End Sub 20 | 21 | Private Sub Btn_storeExternalData_Click(sender As Object, e As EventArgs) Handles Btn_storeExternalData.Click 22 | Dim table As New Hashtable From { 23 | {"Ref", RTB_ref.Text} 24 | } 25 | StoreExternalData(table, "IMI") 26 | MsgBox("数据已保存。") 27 | End Sub 28 | 29 | Private Sub Btn_retrieveExternalData_Click(sender As Object, e As EventArgs) Handles Btn_retrieveExternalData.Click 30 | Dim table As Hashtable 31 | table = RetrieveExternalData("IMI") 32 | If table.Count = 1 Then 33 | RTB_ref.Text = table.Item("Ref").ToString() 34 | Else 35 | RTB_ref.Text = "" 36 | End If 37 | End Sub 38 | End Class -------------------------------------------------------------------------------- /chapter10.1/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | End Module -------------------------------------------------------------------------------- /chapter10.1/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter10.1/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter10.1/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter10.1/chapter10.1.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.29209.62 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter10.1", "chapter10.1.vbproj", "{920D7052-4A2B-4463-80C0-8F125CAF8B4B}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {920D7052-4A2B-4463-80C0-8F125CAF8B4B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {920D7052-4A2B-4463-80C0-8F125CAF8B4B}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {920D7052-4A2B-4463-80C0-8F125CAF8B4B}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {920D7052-4A2B-4463-80C0-8F125CAF8B4B}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {3BAADD63-0F75-49BB-84EC-EC39CCFD0BB6} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter10.2/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter10.2/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | End Module -------------------------------------------------------------------------------- /chapter10.2/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter10.2/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter10.2/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter10.2/chapter10.2.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.29215.179 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter10.2", "chapter10.2.vbproj", "{0ABECF1D-0B98-46EF-A914-C8797F1A873B}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {0ABECF1D-0B98-46EF-A914-C8797F1A873B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {0ABECF1D-0B98-46EF-A914-C8797F1A873B}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {0ABECF1D-0B98-46EF-A914-C8797F1A873B}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {0ABECF1D-0B98-46EF-A914-C8797F1A873B}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {69667EBB-A079-48AC-BA53-C0153F6FBF10} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter10.3/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter10.3/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 3 | If Creo_New() <> True Then 4 | MsgBox("无法新建CREO对话！") 5 | Else 6 | Btn_setCurrentModelMaterial.Enabled = True 7 | Btn_getCurrentModelMaterial.Enabled = True 8 | End If 9 | End Sub 10 | 11 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 12 | If Creo_Connect() <> True Then 13 | MsgBox("无法连接CREO对话！") 14 | Else 15 | Btn_setCurrentModelMaterial.Enabled = True 16 | Btn_getCurrentModelMaterial.Enabled = True 17 | End If 18 | End Sub 19 | Private Sub Btn_retrieveCurrentModelMaterial_Click(sender As Object, e As EventArgs) Handles Btn_setCurrentModelMaterial.Click 20 | If (OFD.ShowDialog = DialogResult.OK) Then 21 | SetMaterial(IO.Path.GetDirectoryName(OFD.FileName), IO.Path.GetFileNameWithoutExtension(OFD.FileName)) 22 | End If 23 | End Sub 24 | 25 | Private Sub Btn_getCurrentModelMaterial_Click(sender As Object, e As EventArgs) Handles Btn_getCurrentModelMaterial.Click 26 | MsgBox("当前模型包含材料：" + GetInnerMaterial() + Chr(13) + "设定材料为：" + GetMaterial()) 27 | End Sub 28 | End Class -------------------------------------------------------------------------------- /chapter10.3/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | End Module -------------------------------------------------------------------------------- /chapter10.3/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter10.3/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter10.3/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter10.3/chapter10.3.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.30114.105 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter10.3", "chapter10.3.vbproj", "{079935DF-1639-481B-B12E-04484EBF4AA3}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {079935DF-1639-481B-B12E-04484EBF4AA3}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {079935DF-1639-481B-B12E-04484EBF4AA3}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {079935DF-1639-481B-B12E-04484EBF4AA3}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {079935DF-1639-481B-B12E-04484EBF4AA3}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {0E852E9A-EFEC-41A0-B1CD-0E9650657D6E} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter10.4/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter10.4/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | End Module -------------------------------------------------------------------------------- /chapter10.4/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter10.4/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter10.4/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter10.4/chapter10.4.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.30204.135 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter10.4", "chapter10.4.vbproj", "{DBE0E508-FDAF-446D-A1F0-2F6ECEF2BC1C}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {DBE0E508-FDAF-446D-A1F0-2F6ECEF2BC1C}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {DBE0E508-FDAF-446D-A1F0-2F6ECEF2BC1C}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {DBE0E508-FDAF-446D-A1F0-2F6ECEF2BC1C}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {DBE0E508-FDAF-446D-A1F0-2F6ECEF2BC1C}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {B3A757FB-975D-456D-BFD9-2F2AF5DA342A} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter10.5/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter10.5/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 3 | If Creo_New() <> True Then 4 | MsgBox("无法新建CREO对话！") 5 | Else 6 | Btn_rename.Enabled = True 7 | End If 8 | End Sub 9 | 10 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 11 | If Creo_Connect() <> True Then 12 | MsgBox("无法连接CREO对话！") 13 | Else 14 | Btn_rename.Enabled = True 15 | End If 16 | End Sub 17 | 18 | Private Sub Btn_exporttoJpg_Click(sender As Object, e As EventArgs) Handles Btn_rename.Click 19 | RenamePrtandDrw("test") 20 | End Sub 21 | End Class -------------------------------------------------------------------------------- /chapter10.5/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | End Module -------------------------------------------------------------------------------- /chapter10.5/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter10.5/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter10.5/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter10.5/chapter10.5.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.30204.135 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter10.5", "chapter10.5.vbproj", "{47245A94-DEDD-420F-BCD5-F94E0FDEB690}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {47245A94-DEDD-420F-BCD5-F94E0FDEB690}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {47245A94-DEDD-420F-BCD5-F94E0FDEB690}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {47245A94-DEDD-420F-BCD5-F94E0FDEB690}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {47245A94-DEDD-420F-BCD5-F94E0FDEB690}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {69BC0D13-4B30-4288-A693-82FBCC713BC1} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter10.6/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter10.6/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 3 | If Creo_New() <> True Then 4 | MsgBox("无法新建CREO对话！") 5 | Else 6 | Btn_changeView.Enabled = True 7 | Btn_changeMatrix.Enabled = True 8 | End If 9 | End Sub 10 | 11 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 12 | If Creo_Connect() <> True Then 13 | MsgBox("无法连接CREO对话！") 14 | Else 15 | Btn_changeView.Enabled = True 16 | Btn_changeMatrix.Enabled = True 17 | End If 18 | End Sub 19 | 20 | Private Sub Btn_changeView_Click(sender As Object, e As EventArgs) Handles Btn_changeView.Click 21 | RotateView(pfcls.EpfcCoordAxis.EpfcCOORD_AXIS_Z, 90) 22 | End Sub 23 | 24 | Private Sub Btn_changeMatrix_Click(sender As Object, e As EventArgs) Handles Btn_changeMatrix.Click 25 | ChangeToFrontView() 26 | End Sub 27 | End Class -------------------------------------------------------------------------------- /chapter10.6/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | End Module -------------------------------------------------------------------------------- /chapter10.6/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter10.6/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter10.6/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter10.6/chapter10.6.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.30225.117 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter10.6", "chapter10.6.vbproj", "{EDA31E2B-5FE0-4E8C-95FC-D6C31D40B79A}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {EDA31E2B-5FE0-4E8C-95FC-D6C31D40B79A}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {EDA31E2B-5FE0-4E8C-95FC-D6C31D40B79A}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {EDA31E2B-5FE0-4E8C-95FC-D6C31D40B79A}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {EDA31E2B-5FE0-4E8C-95FC-D6C31D40B79A}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {6E2E196A-EAE3-47DE-B57B-8EAEBC331448} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter10.7/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter10.7/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 3 | If Creo_New() <> True Then 4 | MsgBox("无法新建CREO对话！") 5 | Else 6 | Btn_calcOutline.Enabled = True 7 | Btn_calcOutlineCustom.Enabled = True 8 | 9 | End If 10 | End Sub 11 | 12 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 13 | If Creo_Connect() <> True Then 14 | MsgBox("无法连接CREO对话！") 15 | Else 16 | Btn_calcOutline.Enabled = True 17 | Btn_calcOutlineCustom.Enabled = True 18 | End If 19 | End Sub 20 | 21 | Private Sub Btn_calcOutline_Click(sender As Object, e As EventArgs) Handles Btn_calcOutline.Click 22 | Dim outline() As Double = CurrentOutline() 23 | MessageBox.Show("x:" + outline(0).ToString() + Chr(13) + "y:" + outline(1).ToString() + Chr(13) + "z:" + outline(2).ToString()) 24 | End Sub 25 | 26 | Private Sub Btn_calcOutlineCustom_Click(sender As Object, e As EventArgs) Handles Btn_calcOutlineCustom.Click 27 | Dim outline() As Double = CurrentOutlineCustom() 28 | MessageBox.Show("x:" + outline(0).ToString() + Chr(13) + "y:" + outline(1).ToString() + Chr(13) + "z:" + outline(2).ToString()) 29 | End Sub 30 | End Class -------------------------------------------------------------------------------- /chapter10.7/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | End Module -------------------------------------------------------------------------------- /chapter10.7/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter10.7/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter10.7/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter10.7/chapter10.7.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio Version 16 4 | VisualStudioVersion = 16.0.30225.117 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter10.7", "chapter10.7.vbproj", "{73A37106-6BE8-46A8-A655-B7E779158836}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {73A37106-6BE8-46A8-A655-B7E779158836}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {73A37106-6BE8-46A8-A655-B7E779158836}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {73A37106-6BE8-46A8-A655-B7E779158836}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {73A37106-6BE8-46A8-A655-B7E779158836}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {8995C2B6-C829-4BCF-8B9D-29213B7B5D05} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter2.1/chapter2.1.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27004.2006 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter2.1", "chapter2.1\chapter2.1.vbproj", "{C5B58956-EBF5-47BF-AEED-6C591B954F2F}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {C5B58956-EBF5-47BF-AEED-6C591B954F2F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {C5B58956-EBF5-47BF-AEED-6C591B954F2F}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {C5B58956-EBF5-47BF-AEED-6C591B954F2F}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {C5B58956-EBF5-47BF-AEED-6C591B954F2F}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {A1439A0A-82F4-4B5D-83DD-AC507CE2EFEF} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter2.1/chapter2.1/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_new_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_new.Click 3 | If Creo_New() <> True Then 4 | MsgBox("无法新建CREO对话！") 5 | End If 6 | End Sub 7 | 8 | Private Sub Btn_Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Connect.Click 9 | If Creo_Connect() <> True Then 10 | MsgBox("无法连接CREO对话！") 11 | End If 12 | End Sub 13 | End Class 14 | -------------------------------------------------------------------------------- /chapter2.1/chapter2.1/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter2.1/chapter2.1/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter2.1/chapter2.1/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter2.1/chapter2.1/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter2.1/chapter2.1/app.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | -------------------------------------------------------------------------------- /chapter2.2/chapter2.2.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27004.2006 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter2.2", "chapter2.2\chapter2.2.vbproj", "{3544C68A-6017-4176-9F64-DAFEABDAC6AC}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {3544C68A-6017-4176-9F64-DAFEABDAC6AC}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {3544C68A-6017-4176-9F64-DAFEABDAC6AC}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {3544C68A-6017-4176-9F64-DAFEABDAC6AC}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {3544C68A-6017-4176-9F64-DAFEABDAC6AC}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {E9E4E700-B998-4338-86F2-9AFA9AF46742} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter2.2/chapter2.2/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | -------------------------------------------------------------------------------- /chapter2.2/chapter2.2/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_new_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_new.Click 3 | If Creo_New() <> True Then 4 | MsgBox("无法新建CREO对话！") 5 | Else 6 | Btn_refresh.Enabled = True 7 | End If 8 | End Sub 9 | 10 | Private Sub Btn_Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Connect.Click 11 | If Creo_Connect() <> True Then 12 | MsgBox("无法连接到CREO对话！") 13 | Else 14 | Btn_refresh.Enabled = True 15 | End If 16 | End Sub 17 | 18 | Private Sub Btn_refresh_Click(sender As Object, e As EventArgs) Handles Btn_refresh.Click 19 | Refresh() 20 | End Sub 21 | End Class 22 | -------------------------------------------------------------------------------- /chapter2.2/chapter2.2/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter2.2/chapter2.2/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter2.2/chapter2.2/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter2.2/chapter2.2/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter2.3/chapter2.3.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27004.2006 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter2.3", "chapter2.3\chapter2.3.vbproj", "{7AE68ED7-41CC-480F-BC95-FD78193FA25E}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {7AE68ED7-41CC-480F-BC95-FD78193FA25E}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {7AE68ED7-41CC-480F-BC95-FD78193FA25E}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {7AE68ED7-41CC-480F-BC95-FD78193FA25E}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {7AE68ED7-41CC-480F-BC95-FD78193FA25E}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {3D8D7437-FA06-4068-B439-EAF5521EAE92} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter2.3/chapter2.3/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | -------------------------------------------------------------------------------- /chapter2.3/chapter2.3/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_new_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_new.Click 3 | If Creo_New() <> True Then 4 | MsgBox("无法新建CREO对话！") 5 | Else 6 | Btn_select.Enabled = True 7 | Btn_selectionget.Enabled = True 8 | End If 9 | End Sub 10 | 11 | Private Sub Btn_Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Connect.Click 12 | If Creo_Connect() <> True Then 13 | MsgBox("无法连接到CREO对话！") 14 | Else 15 | Btn_select.Enabled = True 16 | Btn_selectionget.Enabled = True 17 | End If 18 | End Sub 19 | 20 | Private Sub Btn_select_Click(sender As Object, e As EventArgs) Handles Btn_select.Click 21 | SelectFeat() 22 | End Sub 23 | 24 | Private Sub Btn_selectionget_Click(sender As Object, e As EventArgs) Handles Btn_selectionget.Click 25 | Selectionget() 26 | End Sub 27 | End Class 28 | -------------------------------------------------------------------------------- /chapter2.3/chapter2.3/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter2.3/chapter2.3/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter2.3/chapter2.3/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter2.3/chapter2.3/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter2.4/chapter2.4.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27004.2008 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter2.4", "chapter2.4\chapter2.4.vbproj", "{56936962-2A20-497C-B72B-FDC189E6A661}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {56936962-2A20-497C-B72B-FDC189E6A661}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {56936962-2A20-497C-B72B-FDC189E6A661}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {56936962-2A20-497C-B72B-FDC189E6A661}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {56936962-2A20-497C-B72B-FDC189E6A661}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {528E462D-1CB3-47C4-9B87-71EF627371E5} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter2.4/chapter2.4/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /chapter2.4/chapter2.4/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_new_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_new.Click 3 | If Creo_New() <> True Then 4 | MsgBox("无法新建CREO对话！") 5 | Else 6 | Btn_open.Enabled = True 7 | Btn_listfiles.Enabled = True 8 | Btn_save.Enabled = True 9 | End If 10 | End Sub 11 | 12 | Private Sub Btn_Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Connect.Click 13 | If Creo_Connect() <> True Then 14 | MsgBox("无法连接到CREO对话！") 15 | Else 16 | Btn_open.Enabled = True 17 | Btn_listfiles.Enabled = True 18 | Btn_save.Enabled = True 19 | End If 20 | End Sub 21 | 22 | Private Sub Btn_open_Click(sender As Object, e As EventArgs) Handles Btn_open.Click 23 | Openprt() 24 | End Sub 25 | 26 | Private Sub Btn_save_Click(sender As Object, e As EventArgs) Handles Btn_save.Click 27 | Savepart() 28 | End Sub 29 | 30 | Private Sub Btn_listfiles_Click(sender As Object, e As EventArgs) Handles Btn_listfiles.Click 31 | ListFiles() 32 | End Sub 33 | End Class 34 | -------------------------------------------------------------------------------- /chapter2.4/chapter2.4/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter2.4/chapter2.4/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter2.4/chapter2.4/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter2.4/chapter2.4/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter3.1/chapter3.1.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27004.2008 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter3.1", "chapter3.1\chapter3.1.vbproj", "{C665269E-BEEA-4C0B-BC98-80084F78B9C1}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {C665269E-BEEA-4C0B-BC98-80084F78B9C1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {C665269E-BEEA-4C0B-BC98-80084F78B9C1}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {C665269E-BEEA-4C0B-BC98-80084F78B9C1}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {C665269E-BEEA-4C0B-BC98-80084F78B9C1}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {BD525951-7F42-4E55-AF29-6DC99F2D499E} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter3.1/chapter3.1/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /chapter3.1/chapter3.1/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_new_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_new.Click 3 | If Creo_New() <> True Then 4 | MsgBox("无法新建CREO对话！") 5 | Else 6 | Btn_addParam.Enabled = True 7 | Btn_delParam.Enabled = True 8 | Btn_modParam.Enabled = True 9 | End If 10 | End Sub 11 | 12 | Private Sub Btn_Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Connect.Click 13 | If Creo_Connect() <> True Then 14 | MsgBox("无法连接到CREO对话！") 15 | Else 16 | Btn_addParam.Enabled = True 17 | Btn_delParam.Enabled = True 18 | Btn_modParam.Enabled = True 19 | End If 20 | End Sub 21 | 22 | Private Sub Btn_addParam_Click(sender As Object, e As EventArgs) Handles Btn_addParam.Click 23 | AddParam(Tb_paramNameAdd.Text, Tb_paramValueAdd.Text, Cmb_paramTypeAdd.Text) 24 | End Sub 25 | 26 | Private Sub Btn_delParam_Click(sender As Object, e As EventArgs) Handles Btn_delParam.Click 27 | DelParam(Tb_paramNameDel.Text) 28 | End Sub 29 | 30 | Private Sub Btn_modParam_Click(sender As Object, e As EventArgs) Handles Btn_modParam.Click 31 | ModParam(Tb_paramNameMod.Text, Tb_paramValueMod.Text, Cmb_paramTypeMod.Text) 32 | End Sub 33 | End Class 34 | -------------------------------------------------------------------------------- /chapter3.1/chapter3.1/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter3.1/chapter3.1/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter3.1/chapter3.1/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter3.1/chapter3.1/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter3.2/chapter3.2.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27004.2008 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter3.2", "chapter3.2\chapter3.2.vbproj", "{3BCDB8E6-012E-435A-95D4-5C74AB7CADDB}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {3BCDB8E6-012E-435A-95D4-5C74AB7CADDB}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {3BCDB8E6-012E-435A-95D4-5C74AB7CADDB}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {3BCDB8E6-012E-435A-95D4-5C74AB7CADDB}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {3BCDB8E6-012E-435A-95D4-5C74AB7CADDB}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {08AB1598-C9ED-4029-9013-88A300E956ED} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter3.2/chapter3.2/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /chapter3.2/chapter3.2/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_new_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_new.Click 3 | If Creo_New() <> True Then 4 | MsgBox("无法新建CREO对话！") 5 | Else 6 | Btn_delRel.Enabled = True 7 | Btn_addRel.Enabled = True 8 | End If 9 | End Sub 10 | 11 | Private Sub Btn_Connect_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Connect.Click 12 | If Creo_Connect() <> True Then 13 | MsgBox("无法连接到CREO对话！") 14 | Else 15 | Btn_delRel.Enabled = True 16 | Btn_addRel.Enabled = True 17 | End If 18 | End Sub 19 | 20 | Private Sub Btn_delRel_Click(sender As Object, e As EventArgs) Handles Btn_delRel.Click 21 | DelRelations() 22 | End Sub 23 | 24 | Private Sub Btn_addRel_Click(sender As Object, e As EventArgs) Handles Btn_addRel.Click 25 | AddRelations(Rtb_rel.Lines) 26 | End Sub 27 | End Class 28 | -------------------------------------------------------------------------------- /chapter3.2/chapter3.2/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter3.2/chapter3.2/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter3.2/chapter3.2/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter3.2/chapter3.2/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter4.1/chapter4.1.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27004.2008 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter4.1", "chapter4.1\chapter4.1.vbproj", "{B143EFF9-ADE0-4DB4-8AEB-3519A6B80DF5}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {B143EFF9-ADE0-4DB4-8AEB-3519A6B80DF5}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {B143EFF9-ADE0-4DB4-8AEB-3519A6B80DF5}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {B143EFF9-ADE0-4DB4-8AEB-3519A6B80DF5}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {B143EFF9-ADE0-4DB4-8AEB-3519A6B80DF5}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {CB311D60-6A13-44D8-9DEC-A6381765AC3F} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter4.1/chapter4.1/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /chapter4.1/chapter4.1/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter4.1/chapter4.1/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter4.1/chapter4.1/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter4.1/chapter4.1/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter5.1/chapter5.1.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27004.2009 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter5.1", "chapter5.1\chapter5.1.vbproj", "{3DB85425-874F-4690-844E-F505C26E22BC}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {3DB85425-874F-4690-844E-F505C26E22BC}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {3DB85425-874F-4690-844E-F505C26E22BC}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {3DB85425-874F-4690-844E-F505C26E22BC}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {3DB85425-874F-4690-844E-F505C26E22BC}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {2E011448-9E77-4606-B6EA-8C5B12E17CAE} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter5.1/chapter5.1/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /chapter5.1/chapter5.1/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter5.1/chapter5.1/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter5.1/chapter5.1/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter5.1/chapter5.1/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter6.1/chapter6.1.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27130.2003 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter6.1", "chapter6.1\chapter6.1.vbproj", "{36EC80BE-4E1C-411D-9C07-422F1DE1F1DD}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {36EC80BE-4E1C-411D-9C07-422F1DE1F1DD}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {36EC80BE-4E1C-411D-9C07-422F1DE1F1DD}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {36EC80BE-4E1C-411D-9C07-422F1DE1F1DD}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {36EC80BE-4E1C-411D-9C07-422F1DE1F1DD}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {0E939495-6D22-44F7-A798-3DD4ECECA92C} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter6.1/chapter6.1/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /chapter6.1/chapter6.1/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Imports pfcls 2 | 3 | Public Class Frm_load 4 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 5 | If Creo_Connect() <> True Then 6 | MsgBox("无法连接CREO对话！") 7 | Else 8 | Btn_assemble.Enabled = True 9 | Btn_constrainsAdd.Enabled = True 10 | End If 11 | End Sub 12 | 13 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 14 | If Creo_New() <> True Then 15 | MsgBox("无法新建CREO对话！") 16 | Else 17 | Btn_assemble.Enabled = True 18 | Btn_constrainsAdd.Enabled = True 19 | End If 20 | End Sub 21 | 22 | Private Sub Btn_assemble_Click(sender As Object, e As EventArgs) Handles Btn_assemble.Click 23 | InsertComp() 24 | End Sub 25 | 26 | Private Sub Btn_constrainsAdd_Click(sender As Object, e As EventArgs) Handles Btn_constrainsAdd.Click 27 | SetConstrainOffSet() 28 | End Sub 29 | End Class 30 | -------------------------------------------------------------------------------- /chapter6.1/chapter6.1/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter6.1/chapter6.1/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter6.1/chapter6.1/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter6.1/chapter6.1/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter6.2/chapter6.2.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27130.2003 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter6.2", "chapter6.2\chapter6.2.vbproj", "{DA19E860-E51E-44FC-8031-DE9608305C33}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {DA19E860-E51E-44FC-8031-DE9608305C33}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {DA19E860-E51E-44FC-8031-DE9608305C33}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {DA19E860-E51E-44FC-8031-DE9608305C33}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {DA19E860-E51E-44FC-8031-DE9608305C33}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {E4CC8A8A-655D-48AD-8126-6609B886B983} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter6.2/chapter6.2/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /chapter6.2/chapter6.2/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 3 | If Creo_Connect() <> True Then 4 | MsgBox("无法连接CREO对话！") 5 | Else 6 | Btn_globalInterferenceInfo.Enabled = True 7 | End If 8 | End Sub 9 | 10 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 11 | If Creo_New() <> True Then 12 | MsgBox("无法新建CREO对话！") 13 | Else 14 | Btn_globalInterferenceInfo.Enabled = True 15 | End If 16 | End Sub 17 | 18 | Private Sub Btn_globalInterferenceInfo_Click(sender As Object, e As EventArgs) Handles Btn_globalInterferenceInfo.Click 19 | Rtb_info.Text = GetGlobalInterferences() 20 | End Sub 21 | 22 | Private Sub Btn_interferenceSel_Click(sender As Object, e As EventArgs) Handles Btn_interferenceSel.Click 23 | MessageBox.Show(GetSelInterferences()) 24 | End Sub 25 | End Class 26 | -------------------------------------------------------------------------------- /chapter6.2/chapter6.2/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter6.2/chapter6.2/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter6.2/chapter6.2/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter6.2/chapter6.2/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter6.3/chapter6.3.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27130.2003 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter6.3", "chapter6.3\chapter6.3.vbproj", "{9F94E59A-34D3-486C-B5A2-5499207FD846}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {9F94E59A-34D3-486C-B5A2-5499207FD846}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {9F94E59A-34D3-486C-B5A2-5499207FD846}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {9F94E59A-34D3-486C-B5A2-5499207FD846}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {9F94E59A-34D3-486C-B5A2-5499207FD846}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {48B0C7BA-34BD-416C-9F90-29AA4FD47105} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter6.3/chapter6.3/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /chapter6.3/chapter6.3/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 3 | If Creo_Connect() <> True Then 4 | MsgBox("无法连接CREO对话！") 5 | Else 6 | Btn_assemblyTreeinfo.Enabled = True 7 | End If 8 | End Sub 9 | 10 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 11 | If Creo_New() <> True Then 12 | MsgBox("无法新建CREO对话！") 13 | Else 14 | Btn_assemblyTreeinfo.Enabled = True 15 | End If 16 | End Sub 17 | 18 | Private Sub Btn_assemblyTreeinfo_Click(sender As Object, e As EventArgs) Handles Btn_assemblyTreeinfo.Click 19 | Rtb_info.Text = ComponentFeatTreeInfo() 20 | End Sub 21 | End Class 22 | -------------------------------------------------------------------------------- /chapter6.3/chapter6.3/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter6.3/chapter6.3/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter6.3/chapter6.3/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter6.3/chapter6.3/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter7.1/chapter7.1.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27130.2003 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter7.1", "chapter7.1\chapter7.1.vbproj", "{D150FD1E-AA38-465D-9CEA-961E94A54CE0}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {D150FD1E-AA38-465D-9CEA-961E94A54CE0}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {D150FD1E-AA38-465D-9CEA-961E94A54CE0}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {D150FD1E-AA38-465D-9CEA-961E94A54CE0}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {D150FD1E-AA38-465D-9CEA-961E94A54CE0}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {B3F7F17A-C57F-4C50-9B68-9B5D51D03FC8} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter7.1/chapter7.1/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /chapter7.1/chapter7.1/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 3 | If Creo_Connect() <> True Then 4 | MsgBox("无法连接CREO对话！") 5 | Else 6 | Btn_Prefix.Enabled = True 7 | Btn_Surffix.Enabled = True 8 | Btn_DownText.Enabled = True 9 | End If 10 | End Sub 11 | 12 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 13 | If Creo_New() <> True Then 14 | MsgBox("无法新建CREO对话！") 15 | Else 16 | Btn_Prefix.Enabled = True 17 | Btn_Surffix.Enabled = True 18 | Btn_DownText.Enabled = True 19 | End If 20 | End Sub 21 | 22 | Private Sub Btn_Prefix_Click(sender As Object, e As EventArgs) Handles Btn_Prefix.Click 23 | Modify_text("4-", "", "") 24 | End Sub 25 | 26 | Private Sub Btn_Surffix_Click(sender As Object, e As EventArgs) Handles Btn_Surffix.Click 27 | Modify_text("", "-6H", "") 28 | End Sub 29 | 30 | Private Sub Btn_DownText_Click(sender As Object, e As EventArgs) Handles Btn_DownText.Click 31 | Modify_text("", "", "跨中均布") 32 | End Sub 33 | End Class 34 | -------------------------------------------------------------------------------- /chapter7.1/chapter7.1/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | 3 | End Module 4 | -------------------------------------------------------------------------------- /chapter7.1/chapter7.1/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter7.1/chapter7.1/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter7.1/chapter7.1/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter7.10/chapter7.10.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27703.2026 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter7.10", "chapter7.10\chapter7.10.vbproj", "{BF15B822-B5C2-446C-B6A6-677B4AA93EFF}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {BF15B822-B5C2-446C-B6A6-677B4AA93EFF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {BF15B822-B5C2-446C-B6A6-677B4AA93EFF}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {BF15B822-B5C2-446C-B6A6-677B4AA93EFF}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {BF15B822-B5C2-446C-B6A6-677B4AA93EFF}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {09F3397C-6E67-4DA4-9445-C7BD459B7327} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter7.10/chapter7.10/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter7.10/chapter7.10/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Imports System.Configuration 2 | Imports pfcls 3 | 4 | Public Class Frm_load 5 | 6 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 7 | If Creo_Connect() <> True Then 8 | MsgBox("无法连接CREO对话！") 9 | Else 10 | Btn_GBChamfer.Enabled = True 11 | End If 12 | End Sub 13 | 14 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 15 | If Creo_New() <> True Then 16 | MsgBox("无法新建CREO对话！") 17 | Else 18 | Btn_GBChamfer.Enabled = True 19 | End If 20 | End Sub 21 | 22 | Private Sub Btn_CreateLine_Click(sender As Object, e As EventArgs) Handles Btn_GBChamfer.Click 23 | GBCharmfer() 24 | End Sub 25 | End Class -------------------------------------------------------------------------------- /chapter7.10/chapter7.10/Module_win.vb: -------------------------------------------------------------------------------- 1 | Imports System.IO 2 | 3 | Module Module_win 4 | 5 | End Module 6 | -------------------------------------------------------------------------------- /chapter7.10/chapter7.10/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Frm_load 5 | false 6 | 0 7 | true 8 | 0 9 | true 10 | -------------------------------------------------------------------------------- /chapter7.10/chapter7.10/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter7.10/chapter7.10/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter7.2/chapter7.2.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27130.2026 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter7.2", "chapter7.2\chapter7.2.vbproj", "{B7FA3EF5-E79D-4E67-B8EA-8D75A5D0A624}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {B7FA3EF5-E79D-4E67-B8EA-8D75A5D0A624}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {B7FA3EF5-E79D-4E67-B8EA-8D75A5D0A624}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {B7FA3EF5-E79D-4E67-B8EA-8D75A5D0A624}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {B7FA3EF5-E79D-4E67-B8EA-8D75A5D0A624}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {C6667941-87AA-4DDC-8B97-23C3FB6170F7} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter7.2/chapter7.2/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | -------------------------------------------------------------------------------- /chapter7.2/chapter7.2/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter7.2/chapter7.2/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter7.2/chapter7.2/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter7.3/chapter7.3.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27130.2036 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter7.3", "chapter7.3\chapter7.3.vbproj", "{C41A13BC-F77B-45E7-804C-30BA089EF649}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {C41A13BC-F77B-45E7-804C-30BA089EF649}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {C41A13BC-F77B-45E7-804C-30BA089EF649}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {C41A13BC-F77B-45E7-804C-30BA089EF649}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {C41A13BC-F77B-45E7-804C-30BA089EF649}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {D9DB179B-73D8-4E2D-8A48-71234F387A61} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter7.3/chapter7.3/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | -------------------------------------------------------------------------------- /chapter7.3/chapter7.3/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Imports System.Configuration 2 | 3 | Public Class Frm_load 4 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 5 | If Creo_Connect() <> True Then 6 | MsgBox("无法连接CREO对话！") 7 | Else 8 | Btn_noteNoLeader.Enabled = True 9 | Btn_noteWithLeader.Enabled = True 10 | End If 11 | End Sub 12 | 13 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 14 | If Creo_New() <> True Then 15 | MsgBox("无法新建CREO对话！") 16 | Else 17 | Btn_noteNoLeader.Enabled = True 18 | Btn_noteWithLeader.Enabled = True 19 | End If 20 | End Sub 21 | 22 | Private Sub Frm_load_Load(sender As Object, e As EventArgs) Handles MyBase.Load 23 | '设置消息文件路径，在App.config增加新配置了 24 | Msg_file = ConfigurationManager.AppSettings("Messagefile").ToString() 25 | End Sub 26 | 27 | Private Sub Btn_noteNoLeader_Click(sender As Object, e As EventArgs) Handles Btn_noteNoLeader.Click 28 | CreateNoteWithoutLeader(Rtb_note.Text) 29 | End Sub 30 | 31 | Private Sub Btn_noteWithLeader_Click(sender As Object, e As EventArgs) Handles Btn_noteWithLeader.Click 32 | CreateNoteWithLeader(Rtb_note.Text) 33 | End Sub 34 | End Class 35 | -------------------------------------------------------------------------------- /chapter7.3/chapter7.3/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter7.3/chapter7.3/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter7.3/chapter7.3/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter7.3/msg.txt: -------------------------------------------------------------------------------- 1 | GetNotePos 2 | 鼠标左键点击选择注解放置位置 3 | 鼠标左键点击选择注解放置位置 4 | # 5 | GetEdgeForLeader 6 | 选择一个边引出注解引线 7 | 选择一个边引出注解引线 8 | # -------------------------------------------------------------------------------- /chapter7.4/chapter7.4.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27130.2036 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter7.4", "chapter7.4\chapter7.4.vbproj", "{4E01B66B-2BA5-40F6-A8E0-7EC59A6E24B7}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {4E01B66B-2BA5-40F6-A8E0-7EC59A6E24B7}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {4E01B66B-2BA5-40F6-A8E0-7EC59A6E24B7}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {4E01B66B-2BA5-40F6-A8E0-7EC59A6E24B7}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {4E01B66B-2BA5-40F6-A8E0-7EC59A6E24B7}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {CB54AA81-F35D-454E-AAC0-6BFD43821C6F} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter7.4/chapter7.4/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter7.4/chapter7.4/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter7.4/chapter7.4/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter7.4/chapter7.4/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter7.4/msg.txt: -------------------------------------------------------------------------------- 1 | GetNotePos 2 | 鼠标左键点击选择注解放置位置 3 | 鼠标左键点击选择注解放置位置 4 | # 5 | GetEdgeForLeader 6 | 选择一个边引出注解引线 7 | 选择一个边引出注解引线 8 | # -------------------------------------------------------------------------------- /chapter7.5/chapter7.5/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter7.5/chapter7.5/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Imports System.Configuration 2 | Imports pfcls 3 | 4 | Public Class Frm_load 5 | 6 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 7 | If Creo_Connect() <> True Then 8 | MsgBox("无法连接CREO对话！") 9 | Else 10 | Btn_layerCreate.Enabled = True 11 | End If 12 | End Sub 13 | 14 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 15 | If Creo_New() <> True Then 16 | MsgBox("无法新建CREO对话！") 17 | Else 18 | Btn_layerCreate.Enabled = True 19 | End If 20 | End Sub 21 | 22 | Private Sub Frm_load_Load(sender As Object, e As EventArgs) Handles MyBase.Load 23 | '设置消息文件路径，在App.config增加新配置了 24 | Msg_file = ConfigurationManager.AppSettings("Messagefile").ToString() 25 | '设置符号文件目录，在App.config增加新配置了 26 | Symbolpath = ConfigurationManager.AppSettings("SymbolFilePath").ToString() 27 | End Sub 28 | 29 | Private Sub Btn_layerCreate_Click(sender As Object, e As EventArgs) Handles Btn_layerCreate.Click 30 | CreateLayers() 31 | End Sub 32 | End Class -------------------------------------------------------------------------------- /chapter7.5/chapter7.5/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter7.5/chapter7.5/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter7.5/chapter7.5/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter7.6/GBqiubiao.sym: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/chapter7.6/GBqiubiao.sym -------------------------------------------------------------------------------- /chapter7.6/chapter7.6.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27130.2036 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter7.6", "chapter7.6\chapter7.6.vbproj", "{433A5595-E6C3-45C8-9639-51F4F3265FC0}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {433A5595-E6C3-45C8-9639-51F4F3265FC0}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {433A5595-E6C3-45C8-9639-51F4F3265FC0}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {433A5595-E6C3-45C8-9639-51F4F3265FC0}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {433A5595-E6C3-45C8-9639-51F4F3265FC0}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {A6BDCE7C-38FF-4AEE-AE75-37FDCF9331F1} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter7.6/chapter7.6/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter7.6/chapter7.6/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_load 2 | 3 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 4 | If Creo_Connect() <> True Then 5 | MsgBox("无法连接CREO对话！") 6 | Else 7 | Btn_listTables.Enabled = True 8 | Btn_setTableCell.Enabled = True 9 | Btn_getTableCell.Enabled = True 10 | End If 11 | End Sub 12 | 13 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 14 | If Creo_New() <> True Then 15 | MsgBox("无法新建CREO对话！") 16 | Else 17 | Btn_listTables.Enabled = True 18 | Btn_setTableCell.Enabled = True 19 | Btn_getTableCell.Enabled = True 20 | End If 21 | End Sub 22 | 23 | Private Sub Btn_listTables_Click(sender As Object, e As EventArgs) Handles Btn_listTables.Click 24 | MessageBox.Show(TablesInfo()) 25 | End Sub 26 | 27 | Private Sub Btn_setTableCell_Click(sender As Object, e As EventArgs) Handles Btn_setTableCell.Click 28 | SetTableInfo("这是修改后的文字", 1, 1) 29 | End Sub 30 | 31 | Private Sub Btn_getTableCell_Click(sender As Object, e As EventArgs) Handles Btn_getTableCell.Click 32 | MessageBox.Show(GetTableInfo(2, 1)) 33 | End Sub 34 | 35 | End Class -------------------------------------------------------------------------------- /chapter7.6/chapter7.6/Module_win.vb: -------------------------------------------------------------------------------- 1 | Module Module_win 2 | End Module -------------------------------------------------------------------------------- /chapter7.6/chapter7.6/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter7.6/chapter7.6/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter7.6/chapter7.6/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter7.6/msg.txt: -------------------------------------------------------------------------------- 1 | GetNotePos 2 | 鼠标左键点击选择注解放置位置 3 | 鼠标左键点击选择注解放置位置 4 | # 5 | GetEdgeForLeader 6 | 选择一个边引出注解引线 7 | 选择一个边引出注解引线 8 | # -------------------------------------------------------------------------------- /chapter7.7/GBqiubiao.sym: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/chapter7.7/GBqiubiao.sym -------------------------------------------------------------------------------- /chapter7.7/chapter7.7.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27130.2036 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter7.7", "chapter7.7\chapter7.7.vbproj", "{B3BE83E7-A749-4A7A-A542-67936A709657}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {B3BE83E7-A749-4A7A-A542-67936A709657}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {B3BE83E7-A749-4A7A-A542-67936A709657}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {B3BE83E7-A749-4A7A-A542-67936A709657}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {B3BE83E7-A749-4A7A-A542-67936A709657}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {2DBC7C32-8B7C-4533-A582-E3F9BF86C824} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter7.7/chapter7.7/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter7.7/chapter7.7/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Imports System.Configuration 2 | Imports pfcls 3 | 4 | Public Class Frm_load 5 | 6 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 7 | If Creo_Connect() <> True Then 8 | MsgBox("无法连接CREO对话！") 9 | Else 10 | Btn_GBBallon.Enabled = True 11 | Btn_horizonBalloon.Enabled = True 12 | Btn_verticalBalloon.Enabled = True 13 | End If 14 | End Sub 15 | 16 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 17 | If Creo_New() <> True Then 18 | MsgBox("无法新建CREO对话！") 19 | Else 20 | Btn_GBBallon.Enabled = True 21 | Btn_horizonBalloon.Enabled = True 22 | Btn_verticalBalloon.Enabled = True 23 | End If 24 | End Sub 25 | 26 | Private Sub Btn_GBBallon_Click(sender As Object, e As EventArgs) Handles Btn_GBBallon.Click 27 | GBBalloon() 28 | End Sub 29 | 30 | Private Sub Btn_verticalBalloon_Click(sender As Object, e As EventArgs) Handles Btn_verticalBalloon.Click 31 | VerticalBallon() 32 | End Sub 33 | 34 | Private Sub Btn_horizonBalloon_Click(sender As Object, e As EventArgs) Handles Btn_horizonBalloon.Click 35 | HorizonBallon() 36 | End Sub 37 | End Class -------------------------------------------------------------------------------- /chapter7.7/chapter7.7/Module_win.vb: -------------------------------------------------------------------------------- 1 | Imports System.IO 2 | 3 | Module Module_win 4 | 5 | End Module 6 | -------------------------------------------------------------------------------- /chapter7.7/chapter7.7/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter7.7/chapter7.7/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter7.7/chapter7.7/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter7.7/msg.txt: -------------------------------------------------------------------------------- 1 | GetNotePos 2 | 鼠标左键点击选择注解放置位置 3 | 鼠标左键点击选择注解放置位置 4 | # 5 | GetEdgeForLeader 6 | 选择一个边引出注解引线 7 | 选择一个边引出注解引线 8 | # -------------------------------------------------------------------------------- /chapter7.8/chapter7.8/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter7.8/chapter7.8/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Imports System.Configuration 2 | Imports pfcls 3 | 4 | Public Class Frm_load 5 | 6 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 7 | If Creo_Connect() <> True Then 8 | MsgBox("无法连接CREO对话！") 9 | Else 10 | Btn_changeSheet.Enabled = True 11 | End If 12 | End Sub 13 | 14 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 15 | If Creo_New() <> True Then 16 | MsgBox("无法新建CREO对话！") 17 | Else 18 | Btn_changeSheet.Enabled = True 19 | End If 20 | End Sub 21 | 22 | Private Sub Btn_GBBallon_Click(sender As Object, e As EventArgs) Handles Btn_changeSheet.Click 23 | 24 | OFD.Filter = "图框文件(*.frm)|*.frm" 25 | OFD.FilterIndex = 1 26 | If (OFD.ShowDialog() = DialogResult.OK) Then 27 | ChangeSheet(OFD.FileName) 28 | 29 | End If 30 | End Sub 31 | 32 | End Class -------------------------------------------------------------------------------- /chapter7.8/chapter7.8/Module_win.vb: -------------------------------------------------------------------------------- 1 | Imports System.IO 2 | 3 | Module Module_win 4 | 5 | End Module 6 | -------------------------------------------------------------------------------- /chapter7.8/chapter7.8/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter7.8/chapter7.8/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter7.8/chapter7.8/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter7.9/chapter7.9.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27130.2036 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter7.9", "chapter7.9\chapter7.9.vbproj", "{D17479DB-F9F5-41B5-AF30-280A123645CF}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {D17479DB-F9F5-41B5-AF30-280A123645CF}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {D17479DB-F9F5-41B5-AF30-280A123645CF}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {D17479DB-F9F5-41B5-AF30-280A123645CF}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {D17479DB-F9F5-41B5-AF30-280A123645CF}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {76E985D7-179E-4546-841E-BDCCBF8E25A3} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter7.9/chapter7.9/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter7.9/chapter7.9/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Imports System.Configuration 2 | Imports pfcls 3 | 4 | Public Class Frm_load 5 | 6 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 7 | If Creo_Connect() <> True Then 8 | MsgBox("无法连接CREO对话！") 9 | Else 10 | Btn_CreateLine.Enabled = True 11 | End If 12 | End Sub 13 | 14 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 15 | If Creo_New() <> True Then 16 | MsgBox("无法新建CREO对话！") 17 | Else 18 | Btn_CreateLine.Enabled = True 19 | End If 20 | End Sub 21 | 22 | Private Sub Btn_CreateLine_Click(sender As Object, e As EventArgs) Handles Btn_CreateLine.Click 23 | CreateLine() 24 | End Sub 25 | End Class -------------------------------------------------------------------------------- /chapter7.9/chapter7.9/Module_win.vb: -------------------------------------------------------------------------------- 1 | Imports System.IO 2 | 3 | Module Module_win 4 | 5 | End Module 6 | -------------------------------------------------------------------------------- /chapter7.9/chapter7.9/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter7.9/chapter7.9/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter7.9/chapter7.9/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter8.1/chapter8.1.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.27130.2036 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter8.1", "chapter8.1\chapter8.1.vbproj", "{F42D3103-62AA-4707-9D1C-C852A0D87A21}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {F42D3103-62AA-4707-9D1C-C852A0D87A21}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {F42D3103-62AA-4707-9D1C-C852A0D87A21}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {F42D3103-62AA-4707-9D1C-C852A0D87A21}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {F42D3103-62AA-4707-9D1C-C852A0D87A21}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {6415D372-FFA9-4037-B081-519F5C1E2D39} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter8.1/chapter8.1/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | -------------------------------------------------------------------------------- /chapter8.1/chapter8.1/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Imports System.Configuration 2 | Public Class Frm_load 3 | 4 | Private Sub Init() 5 | '开始监听事件，Full Asynchronous Mode需要 6 | EventProcess() 7 | Btn_AddModelListener.Enabled = True 8 | End Sub 9 | 10 | 11 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 12 | If Creo_Connect() <> True Then 13 | MsgBox("无法连接CREO对话！") 14 | Else 15 | Init() 16 | End If 17 | End Sub 18 | 19 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 20 | If Creo_New() <> True Then 21 | MsgBox("无法新建CREO对话！") 22 | Else 23 | Init() 24 | End If 25 | End Sub 26 | 27 | Private Sub Btn_AddModelListener_Click(sender As Object, e As EventArgs) Handles Btn_AddModelListener.Click 28 | AddSessionActionListener() 29 | End Sub 30 | End Class -------------------------------------------------------------------------------- /chapter8.1/chapter8.1/Module_win.vb: -------------------------------------------------------------------------------- 1 | Imports System.IO 2 | 3 | Module Module_win 4 | Public Msg_file As String = "" '消息文件路径 5 | Public Url As String = "" '导航器栏Url 6 | Public IconFile As String = "" '图标文件地址 7 | End Module 8 | -------------------------------------------------------------------------------- /chapter8.1/chapter8.1/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter8.1/chapter8.1/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' 有关程序集的一般信息由以下 6 | ' 控制。更改这些特性值可修改 7 | ' 与程序集关联的信息。 8 | 9 | '查看程序集特性的值 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | '如果此项目向 COM 公开，则下列 GUID 用于类型库的 ID 21 | 22 | 23 | ' 程序集的版本信息由下列四个值组成: 24 | ' 25 | ' 主版本 26 | ' 次版本 27 | ' 生成号 28 | ' 修订号 29 | ' 30 | ' 可以指定所有值，也可以使用以下所示的 "*" 预置版本号和修订号 31 | ' 方法是按如下所示使用“*”: : 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter8.1/chapter8.1/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter8.2/app.ico: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/chapter8.2/app.ico -------------------------------------------------------------------------------- /chapter8.2/chapter8.2.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.28010.2041 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter8.2", "chapter8.2\chapter8.2.vbproj", "{612BF591-D79A-4079-A7A1-376D9C149C3D}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {612BF591-D79A-4079-A7A1-376D9C149C3D}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {612BF591-D79A-4079-A7A1-376D9C149C3D}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {612BF591-D79A-4079-A7A1-376D9C149C3D}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {612BF591-D79A-4079-A7A1-376D9C149C3D}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {3A5F1592-26A6-48A0-AF1A-7A598806A144} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter8.2/chapter8.2/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | -------------------------------------------------------------------------------- /chapter8.2/chapter8.2/Module_win.vb: -------------------------------------------------------------------------------- 1 | Imports System.IO 2 | 3 | Module Module_win 4 | Public Msg_file As String = "" '消息文件路径 5 | Public Url As String = "" '导航器栏Url 6 | Public IconFile As String = "" '图标文件地址 7 | End Module 8 | -------------------------------------------------------------------------------- /chapter8.2/chapter8.2/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter8.2/chapter8.2/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter8.2/chapter8.2/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter8.2/msg.txt: -------------------------------------------------------------------------------- 1 | PrintMessage 2 | 你点击菜单了 3 | 你点击菜单了 4 | # 5 | 6 | 7 | MyPushButton 8 | 自定义按钮 9 | 自定义按钮 10 | # 11 | 12 | MyPushButtonHelp 13 | 自定义按钮帮助文本 14 | 自定义按钮帮助文本 15 | # 16 | -------------------------------------------------------------------------------- /chapter8.3/chapter8.3.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.28010.2041 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter8.3", "chapter8.3\chapter8.3.vbproj", "{4C540B4C-537B-4690-B4CE-136618582238}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {4C540B4C-537B-4690-B4CE-136618582238}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {4C540B4C-537B-4690-B4CE-136618582238}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {4C540B4C-537B-4690-B4CE-136618582238}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {4C540B4C-537B-4690-B4CE-136618582238}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {32AD66DE-4754-4857-83E1-C5F134EE610D} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter8.3/chapter8.3/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | -------------------------------------------------------------------------------- /chapter8.3/chapter8.3/Frm_load.vb: -------------------------------------------------------------------------------- 1 | Imports System.Configuration 2 | 3 | Public Class Frm_load 4 | 5 | Private Sub Btn_Connect_Click(sender As Object, e As EventArgs) Handles Btn_Connect.Click 6 | If Creo_Connect() <> True Then 7 | MsgBox("无法连接CREO对话！") 8 | Else 9 | Btn_LoadToolkitDll.Enabled = True 10 | Btn_ExcuteFun.Enabled = True 11 | End If 12 | End Sub 13 | 14 | Private Sub Btn_new_Click(sender As Object, e As EventArgs) Handles Btn_new.Click 15 | If Creo_New() <> True Then 16 | MsgBox("无法新建CREO对话！") 17 | Else 18 | Btn_LoadToolkitDll.Enabled = True 19 | Btn_ExcuteFun.Enabled = True 20 | End If 21 | End Sub 22 | 23 | Private Sub Frm_load_Load(sender As Object, e As EventArgs) Handles MyBase.Load 24 | '设置相关路径，在App.config增加新配置了 25 | TKDLLName = ConfigurationManager.AppSettings("TKDLLName").ToString() 26 | DllPath = ConfigurationManager.AppSettings("DllPath").ToString() 27 | TextPath = ConfigurationManager.AppSettings("TextPath").ToString() 28 | End Sub 29 | 30 | Private Sub Btn_LoadToolkitDll_Click(sender As Object, e As EventArgs) Handles Btn_LoadToolkitDll.Click 31 | LoadToolkitDll() 32 | End Sub 33 | 34 | Private Sub Btn_ExcuteFun_Click(sender As Object, e As EventArgs) Handles Btn_ExcuteFun.Click 35 | ExecuteFunction(2) 36 | End Sub 37 | End Class -------------------------------------------------------------------------------- /chapter8.3/chapter8.3/Module_win.vb: -------------------------------------------------------------------------------- 1 | Imports System.IO 2 | 3 | Module Module_win 4 | Public TKDLLName As String = "" 'Toolkit程序名称 5 | Public DllPath As String = "" 'Dll文件路径 6 | Public TextPath As String = "" 'Dll对应消息文件路径 7 | End Module 8 | -------------------------------------------------------------------------------- /chapter8.3/chapter8.3/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter8.3/chapter8.3/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter8.3/chapter8.3/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /chapter9.1/chapter9.1.sln: -------------------------------------------------------------------------------- 1 |  2 | Microsoft Visual Studio Solution File, Format Version 12.00 3 | # Visual Studio 15 4 | VisualStudioVersion = 15.0.28010.2046 5 | MinimumVisualStudioVersion = 10.0.40219.1 6 | Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "chapter9.1", "chapter9.1\chapter9.1.vbproj", "{A34D86B1-2035-41FF-88DC-E14A59F7CB1B}" 7 | EndProject 8 | Global 9 | GlobalSection(SolutionConfigurationPlatforms) = preSolution 10 | Debug|Any CPU = Debug|Any CPU 11 | Release|Any CPU = Release|Any CPU 12 | EndGlobalSection 13 | GlobalSection(ProjectConfigurationPlatforms) = postSolution 14 | {A34D86B1-2035-41FF-88DC-E14A59F7CB1B}.Debug|Any CPU.ActiveCfg = Debug|Any CPU 15 | {A34D86B1-2035-41FF-88DC-E14A59F7CB1B}.Debug|Any CPU.Build.0 = Debug|Any CPU 16 | {A34D86B1-2035-41FF-88DC-E14A59F7CB1B}.Release|Any CPU.ActiveCfg = Release|Any CPU 17 | {A34D86B1-2035-41FF-88DC-E14A59F7CB1B}.Release|Any CPU.Build.0 = Release|Any CPU 18 | EndGlobalSection 19 | GlobalSection(SolutionProperties) = preSolution 20 | HideSolutionNode = FALSE 21 | EndGlobalSection 22 | GlobalSection(ExtensibilityGlobals) = postSolution 23 | SolutionGuid = {47A6CDE9-AC17-4BA0-9706-4878EBE31625} 24 | EndGlobalSection 25 | EndGlobal 26 | -------------------------------------------------------------------------------- /chapter9.1/chapter9.1/App.config: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | -------------------------------------------------------------------------------- /chapter9.1/chapter9.1/Frm_Main.vb: -------------------------------------------------------------------------------- 1 | Public Class Frm_Main 2 | Private Sub Frm_Main_Load(sender As Object, e As EventArgs) Handles MyBase.Load 3 | '初始化，必须步骤 4 | Axpview_Main.renderatstartup = "True" 5 | '不显示工具栏 6 | Axpview_Main.thumbnailView = "True" 7 | End Sub 8 | 9 | Private Sub Btn_OpenFile_Click(sender As Object, e As EventArgs) Handles Btn_OpenFile.Click 10 | If OFD.ShowDialog = DialogResult.OK Then 11 | '预览文件 12 | Axpview_Main.sourceUrl = OFD.FileName 13 | End If 14 | End Sub 15 | End Class 16 | -------------------------------------------------------------------------------- /chapter9.1/chapter9.1/My Project/Application.myapp: -------------------------------------------------------------------------------- 1 |  2 | 3 | true 4 | Form1 5 | false 6 | 0 7 | true 8 | 0 9 | 0 10 | true 11 | 12 | -------------------------------------------------------------------------------- /chapter9.1/chapter9.1/My Project/AssemblyInfo.vb: -------------------------------------------------------------------------------- 1 | Imports System 2 | Imports System.Reflection 3 | Imports System.Runtime.InteropServices 4 | 5 | ' General Information about an assembly is controlled through the following 6 | ' set of attributes. Change these attribute values to modify the information 7 | ' associated with an assembly. 8 | 9 | ' Review the values of the assembly attributes 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 'The following GUID is for the ID of the typelib if this project is exposed to COM 21 | 22 | 23 | ' Version information for an assembly consists of the following four values: 24 | ' 25 | ' Major Version 26 | ' Minor Version 27 | ' Build Number 28 | ' Revision 29 | ' 30 | ' You can specify all the values or you can default the Build and Revision Numbers 31 | ' by using the '*' as shown below: 32 | ' 33 | 34 | 35 | 36 | -------------------------------------------------------------------------------- /chapter9.1/chapter9.1/My Project/Settings.settings: -------------------------------------------------------------------------------- 1 |  2 | 3 | 4 | 5 | 6 | 7 | 8 | -------------------------------------------------------------------------------- /clean.ps1: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/clean.ps1 -------------------------------------------------------------------------------- /vb6creo/vb6creo.frm: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/vb6creo/vb6creo.frm -------------------------------------------------------------------------------- /vb6creo/vb6creo.vbp: -------------------------------------------------------------------------------- 1 | Type=Exe 2 | Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\Windows\SysWOW64\stdole2.tlb#OLE Automation 3 | Reference=*\G{176453F2-6934-4304-8C9D-126D98C1700E}#1.0#0#C:\PTC\Creo 2.0\Common Files\M060\x86e_win64\obj\pfclscom.exe#Creo VB API Type Library for Creo Parametric 2.0 4 | Form=vb6creo.frm 5 | IconForm="Frm_Load" 6 | Startup="Frm_Load" 7 | HelpFile="" 8 | Title="vb6creo" 9 | Command32="" 10 | Name="vb6Creo" 11 | HelpContextID="0" 12 | CompatibleMode="0" 13 | MajorVer=1 14 | MinorVer=0 15 | RevisionVer=0 16 | AutoIncrementVer=0 17 | ServerSupportFiles=0 18 | CompilationType=0 19 | OptimizationType=0 20 | FavorPentiumPro(tm)=0 21 | CodeViewDebugInfo=0 22 | NoAliasing=0 23 | BoundsCheck=0 24 | OverflowCheck=0 25 | FlPointCheck=0 26 | FDIVCheck=0 27 | UnroundedFP=0 28 | StartMode=0 29 | Unattended=0 30 | Retained=0 31 | ThreadPerObject=0 32 | MaxNumberOfThreads=1 33 | DebugStartupOption=0 34 | -------------------------------------------------------------------------------- /vb6creo/vb6creo.vbw: -------------------------------------------------------------------------------- 1 | Frm_Load = 135, 147, 1045, 526, Z, 51, 7, 961, 386, C 2 | -------------------------------------------------------------------------------- /参数的批处理.xls: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/参数的批处理.xls -------------------------------------------------------------------------------- /零件参数化设计系统/Templates/ban.prt: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/零件参数化设计系统/Templates/ban.prt -------------------------------------------------------------------------------- /零件参数化设计系统/零件参数化设计系统.xls: -------------------------------------------------------------------------------- https://raw.githubusercontent.com/slacker-HD/creo_vbapi/ab8745336d6019d3572ec144fa3b79e5e3b5c0ef/零件参数化设计系统/零件参数化设计系统.xls --------------------------------------------------------------------------------