Macros on Adaptive Sweep

[Ashvanth]

Hai pals,

I have problems for recording a macro with adaptive sweep.

I sketch the profile before entering into Ad-Sweep option and inside the sketch option i select the sketch which i created and say add after and pick the points to place the user sectoins. At the preview of the sweep i'm able to generate the sweep without any probs.
On running the macro i have probs with the selected sketch. it says
Dim Sketch1
No resolution found for object Sketch 1.

do anyone have a solution for this.

Bye
Ashvanth.

 

[puck]

There is a little more to it than that.

Take a look at some code I use to select a Product
<code>
Dim Sel1(0)
Sel1(0) = "Product"

ProdDoc.Activate

Dim SelObject As Object


Set Selection1 = ProdDoc.Selection

Selection1.Clear
vRet = Selection1.SelectElement(Sel1, "Select the Part that is a symmetry.", True)
Set SelObject = Selection1.Item(1)
Set SymProd = SelObject.Value

</code>

You will just need to replace the type "Product" with "Sketch"

 

[Ashvanth]

hi puck

thanx for the codes, but whatever u have given is a CATscript i suppose . but im using VBScript.

somewhat got the logic inside ur code. will try with my macro.

bye
ashvanth