| 会员登录 立即注册
关注公众号

关注公众号拿干货

CATIA论坛公众号
加入联盟

扫微信(sakula)入联盟

CATIA软件
风格切换

catia教程

搜索

CATIA联盟论坛

[CATIA VBA] CATIA二次开发专题:如何关闭打开的文档,三种方法

[复制链接]
CATIA基础教程 发表于 2019-8-5 11:39:26 | 显示全部楼层 |阅读模式
CATIA基础教程
2019-8-5 11:39:26 1108 0 看全部
                                                                                                   
这个教程您展示了如何关闭会话中当前存在的CATIA文档。它详细描述了与File -> Close命令等价的编程。
1、关闭当前活动的文档
2、按照变量关闭
3、指定名称关闭
如下代码:
Sub CATMain()
    Dim sDocPath As String
    sDocPath=CATIA.SystemService.Environ("CATDocView")
    If (Not CATIA.FileSystem.FolderExists(sDocPath)) Then
      Err.Raise 9999,,"No Doc Path Defined"
    End If
'   打开文档    Dim sFilePath
    sFilePath = CATIA.FileSystem.ConcatenatePaths(sDocPath, _
       "online\CAAScdInfUseCases\samples\CAAInfReadDocument.CATPart")
    Dim iPartDoc As Document
    Set iPartDoc = CATIA.Documents.Open(sFilePath)

    '关闭当前活动的文档
     CATIA.ActiveDocument.Close()

    '再次打开相同的文档。
     Set iPartDoc = CATIA.Documents.Open(sFilePath)

    '使用为文档定义的变量关闭文档。
     iPartDoc.Close()

     '第三次打开相同的文档。
      Set iPartDoc = CATIA.Documents.Open(sFilePath)

     '关闭由其名称指定的CATIA文档,最后,关闭CATIA文档的第三种方法是执行关闭方法在文档本身的名称检索使用文档集合的项目方法:因此从文档中删除文档收集和所有的窗户都包含它也关闭,从windows集合中删除。
      CATIA.Documents.Item("CAAInfReadDocument.CATPart").Close()
   
End Sub
--------------------------------------END-----------------


CATIA二次开发专题:如何关闭打开的文档,三种方法58
课外小练习:
        某商品40元/斤,购10斤以下不打折,10斤以上20斤以下9折,20斤以上30斤以下8折,30斤以上打7折,编写程序输入所购重量,输出应付款金额。若输入重量为负数给出错误提示。
CATIA论坛官方公众号
  • 您可能感兴趣
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则 返回列表

查看:1108 | 回复:0

CATIA教程| CATIA视频| CATIA培训| CATIA下载| CATIA安装| CATIA插件| CATIA入门| CATIA V5| CATIA V6| CATIA论坛
联系电话:18982019507 地址:成都市青羊区二环路西一段155号天祥广场4栋1801
版权所有 ©软易达 •( 蜀ICP备14018086号 )Copyright © 2001-2013 Comsenz Inc. All Rights Reserved.   Powered by Discuz! X3.4
联盟微信客服:
silhouette023CATIA软件


CATIA技术群

微信公众号 CATIA微信公众号
“CATIA联盟”