Message 1 of 2
DrawingCurvesEnumerator
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello
To reproduce please do the following in Inventor 2011:
- create a sheet metal part (a simple face is enough)
- create a sketch on the face and put a rectangle on it
- make a FlatPattern
- mark the sketch as CopyToFlatPattern
- create an IDW and put a FlatPattern BaseView on it
- include the sketch
- run the following code in VBA-Editor to see, that the sketch lines are not included in the DrawingCurvesEnumerator
Option Explicit
Private Sub test()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oCurveEnum As DrawingCurvesEnumerator
Set oCurveEnum = oDrawDoc.ActiveSheet.DrawingViews.Item(1).DrawingCurves
MsgBox "count: " & oCurveEnum.Count 'says 4, instead of expected 8
End Sub
Bug or "as designed"? Or my fault? Edited by: krieg on Mar 27, 2010 12:56 PM
R. Krieg
RKW Solutions
www.rkw-solutions.com
To reproduce please do the following in Inventor 2011:
- create a sheet metal part (a simple face is enough)
- create a sketch on the face and put a rectangle on it
- make a FlatPattern
- mark the sketch as CopyToFlatPattern
- create an IDW and put a FlatPattern BaseView on it
- include the sketch
- run the following code in VBA-Editor to see, that the sketch lines are not included in the DrawingCurvesEnumerator
Option Explicit
Private Sub test()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oCurveEnum As DrawingCurvesEnumerator
Set oCurveEnum = oDrawDoc.ActiveSheet.DrawingViews.Item(1).DrawingCurves
MsgBox "count: " & oCurveEnum.Count 'says 4, instead of expected 8
End Sub
Bug or "as designed"? Or my fault? Edited by: krieg on Mar 27, 2010 12:56 PM
R. Krieg
RKW Solutions
www.rkw-solutions.com