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

玲玲零零

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行  自动缩放以整屏显示全图

风缘

zzz

玲玲零零