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/)
Powered by Discuz! X3.3