找回密码 注册 QQ登录
一站式解决方案

iCAx开思网

CAD/CAM/CAE/设计/模具 高清视频【积分说明】如何快速获得积分?快速3D打印 手板模型CNC加工服务在线3D打印服务,上传模型,自动报价
查看: 10930|回复: 1
打印 上一主题 下一主题

[求助] 关于API帮助文档内代码的疑问求助

[复制链接]
跳转到指定楼层
1
发表于 2014-11-20 23:24:53 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上注册,结交更多同行朋友,交流,分享,学习。

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

x
本帖最后由 东边wo 于 2014-11-21 09:29 编辑






问题1,我按照帮助文档的代码引用,编译器却提示如上错误(
在项目引用管理器里面我就选择下面三项,没问题吧)
问题2,下面代码蓝底的“swApp”是哪来的,找不到申明
问题3,我看到网上好多都是用“
swApp = CreateObject("SldWorks.Application")”引用接口的,为什么呢


Imports
SOLIDWORKS.Interop.sldworks
Imports SolidWorks.Interop.swconst
Imports System.Runtime.InteropServices
Imports System
Imports System.Diagnostics


Partial Class SolidWorksMacro

   
Dim swModel As ModelDoc2
   
Dim selMgr As SelectionMgr
   
Dim swPart As PartDoc
   
Dim mirrorFeature As Feature
   
Dim myFeature As Feature
   
Dim resultPart As ModelDoc2
   
Dim mirrorFeatData As MirrorPartFeatureData
   
Dim refPlane As RefPlane
   
Dim facePlane As Face2
   
Dim mirrorOptions As Integer
    Dim faceType As Integer
    Dim selType As swSelectType_e
   
Dim message As String

    Sub main()

        swModel = swApp.ActiveDoc

        
If swModel Is Nothing Then Exit Sub
        If swModel.GetType <> swDocumentTypes_e.swDocPART Then Exit Sub

        selMgr = swModel.SelectionManager

        
If selMgr.GetSelectedObjectCount2(-1) = 0 Then Exit Sub

        selType = selMgr.GetSelectedObjectType3(1, -1)
        
If Not (selType = swSelectType_e.swSelDATUMPLANES Or selType = swSelectType_e.swSelFACES) Then Exit Sub

        swPart = swModel

      

    .............字数限制,省略
        
End If

    End Sub


    Public swApp As SldWorks


End Class
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 赞一下!赞一下!
2
 楼主| 发表于 2014-11-21 09:30:03 | 只看该作者

马上注册,结交更多同行朋友,交流,分享,学习。

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

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

本版积分规则

3D打印手板模型快速制作服务,在线报价下单!

QQ 咨询|手机版|联系我们|iCAx开思网  

GMT+8, 2024-11-28 13:34 , Processed in 0.027611 second(s), 11 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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