iCAx开思工具箱

 找回密码
 立即注册

QQ登录

只需一步,快速开始

查看: 24892|回复: 3
打印 上一主题 下一主题

【原创】我编的第一个VB实例,请求加分  

[复制链接]
跳转到指定楼层
楼主
发表于 2003-4-29 13:38:36 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

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

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

x
2.4.12  程序功能、运行结果、代码及说明
程序功能:程序示范VB是如何调用SolidWorks的,是如何进行人机交互的。
使用条件:该程序必须在SolidWorks2003下运行,否则会出错。
运行结果:运行此程序后,出现一对话框,“请输入您的名字,并按回车键确定”, 如图2-4所示,不想输入,直接按空回车也行。

输入名字后,将在SolidWorks中出现红色的三维立体字“恭喜您,某某某”(直接空回车的则出现“恭喜您”)。如图2-5所示。  

程序代码:
1  Private Sub Text1_keyPress(keyp As Integer)
2   Dim a As String  
3   Dim swApp As Object                                                               
4   Dim Part As Object                                                                       
5      If keyp = 13 Then                                                               
6          a = Text1.Text                                                              
7      End If                                                                        
8  Set swApp = CreateObject("SldWorks.Application")                                             
9  Set Part = swApp.ActiveDoc                                                                 
10   boolstatus = Part.Extension.SelectByID("前视", "LANE", 0, 0, 0, False, 0, Nothing)                  
11   Part.InsertSketch2 True                                                                     
12   Part.ClearSelection                                                                          
13   Part.InsertSketchText 0, 0, 0, "恭喜您" & Chr(13) & Chr(10) & a, 0, 0, 0, 100, 100                     
14   Part.ClearSelection
15   boolstatus = Part.Extension.SelectByID("SketchText1", "SKETCHTEXT", 0, 0, 0, False, 0, Nothing)      
16   Part.FeatureManager.FeatureExtrusion True, False, False, 0, 0, 0.0005, 0.0005, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1                              
17   Part.SelectedFeatureProperties 255, 1, 0.79, 0.88, 0.21, 0, 0.21, 0, 0, "拉伸1"                           
18   Part.SelectionManager.EnableContourSelection = 0                                                
19   Part.ClearSelection                                                                          
20   boolstatus = Part.Extension.SelectByID("点1@原点", "EXTSKETCHPOINT", 0, 0, 0, False, 0, Nothing)   
21   Part.BlankSketch                                                                           
22   Part.ShowNamedView2 "*等轴测", 7                                                           
23   Part.ViewZoomtofit2                                                                        
24   End Sub
程序解释:
●  第2行  定义a为字符串               
●  第3~4行  定义OLE对象变量,分别对应SldWorks和Part对象
●  第5~7行  如果是回车键,输入的文本赋给字符串变量a
●  第8行  创建SldWorks对象  
●  第9行  获得激活文件
●  第10行  选择前视面
●  第11行  开始或结束草图绘制
●  第12行  清除任何选择
●  第13行  插入草图文本
●  第15行  选择草图文本
●  第16行  拉伸文本
●  第17行  设置所选文本的属性值
●  第18行  使控制轮廓选择可用
●  第21行  清空所选的草图
●  第22行  等轴测显示文本
●  第23行  自动缩放以整屏显示全图
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏 分享淘帖 支持支持
沙发
发表于 2003-4-29 14:55:52 | 只看该作者

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

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

x
板凳
发表于 2003-4-29 17:35:53 | 只看该作者

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

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

x
地板
 楼主| 发表于 2003-4-29 18:39:47 | 只看该作者

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

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

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

本版积分规则

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

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

GMT+8, 2024-11-22 01:50 , Processed in 0.013746 second(s), 8 queries , Gzip On, Redis On.

Powered by Discuz! X3.3

© 2002-2024 www.iCAx.org

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