【求助】谁能提供catia二次开发的入门级教程？

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

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

据我所知
没有DS的开发伙伴的合同，根本不卖你caa,买了caa.肯定会有个开发顾问派过来，问他就可以的呀
你们那没有？

真实郁闷啊，我也在找开发文档 啊
CAA的在线文档看的太郁闷 了

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"
   &nbsprint #FileNum, "// Copyright WSH 2004"
   &nbsprint #FileNum, ""
   &nbsprint #FileNum, "NewAccess( CATCmdWorkbench, pWorkbench, " + WBName + " );"
   &nbsprint #FileNum, "SetWorkbenchPriority( pWorkbench, 150 );"
   &nbsprint #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
  
。。。

acoka 无私帮助让我十分感谢！