6.在文件ＭｙＰｒｏ.ｃｐｐ的ｄｏｃｕｍｅｎｔｃａｌｌｂａｃｋｓ部分修改菜单命令的执行函数;例如若建模等驱动程序为“Ｄ:\ｍｙｐｒｏ\ｇｓ.ｅｘｅ”,则可将原来的菜单命令执行函数ｖｏｉｄＭｅｎｕＩｔｅｍＣＢ(ｖｏｉｄ)

    {
    ｒｅｔｕｒｎ;
    }
    修改为
    ｖｏｉｄＭｅｎｕＩｔｅｍＣＢ(ｖｏｉｄ)
    {
    ＳＴＡＲＴＵＰＩＮＦＯｓｉ;
    ＰＲＯＣＥＳＳＩＮＦＯＲＭＡＴＩＯＮｐｉ;
    ＺｅｒｏＭｅｍｏｒｙ(＆ｓｉ,ｓｉｚｅｏｆ(ｓｉ));
    ｓｉ.ｃｂ=ｓｉｚｅｏｆ(ｓｉ);
    ＺｅｒｏＭｅｍｏｒｙ(＆ｐｉ,ｓｉｚｅｏｆ(ｐｉ));
    //Ｓｔａｒｔｔｈｅｃｈｉｌｄｐｒｏｃｅｓｓ.
    ＣｒｅａｔｅＰｒｏｃｅｓｓ(“Ｄ:\ｍｙｐｒｏ\ｇｓ.ｅｘｅ”,
    ””,　//Ｃｏｍｍａｎｄｌｉｎｅ.
    ＮＵＬＬ,//Ｐｒｏｃｅｓｓｈａｎｄｌｅｎｏｔｉｎｈｅｒｉｔａｂｌｅ.
　　ＮＵＬＬ,//Ｔｈｒｅａｄｈａｎｄｌｅｎｏｔｉｎｈｅｒｉｔａｂｌｅ.
    ＦＡＬＳＥ,//ＳｅｔｈａｎｄｌｅｉｎｈｅｒｉｔａｎｃｅｔｏＦＡＬＳＥ.
    0,//Ｎｏｃｒｅａｔｉｏｎｆｌａｇｓ.
    ＮＵＬＬ,//Ｕｓｅｐａｒｅｎｔ’ｓｅｎｖｉｒｏｎｍｅｎｔｂｌｏｃｋ.
　　ＮＵＬＬ,//Ｕｓｅｐａｒｅｎｔ’ｓｓｔａｒｔｉｎｇｄｉｒｅｃｔｏｒｙ.
　　＆ｓｉ,//ＰｏｉｎｔｅｒｔｏＳＴＡＲＴＵＰＩＮＦＯｓｔｒｕｃ ｔｕｒｅ.
　　＆ｐｉ);//ＰｏｉｎｔｅｒｔｏＰＲＯＣＥＳＳＩＮＦＯＲＭＡ ＴＩＯＮｓｔｒｕｃｔｕｒｅ.
    ｒｅｔｕｒｎ;
    }

    7.编译工程并注册生成动态链接库[3].

    插件部分完成了图1中的ａ,ｂ,ｃ关系.尤其是函数ＣｒｅａｔｅＰｒｏｃｅｓｓ的应用,实现了从菜单或工具条到建模驱动程序之间的连接,即图1中的关系ｃ.

    2.2.2　建模等驱动程序

    下面以创建一个0.20ｍ×0.10ｍ×0.05ｍ的长方体为例:

    1.启动ＭｉｃｒｏｓｏｆｔＶｉｓｕａｌＢａｓｉｃ6.0,在下拉菜单“文件”项选择“新建工程”,选择“标准ＥＸＥ”,“确定”;

    2.在窗体Ｆｏｒｍ1上添加2个ＣｏｍｍａｎｄＢｕｔｔｏｎ,分别命名为“创建长方体”和“退出”;

    3.双击命令按钮“创建长方体”,在函数Ｃｏｍ ｍａｎｄ1Ｃｌｉｃｋ()内添加代码如下:

    ＤｉｍｓｗＡｐｐＡｓＯｂｊｅｃｔ
    ＤｉｍＰａｒｔＡｓＯｂｊｅｃｔ
    ＤｉｍｂｏｏｌｓｔａｔｕｓＡｓＢｏｏｌｅａｎ
    ＤｉｍｌｏｎｇｓｔａｔｕｓＡｓＬｏｎｇ
    ＤｉｍＡｎｎｏｔａｔｉｏｎＡｓＯｂｊｅｃｔ
    ＤｉｍＧｔｏｌＡｓＯｂｊｅｃｔ
    ＤｉｍＤａｔｕｍＴａｇＡｓＯｂｊｅｃｔ
    ＤｉｍＦｅａｔｕｒｅＤａｔａＡｓＯｂｊｅｃｔ
    ＤｉｍＦｅａｔｕｒｅＡｓＯｂｊｅｃｔ
    ＤｉｍＣｏｍｐｏｎｅｎｔＡｓＯｂｊｅｃｔ
    ＤｉｍｃｈａｎｇＡｓＬｏｎｇ,ｋｕａｎＡｓＬｏｎｇ,ｇａｏＡｓＬｏｎｇ‘定义长、宽、高
    ｃｈａｎｇ=0.20　‘为长赋值0.20ｍ
    ｋｕａｎ=0.10　‘为宽赋值0.10ｍ
    ｇａｏ=0.05　‘为高赋值0.05ｍ
    ＳｅｔｓｗＡｐｐ=ＣｒｅａｔｅＯｂｊｅｃｔ(“ＳｌｄＷｏｒｋｓ.Ａｐｐｌｉｃａ ｔｉｏｎ”)
    ｓｗＡｐｐ.ＡｃｔｉｖｅＤｏｃ.ＡｃｔｉｖｅＶｉｅｗ.ＦｒａｍｅＬｅｆｔ=0
    ｓｗＡｐｐ.ＡｃｔｉｖｅＤｏｃ.ＡｃｔｉｖｅＶｉｅｗ.ＦｒａｍｅＴｏｐ=0
    ｓｗＡｐｐ.ＡｃｔｉｖｅＤｏｃ.ＡｃｔｉｖｅＶｉｅｗ.ＦｒａｍｅＳｔａｔｅ=1
    ｓｗＡｐｐ.ＡｃｔｉｖｅＤｏｃ.ＡｃｔｉｖｅＶｉｅｗ.ＦｒａｍｅＳｔａｔｅ=1
    ＳｅｔＰａｒｔ=ｓｗＡｐｐ.ＮｅｗＤｏｃｕｍｅｎｔ(“Ｃ:\ＰｒｏｇｒａｍＦｉｌｅｓ\ＳｏｌｉｄＷｏｒｋｓ\ｄａｔａ\Ｔｅｍｐｌａｔｅｓ\零件.ｐｒｔｄｏｔ”,0,0#,0#)
    ＳｅｔＰａｒｔ=ｓｗＡｐｐ.ＡｃｔｉｖａｔｅＤｏｃ(“Ｐａｒｔ2”)
    ｓｗＡｐｐ.ＡｃｔｉｖｅＤｏｃ.ＡｃｔｉｖｅＶｉｅｗ.ＦｒａｍｅＳｔａｔｅ=1
    Ｐａｒｔ.ＩｎｓｅｒｔＳｋｅｔｃｈ
    Ｐａｒｔ.ＳｋｅｔｃｈＲｅｃｔａｎｇｌｅ-(ｃｈａｎｇ/2),(ｇａｏ/2),0,(ｃｈａｎｇ/2),(ｇａｏ/2),0,1
    Ｐａｒｔ.ＦｅａｔｕｒｅＥｘｔｒｕｓｉｏｎ1,0,0,0,0,ｋｕａｎ,0,0,0,0,0,0,0,0,0
    Ｐａｒｔ.ＳｈｏｗＮａｍｅｄＶｉｅｗ2“ 等轴测”,7
    Ｐａｒｔ.ＶｉｅｗＺｏｏｍｔｏｆｉｔ2
    Ｐａｒｔ.ＳａｖｅＡｓ2“Ｄ:\ｍｙｐｒｏ\长方体.ＳＬＤＰＲＴ”,0,Ｆａｌｓｅ,Ｆａｌｓｅ
    Ｐａｒｔ.ＣｌｅａｒＳｅｌｅｃｔｉｏｎ
    ＳｅｔＰａｒｔ=Ｎｏｔｈｉｎｇ
    ｓｗＡｐｐ.ＣｌｏｓｅＤｏｃ“长方体”