Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long
Dim Annotation As Object
Dim Gtol As Object
Dim DatumTag As Object
Dim FeatureData As Object
Dim Feature As Object
Dim Component As Object
Sub main()
Set swApp = CreateObject("sldworks.application")
Set Part = swApp.ActiveDoc
boolstatus = Part.Extension.SelectByID("正面" "PLANE" 0 0 0 False 0 Nothing)
Part.InsertSketch2 True
Part.CreateLine2(0 0.1 0 0 -0.1 0).ConstructionGeometry = True
Part.SketchMirror
Part.CreateLine2 Range("A2").Value / 1000 Range("B2").Value / 1000 0 0 Range("B12").Value / 1000 0
Part.SketchMirror
CreateCircularSketchStepAndRepeat ( arcRadius arcAngle patternNum patternSpacing patternRotate deleteInstances )
途中の"A2"等はエクセルのデータ取り込みの場所です。
最後から二番目までの、Part.SketchMirrorで、星型の一つの星を作れたのですが、
そこからのパターンコピーがうまくいきません。