AnsweredAssumed Answered

Getting offset planes..

Question asked by Sushil Chaskar on Jul 6, 2014
Latest reply on Jul 7, 2014 by Sushil Chaskar

Trying to get no. of planes automatically.. Getting error as Object variable not set in bolded line.. Any help ?

 

Dim swApp As Object  

 

 

 

 

Dim Part, Model As Object 

 

 

Dim planeName, newPlaneName As String

 

 

Dim planeFeature As Object

 

 

Dim i, planeCount As Integer

 

 

Set swApp = CreateObject("SldWorks.Application")

 

 

Set Model = swApp.ActiveDoc

 

 

If Model Is Nothing Then

 

 

Exit Sub

 

 

End If

 

 

newPlaneName = "Plane1"

 

 

planeCount = 0

 

 

 

 

For i = 1 To 5

 

 

Model.ClearSelection

 

 

Model.SelectByID newPlaneName, "PLANE", 0, 0, 0

 

 

Model.CreatePlaneAtOffset 0.1, 0

 

 

 

 

planeCount = planeCount + 1

 

 

 

 

planeName = "Plane" & planeCount

 

 

newPlaneName = "MyPlane" & i

 

 

 

 

Set planeFeature = Model.FeatureByName(planeName)

 

 

 

 

planeFeature.Name = (newPlaneName)

 

 

Model.EditRebuild

 

 

Next

 

 

 

 

End Sub

Outcomes