沐风论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 5965|回复: 1
打印 上一主题 下一主题

[问题求助] VBA

[复制链接]
跳转到指定楼层
楼主
发表于 2014-4-4 11:36:52 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
Dim swApp As Object
Dim Part As Object
Private Sub Command1_Click()
Set swApp = CreateObject("SldWorks.Application")
swApp.Visible (True)
Set Part = swApp.OpenDoc("D:\挡圈.SLDPRT", swDocPART)
Set Part = swApp.ActivateDoc("档圈. sldprt")
Part.Parameter("D1@草图1").System Value = Val(wj.Text)
Part.Parameter("D2@草图1").SystemValue = Val(Text3.Text)
Part.Parameter("凸台拉伸@草图1").SystemValue = Val(Text2.Text)
Part.EditRebuild
Part.Save
End Sub

在VB中编程怎么总提示对象变量或 with 块变量没有设置 错误 91 主要是绿色的这三句有问题

分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 转播转播 分享分享 分享淘帖 支持支持 反对反对
回复

使用道具 举报

沙发
发表于 2014-4-4 13:21:45 | 只看该作者
表示不懂......
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|沐风论坛 ( 沪ICP备09092249号  

GMT+8, 2024-11-14 00:31 , Processed in 0.392492 second(s), 22 queries .

Powered by Discuz! X3.1

© 2001-2013 Comsenz Inc.

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