Macros on Adaptive Sweep
Macros on Adaptive Sweep
(OP)
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.
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.





RE: Macros on Adaptive Sweep
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"
RE: Macros on Adaptive Sweep
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