iCAx开思工具箱

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 24869|回复: 0
打印 上一主题 下一主题

求助vb 二次开发

[复制链接]
跳转到指定楼层
楼主
发表于 2011-2-23 18:23:31 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
Private Sub Command1_Click()
   
   Dim swapp As Object
    Dim part As Object
    Dim boolstatus As Boolean
'定义接口
    Set swapp = CreateObject("SldWorks.Application")
    Set part = swapp.NewPart()
    swapp.Visible = True
  '获取solidworks软件接口并新建一个零件文件
    part.InsertSketch2 True
    boolstatus = part.Extension.SelectByID("前视", "PLANE", 0, 0, 0, False, 0, Nothing)
    part.InsertSketch2 True
    part.CreateCircle 0, 0, 0, 0, Val(R.Text) / 10005, 0
    part.ShowNamedView2 "*上下二等角轴测", 8
    part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, Val(H.Text) / 1000, 0.01, False, False, False, False, 0, 0, False, False, False, False, 1, 1, 1
  '建立模型
    End Sub
红色处出现“实时错误424 要求对象”
求解答
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 支持支持
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

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

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

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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