iCAx开思工具箱

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 26893|回复: 2
打印 上一主题 下一主题

selectbyID2类型不匹配

[复制链接]
跳转到指定楼层
楼主
发表于 2010-12-1 16:15:44 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册登录,享用更多网站功能!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
我第一次用VS2008中的VB 对Solidworks2008进行二次开发,就画一个方块,录制宏代码,但调试总出现未处理的COMException,类型不匹配。异常来自 HRESULT:0x80020005 (DISP_E_TYPEMISMATCH))。
求助各位这是怎么回事,应该怎么改啊?
原代码如下:
Public Class Form1
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim swapp As Object
        Dim Part As Object
        Dim SelMgr As Object
        Dim Boolstatus As Boolean

        Dim longstatus As Long, longwarnings As Long
        Dim Feature As Object
        Dim strpth As String
        swapp = CreateObject("SldWorks.Application") ' 建立联接
        Part = swapp.newpart ' 新建零件
        Part = swapp.ActiveDoc
        SelMgr = Part.SelectionManager

        Boolstatus = Part.Extension.SelectByID2("前视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)  (此句出现问题)
        Part.SketchManager.InsertSketch(True)
        Part.ClearSelection2(True)
        Dim vSkLines As Object
        vSkLines = Part.SketchManager.CreateCornerRectangle(-0.05, 0.025, 0, 0.05, -0.025, 0)
        Part.EditCopy()
        Part.ClearSelection2(True)
        Boolstatus = Part.Extension.SelectByID2("Line1", "SKETCHSEGMENT", -0.003716687309331, 0.02155678639412, 0, False, 0, Nothing, 0)

        Boolstatus = Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", -0.03939688547891, -0.008474047065275, 0, False, 0, Nothing, 0)
        Part.ClearSelection2(True)
        Boolstatus = Part.Extension.SelectByID2("Line2", "SKETCHSEGMENT", -0.04028889043315, -0.004311357278824, 0, False, 0, Nothing, 0)

        Part.ClearSelection2(True)
        Part.SketchManager.InsertSketch(True)
        Part.ShowNamedView2("*上下二等角轴测", 8)
        Part.SketchManager.InsertSketch(True)
        Part.ClearSelection2(True)
        Boolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
        Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, False)
        Part.SelectionManager.EnableContourSelection = 0
        swapp = Nothing
        Part = Nothing
    End Sub
End Class
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 支持支持
沙发
 楼主| 发表于 2010-12-1 19:22:55 | 只看该作者

马上注册登录,享用更多网站功能!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
板凳
发表于 2011-7-1 13:11:11 | 只看该作者

马上注册登录,享用更多网站功能!

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手板模型制作,在线3D打印服务

QQ|小黑屋|手机版|开思工具箱 CAD工具箱_CAM工具箱  

GMT+8, 2024-11-21 21:34 , Processed in 0.011315 second(s), 7 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

快速回复 返回顶部 返回列表