社区 › VB › VBA-Civil3D 2012

mstg007 发表于 2013-9-24 13:51:02

VBA-Civil3D 2012

我一直在这条线上出错。有什么想法吗
函数GetPipeObjects（）
&039；用于设置Civil 3D管道应用程序、文档和数据库对象的功能；注意：使用管道应用程序获取管道设置&nbsp；Dim oApp作为应用程序&nbsp；设置oApp=ThisDrawing。应用程序&nbsp；将名称设置为字符串&nbsp；sAppName=&quot；AeccXUiPipe。AECPIPeapplication“
&nbsp；设置g_oCivilPipeApp=oApp。GetInterfaceObject（sAppName）&nbsp；如果g_ocivillpipeapp什么都不是，那么&nbsp&nbsp&nbsp；MsgBox“；创建时出错&amp；sAppName&amp&quot；，退出&引用
&nbsp&nbsp&nbsp；GetCivilObjects=False&nbsp&nbsp&nbsp；退出功能&nbsp；如果结束&nbsp；设置g\u oAeccPipeDoc=g\u oCivilPipeApp。ActiveDocument&nbsp；设置g\u oAeccPipeDb=g\u oAeccPipeDoc。数据库&nbsp
结束函数谢谢您的帮助！

Jeff_M 发表于 2013-9-24 14:30:25

C3D2012需要与AECCIPepeapplication一起传递的版本号；AeccXUiPipe.AeccPipeApplication.9.0“

mstg007 发表于 2013-9-24 14:47:27

杰夫
老实说，我看到了你大部分关于这个的帖子……我真的非常感谢你的反馈。一切正常。

mstg007 发表于 2013-9-24 15:30:28

另一个有趣的问题
我有如下代码：；Dim oExcelBook作为Excel。工作簿&nbsp
&nbsp；Dim dataNWPipeName作为字符串&nbsp
&nbsp；StartExcel&nbsp；filehhcals=&quot；C： \P2X\storm。xls“
&nbsp
&nbsp；设置oExcelBook=g_oExcelApp.Workbooks。打开（fileHHCalcs）&#039；g_oExcelApp.Workbooks。添加&nbsp；如果oExcelBook什么都不是，那么&nbsp&nbsp&nbsp；MsgBox“；创建Excel文档时出错，请退出&引用
&nbsp&nbsp&nbsp；退出Sub&nbsp；如果结束&nbsp' 用于保存列名和位置的dictionary对象&nbsp；设置dictPipe=New Dictionary&nbsp；设置dictStructure=New Dictionary&nbsp'为结构制作一张新的表格，我如何指定要使用的excel文件，而不是对其进行硬编码？

Jeff_M 发表于 2013-9-24 15:46:22

您可以要求用户输入路径的字符串，但这意味着他们&#039；d需要输入。或者，更好的方法是使用OpenSave类对话框来获取fie名称；路径本人&#039；我在这里附上了课程代码&#039；快速显示如何使用它：&nbsp；Dim cOpenSave作为新的OpenSaveClass&nbsp；科彭萨夫。MultiSelect=True&nbsp；科彭萨夫。过滤器=&quot；文本文件（*.txt）|*。txt“
&nbsp；科彭萨夫。Title=&quot；选择要打开的文件
&nbsp；科彭萨夫。InitialDir=survPath&nbsp
&nbsp；strFile=cOpenSave。显示打开&nbsp；如果strFile&lt&燃气轮机&引用&引用；然后

mstg007 发表于 2013-9-24 16:31:25

你能查一下你的pm吗？

查看完整版本: VBA-Civil3D 2012