Message 1 of 2
add a breakout to the front view of a drawing using iLogic.
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
I would like to add a breakout to the front view of a drawing using iLogic.
I want to let the user choose the sketch and depth for creating the breakout on the fly.
When I run the rule, I want to be prompted to draw a sketch, and when I end the sketch, I want a command to select the depth to be executed.
The code below already has a sketch in the front view, and a breakout is created using one of the curves existing in the view as the depth... (found in another article)
Sub ADNTest() Dim oDoc As DrawingDocument Set oDoc = ThisApplication.ActiveDocument Dim oSheet As Sheet Set oSheet = oDoc.ActiveSheet Dim oView As DrawingView Set oView = oSheet.DrawingViews(1) Dim oSketch As Sketch Set oSketch = oView.Sketches(1) 'Create a profile then revolve it Dim oProfile As Profile Set oProfile = oSketch.Profiles.AddForSolid Dim oDCurve As DrawingCurve 'Dim oDCurve As GeometryIntent Set oDCurve = oView.DrawingCurves.Item(1) Dim oPointIntent As Point2d Set oPointIntent = oDCurve.StartPoint Dim oIntent1 As GeometryIntent Set oIntent1 = oSheet.CreateGeometryIntent(oDCurve, oPointIntent) 'Add break out view Dim oBreakOut As BreakOutOperations 'Set oBreakOut = oView.BreakOutOperations.Add(oProfile, oDCurve, 0, True) Set oBreakOut = oView.BreakOutOperations.Add(oProfile, oIntent1, 0.5, True) End Sub
Is there anyone who can give me the answer I want..?