solidworks录得宏运行后得到了和原图不相符的图形

慈父的坩埚 · 发表于 2018-5-10 14:29:46

经典图书

在solidworks里录了一个宏，在草图里画一个圆然后圆周阵列草图到4个圆再拉伸成4个圆柱，但是录完的宏运行后只生成了未阵列之前的草图所拉伸形成的一个圆柱，请问这是在选择草图的语句上出了问题吗？
Dim swApp As Object

Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long

Sub main()

Set swApp = _
Application.SldWorks

Set Part = swApp.ActiveDoc
Part.SketchManager.InsertSketch True
boolstatus = Part.Extension.SelectByID2("上视基准面", "PLANE", 0, 0, 0, False, 0, Nothing, 0)
Part.ClearSelection2 True
Dim skSegment As Object
Set skSegment = Part.SketchManager.CreateCircle(-0.051133, 0.011329, 0#, -0.044397, 0.011941, 0#)
boolstatus = Part.SketchManager.EditCircularSketchStepAndRepeat(0.052373082978232, 6.06515047662969, 4, 1.5707963267949, True, "", False, False, True, "圆弧1_")
Part.ClearSelection2 True
Part.SketchManager.InsertSketch True
Part.ShowNamedView2 "*上下二等角轴测", 8
Part.ClearSelection2 True
boolstatus = Part.Extension.SelectByID2("草图1", "SKETCH", 0, 0, 0, False, 4, Nothing, 0)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, 1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
Part.SelectionManager.EnableContourSelection = False
End Sub

LYCZJS · 发表于 2018-5-21 19:04:54

SW机械工程师论坛，找到组织了！

ryouss · 发表于 2018-5-13 22:33:22

经典图书

慈父的坩埚发表于 2018-5-13 22:23
继续试了试，发现只要圆周阵列阵列的数量是n（n已有定义）就不能画出来，但是如果是一个确切的数（比如10 ...

那要看 n 定義的條件了!

ryouss · 发表于 2018-5-13 22:30:21

慈父的坩埚发表于 2018-5-13 21:02
非常感谢大佬，不过有个问题是boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(0.03, 4.712 ...

如圖示,是否理解?

慈父的坩埚 · 发表于 2018-5-13 22:23:28

经典案例图书

ryouss 发表于 2018-5-11 13:22
錄制宏非萬能的,所以有問題到API幫助找資料了,如下參考:

继续试了试，发现只要圆周阵列阵列的数量是n（n已有定义）就不能画出来，但是如果是一个确切的数（比如10）就可以画出来

LYCZJS · 发表于 2018-5-13 21:43:53

楼主辛苦了！

慈父的坩埚 · 发表于 2018-5-13 21:41:50

经典案例图书

ryouss 发表于 2018-5-11 13:22
錄制宏非萬能的,所以有問題到API幫助找資料了,如下參考:

另外还有就我这个是要移植到vb里去的，但是移植进去后依旧没办法画出多个，请问这又是怎么回事

慈父的坩埚 · 发表于 2018-5-13 21:02:31

ryouss 发表于 2018-5-11 13:22
錄制宏非萬能的,所以有問題到API幫助找資料了,如下參考:

非常感谢大佬，不过有个问题是boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(0.03, 4.71238898038469, 6, 1.0471975511966, True, "", True, True, True)这一句
这个4.7123889803846是1.5*Pi吧，按注释来说圓弧角应该是2*Pi啊，这里有什么影响么

ryouss · 发表于 2018-5-11 13:22:10

錄制宏非萬能的,所以有問題到API幫助找資料了,如下參考:

Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swSketchMgr As SldWorks.SketchManager
Dim swSketchSegment As SldWorks.SketchSegment
Dim boolstatus As Boolean
Dim Part As Object
Sub main()
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
swApp.ResetUntitledCount 0, 0, 0
' Create part document
Set swModel = swApp.ActiveDoc
Set swSketchMgr = swModel.SketchManager
'Set swModelDocExt = swModel.Extension
' Sketch a circle
swModel.ShowNamedView2 "*Front", 1
Set swSketchSegment = swSketchMgr.CreateCircle(0#, 0.03, 0#, 0#, 0.04, 0#)
'value = instance.CreateCircularSketchStepAndRepeat(ArcRadius, ArcAngle, PatternNum, PatternSpacing, PatternRotate, _
DeleteInstances)圓弧半徑、圓弧角、花紋數、花紋間距(間隔弧度)、圖案旋轉、刪除實例
boolstatus = swSketchMgr.CreateCircularSketchStepAndRepeat(0.03, 4.71238898038469, 6, 1.0471975511966, True, "", True, True, True)
Dim myFeature As Object
Set myFeature = Part.FeatureManager.FeatureExtrusion2(True, False, False, 0, 0, 0.01, 0.01, False, False, False, False, _
1.74532925199433E-02, 1.74532925199433E-02, False, False, False, False, True, True, True, 0, 0, False)
End Sub

复制代码

soddy0715 · 发表于 2018-5-11 11:16:33

经典图书

楼主最好发张图片！

mint_tju · 发表于 2018-5-11 11:14:46

顶一下，坐等高手！

		自动登录	找回密码
密码			立即注册

solidworks录得宏运行后得到了和原图不相符的图形

浏览过的版块

最佳新人

宣传达人

活跃会员

热心会员

灌水之王

突出贡献