二次开发：制作长方体的宏的源文件

ldyostrmwu

二次开发：制作长方体的宏的源文件
非常简单，主要是给诸位开个头，有VB基础最好
Dim swApp As Object
Dim Part As Object
Dim SelMgr As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim Feature As Object
Sub main()
Set swApp = Application.SldWorks
swApp.ActiveDoc.ActiveView.FrameLeft = 0
swApp.ActiveDoc.ActiveView.FrameTop = 0
swApp.ActiveDoc.ActiveView.FrameState = 1
swApp.ActiveDoc.ActiveView.FrameState = 1
Set Part = swApp.NewDocument("Drogram FilesSolidWorksdatatemplates零件.prtdot", 0, 0#, 0#)
Set Part = swApp.ActivateDoc2("零件1", False, longstatus)
boolstatus = Part.Extension.SelectByID2("前视基准面", "LANE", -0.06855648148148, 0.0643525462963, 0, False, 0, Nothing, 0)
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
Part.SketchRectangle 0, 0, 0, 0.0873125, 0.06887986111111, 0, 1
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Part.ShowNamedView2 "*上下二等角轴测", 8
Part.SketchManager.InsertSketch True
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 0, Nothing, 0)
Part.FeatureManager.FeatureExtrusion2 True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 0.01745329251994, 0.01745329251994, False, False, False, False, 1, 1, 1, 0, 0, False
Part.SelectionManager.EnableContourSelection = 0
Part.ClearSelection2 True
End Sub
附件：宏文件re.swp
re.rar (5.37 KB, 下载次数: 45)

2008-4-27 21:57 上传

点击文件名下载附件
下载积分: 金币 -1

/mg持之以恒

谢谢楼主，非常需要这个

544042901

不好意思给你转载啦，因为懒得自己写

机械sw人人

里面有多余的程序可以去掉，这样的程序学习者可以自己去录制，这个很容易的。。。感谢楼主的分享。。。。

qhl20041227

   经典案例图书

看第一行代码
就知道直接从VBA里复制过来的
实际系统开发时不可能这么写

zhjw666

楼主能上传一份实际系统开发的源文件吗？

Jason.Pop

   经典案例图书

呵呵，你才是楼主啊
工作原因我不可能上传代码。
不过有几个开发的小技巧可以和大家分享一下
Dim swApp As Object
   Dim Part As Object
   ... ...
这是业余的做法,专业的做法是把这些Object换成SW自身的对象
程序前面的一大堆dim使用频率极高，在用面向对象的编程语言进行系统开发时会定义一个类，包含一些常用的变量定义和操作函数
真正的系统开发，API，编程方法已经不是问题，我们更关心的是需求分析和系统怎么结合，数据库结构如何设计才是二次开发的重点

woshishei

这个对初学者比较好。

wangxiucai

支持7楼的见解，不过我觉得通用的编程技巧用不着捂的那么严实吧