iCAx开思网

标题: 【求助】谁能提供catia二次开发的入门级教程？ [打印本页]

作者: cms_nuaa 时间: 2004-6-27 17:16
标题: 【求助】谁能提供catia二次开发的入门级教程？
如题。因为找不到一些基本的教程，开始做很吃力。谁能提供些诸如创建workbench等初级教程的，或者网上的链接，十分感谢。

作者: acoka 时间: 2004-6-28 00:52
caa的usecase不是有addin,workbench的例子吗？

作者: ferarriii 时间: 2004-6-28 11:20
目前用CAA做二次开发在国内大家都处于探索阶段，怎么会有什么教程，caa的online doc虽然看起来很累，但是最好的入门、深入的教程。

作者: acoka 时间: 2004-6-28 13:49
达索有一套几百近千页的教材，但也只是培训的板书而已，
自学看了话，估计不好理解
我们这里作caa,通常都是直接看Encyclopedia和.h文件，还把大家写的东西都共享，可以互相查阅

作者: cms_nuaa 时间: 2004-6-28 14:19
多谢各位。Encyclopedia我知道，在线文档也有。但是看的好累，呵呵。

作者: acoka 时间: 2004-6-28 14:25
你的在线文档是什么的？
CAA V5 for catia
Getting started?

作者: cms_nuaa 时间: 2004-6-29 10:56
caadoc.就是在caa中用ctrl＋f1打开的那个帮助。其实是接口说明。

作者: acoka 时间: 2004-6-29 13:53

cms_nuaa wrote:
caadoc.就是在caa中用ctrl＋f1打开的那个帮助。其实是接口说明。

那是够辛苦的

作者: acoka 时间: 2004-6-29 14:36

cms_nuaa wrote:
如题。因为找不到一些基本的教程，开始做很吃力。谁能提供些诸如创建workbench等初级教程的，或者网上的链接，十分感谢。

俺们这用excell登记cmd的名字啦，help啦，icon的名字什么的
然后执行macro,就生成workbench的FW了
实际上做workbench就是把自己的命令的ID,按caa规定的格式写的东西用 TIE 建关联（这里只用TIE,而不用BOA)

作者: ferarriii 时间: 2004-6-29 15:02

cms_nuaa wrote:
caadoc.就是在caa中用ctrl＋f1打开的那个帮助。其实是接口说明。

你说的CATIA online doc里面的caa接口部分，还有一个是caa v5 Encyclopedia的关于caa编程的文档，里面有caa的技术介绍和一些实例，这才是真正的caadoc。

作者: cms_nuaa 时间: 2004-6-30 19:06

acoka wrote:

  俺们这用excell登记cmd的名字啦，help啦，icon的名字什么的
  然后执行macro,就生成workbench的FW了
  实际上做workbench就是把自己的命令的ID,按caa规定的格式写的东西用 TIE 建关联（这里只用TIE,而不用BOA)

恩，看来你们做的是比较成熟的。能不能提供点具体的做法？十分感谢。
另外，楼上的这位说的我也知道。别偷笑，呵呵。

作者: acoka 时间: 2004-7-1 12:47
据我所知
没有DS的开发伙伴的合同，根本不卖你caa,买了caa.肯定会有个开发顾问派过来，问他就可以的呀
你们那没有？

作者: nustcxq 时间: 2004-7-1 19:41
真实郁闷啊，我也在找开发文档啊
CAA的在线文档看的太郁闷了

作者: acoka 时间: 2004-7-2 13:25

cms_nuaa wrote:

恩，看来你们做的是比较成熟的。能不能提供点具体的做法？十分感谢。
另外，楼上的这位说的我也知道。别偷笑，呵呵。

全部的source不能给你，我们这1个人从设计到测试做了1个月，算到cost大约7千美元呢

。。。
    ConfigName = Excel.ActiveWorkbook.ActiveSheet.Name
    MyPath = Excel.ActiveWorkbook.Path + "\" + FWName + "\" + ConfigName + "CreationWbench.m" + "\LocalInterfaces\" + ConfigName + "Configuration.h"

    Open MyPath For Output As #FileNum

    WBName = ConfigName + "CreationWkb"
   &nbsp

rint #FileNum, ""
   &nbsp

rint #FileNum, "NewAccess( CATCmdWorkbench, pWorkbench, " + WBName + " );"
   &nbsp

rint #FileNum, "SetWorkbenchPriority( pWorkbench, 150 );"
   &nbsp

rint #FileNum, ""
    Print #FileNum, "////////////////////////////////////////////////////////////////"
    Print #FileNum, "/// ToolBar"
    Print #FileNum, ""

    ContName = ""
    SubContName = ""

    ContObjName = ""
    ContObjPnt = ""

    SubContObjName = ""
    SubContObjPnt = ""

    CmdObjName = ""
    CmdObjPnt = ""

    RootChildObjPrePnt = ""
    ContChildObjPrePnt = ""
    SubContChildObjPrePnt = ""

    IsToolVar = True
    RootChildFlg = True
    ContChildFlg = True
    SubContChildFlg = True

    For i = FirstRow To LastRow
        If Cells(i, CLASSIFICATION_Col) = Type_Tool Or Cells(i, CLASSIFICATION_Col) = Type_Both Then
            If Cells(i, CONTAINER_Col) <> "" Then
                If Cells(i, CONTAINER_Col) <> ContName Then

                    ContChildFlg = True
                    SubContChildFlg = True

                    ContName = Cells(i, CONTAINER_Col)
                    SubContName = ""
                    rc = AddContainer("pWorkbench", RootChildObjPrePnt, ConfigName, ContCnt, i, IsToolVar, RootChildFlg, 1)

                Else
                    If Cells(i, SUB_CONTAINER_Col) <> "" Then
                        If Cells(i, SUB_CONTAINER_Col) <> SubContName Then

                            SubContChildFlg = True

                            SubContName = Cells(i, SUB_CONTAINER_Col)
                            rc = AddSubContainer(RootChildObjPrePnt, ContChildObjPrePnt, ConfigName, SubContCnt, i, ContChildFlg, 2)

                        Else
                            CmdHdrId = Cells(i, HEADER_ID_Col)
                            rc = AddCommand(ContChildObjPrePnt, SubContChildObjPrePnt, CmdHdrId, ConfigName, CmdCnt, SubContChildFlg, 3)

                        End If
                    Else
                        CmdHdrId = Cells(i, HEADER_ID_Col)
                        rc = AddCommander(RootChildObjPrePnt, ContChildObjPrePnt, CmdHdrId, ConfigName, CmdCnt, ContChildFlg, 2)

                    End If
                End If
            Else

                ContChildFlg = True

                ContName = Cells(i, CMD_SEP_Col)
                SubContName = ""
                rc = AddContainer("pWorkbench", RootChildObjPrePnt, ConfigName, ContCnt, i, IsToolVar, RootChildFlg, 1)

                CmdHdrId = Cells(i, HEADER_ID_Col)
                rc = AddCommander(RootChildObjPrePnt, "", CmdHdrId, ConfigName, CmdCnt, ContChildFlg, 2)

            End If
        End If
    Next i

。。。

作者: cms_nuaa 时间: 2004-7-2 19:31
acoka 无私帮助让我十分感谢！

欢迎光临 iCAx开思网 (https://www.icax.org/)