iCAx开思工具箱

标题: 【原创】我编的第一个VB实例，请求加分　　 [打印本页]

作者: 玲玲零零 时间: 2003-4-29 13:38
标题: 【原创】我编的第一个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行  自动缩放以整屏显示全图

作者: 风缘 时间: 2003-4-29 14:55
好样的，继续努力！

作者: zzz 时间: 2003-4-29 17:35
怎样运行程序？

作者: 玲玲零零 时间: 2003-4-29 18:39
要安装SW和VB
把代码直接COPY到VB中，运行即可

欢迎光临 iCAx开思工具箱 (https://t.icax.org/)