<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: The question of Create sectionView in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-question-of-create-sectionview/m-p/7218306#M73402</link>
    <description>&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I find the error.&lt;/P&gt;&lt;PRE&gt;Dim oDrawingDoc As DrawingDocument
oDrawingDoc = ThisApplication.ActiveDocument 
      
Dim oSheet As Sheet
oSheet = oDrawingDoc.Sheets.Item(1)
       
Dim oPoint1 As Point2d
oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(-1500#, -1500#)
Dim oView1 As DrawingView
oView1=oSheet.DrawingViews.Item(1)
Dim oPoint2 As Point2d
oPoint2 = ThisApplication.TransientGeometry.CreatePoint2d(1000#, 1000#)
Dim oPoint3 As Point2d
oPoint3 = ThisApplication.TransientGeometry.CreatePoint2d(-100#, 100#)
Dim oDrawingSketch As DrawingSketch
oDrawingSketch = oView1.Sketches.Add
    
oDrawingSketch.Edit
Dim oSketchLine As SketchLine
oSketchLine = oDrawingSketch.SketchLines.AddByTwoPoints(oPoint1, _
    oPoint2)
oDrawingSketch.ExitEdit


 Dim oView2 As SectionDrawingView

oView2 = oSheet.DrawingViews.AddSectionView(oView1, _
     oDrawingSketch, oPoint3, &lt;FONT color="#ff0000"&gt;DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle&lt;/FONT&gt;,,,,,,)

'oDrawingSketch.Visible = False&lt;/PRE&gt;</description>
    <pubDate>Tue, 11 Jul 2017 02:04:08 GMT</pubDate>
    <dc:creator>Stakin</dc:creator>
    <dc:date>2017-07-11T02:04:08Z</dc:date>
    <item>
      <title>The question of Create sectionView</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-question-of-create-sectionview/m-p/7218254#M73401</link>
      <description>&lt;P&gt;Hi,Everyone&lt;/P&gt;&lt;P&gt;Recently,I want to use logic o create&amp;nbsp;section view, but the code I write doesn't work. Great God, please help me see what went wrong.&lt;/P&gt;&lt;PRE&gt;Dim oDrawingDoc As DrawingDocument
oDrawingDoc = ThisApplication.ActiveDocument 
      
Dim oSheet As Sheet
oSheet = oDrawingDoc.Sheets.Item(1)
       
Dim oPoint1 As Point2d
oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(-1500#, -1500#)
Dim oView1 As DrawingView
oView1=oSheet.DrawingViews.Item(1)
Dim oPoint2 As Point2d
oPoint2 = ThisApplication.TransientGeometry.CreatePoint2d(1000#, 1000#)
Dim oPoint3 As Point2d
oPoint3 = ThisApplication.TransientGeometry.CreatePoint2d(-100#, 100#)
Dim oDrawingSketch As DrawingSketch
oDrawingSketch = oView1.Sketches.Add
    
oDrawingSketch.Edit
Dim oSketchLine As SketchLine
oSketchLine = oDrawingSketch.SketchLines.AddByTwoPoints(oPoint1, _
    oPoint2)
oDrawingSketch.ExitEdit


 Dim oView2 As SectionDrawingView

oView2 = oSheet.DrawingViews.AddSectionView(oView1, _
     oDrawingSketch, oPoint3, kHiddenLineRemovedDrawingViewStyle,,,,,,)

oDrawingSketch.Visible = False&lt;/PRE&gt;</description>
      <pubDate>Tue, 11 Jul 2017 01:13:51 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-question-of-create-sectionview/m-p/7218254#M73401</guid>
      <dc:creator>Stakin</dc:creator>
      <dc:date>2017-07-11T01:13:51Z</dc:date>
    </item>
    <item>
      <title>Re: The question of Create sectionView</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-question-of-create-sectionview/m-p/7218306#M73402</link>
      <description>&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I find the error.&lt;/P&gt;&lt;PRE&gt;Dim oDrawingDoc As DrawingDocument
oDrawingDoc = ThisApplication.ActiveDocument 
      
Dim oSheet As Sheet
oSheet = oDrawingDoc.Sheets.Item(1)
       
Dim oPoint1 As Point2d
oPoint1 = ThisApplication.TransientGeometry.CreatePoint2d(-1500#, -1500#)
Dim oView1 As DrawingView
oView1=oSheet.DrawingViews.Item(1)
Dim oPoint2 As Point2d
oPoint2 = ThisApplication.TransientGeometry.CreatePoint2d(1000#, 1000#)
Dim oPoint3 As Point2d
oPoint3 = ThisApplication.TransientGeometry.CreatePoint2d(-100#, 100#)
Dim oDrawingSketch As DrawingSketch
oDrawingSketch = oView1.Sketches.Add
    
oDrawingSketch.Edit
Dim oSketchLine As SketchLine
oSketchLine = oDrawingSketch.SketchLines.AddByTwoPoints(oPoint1, _
    oPoint2)
oDrawingSketch.ExitEdit


 Dim oView2 As SectionDrawingView

oView2 = oSheet.DrawingViews.AddSectionView(oView1, _
     oDrawingSketch, oPoint3, &lt;FONT color="#ff0000"&gt;DrawingViewStyleEnum.kHiddenLineRemovedDrawingViewStyle&lt;/FONT&gt;,,,,,,)

'oDrawingSketch.Visible = False&lt;/PRE&gt;</description>
      <pubDate>Tue, 11 Jul 2017 02:04:08 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/the-question-of-create-sectionview/m-p/7218306#M73402</guid>
      <dc:creator>Stakin</dc:creator>
      <dc:date>2017-07-11T02:04:08Z</dc:date>
    </item>
  </channel>
</rss>

