Inventor Customization

Inventor Customization

Reply
Contributor
12 Posts
0 Kudos
Registered: ‎03-01-2007
Post 1 of 2

SketchBlock Position

130 Views, 1 Replies
08-29-2012 10:35 AM

I have a sketchblock in a sketch that I need to postion into the correct quadrant. I have dimensions on the sketchblock that are told to be driven while running the quadrant position task shown below. see image. Sketchblock is currently in quadrant 1 and I need to be able to push that into the 3rd, thus the (-200,-200).

 

ThisApplication.ActiveDocument.ComponentDefinition.Sketches(1).SketchBlocks.Item(1).Postion.X = -200

ThisApplication.ActiveDocument.ComponentDefinition.Sketches(1).SketchBlocks.Item(1).Postion.Y = -200

 

After it is in the correct quadrant I power the dimensions to constraint the sketchblock into correct position.

 

The question is, how do I position the sketchblock in the correct quadrant via 'position'?

 

Not working.

ADN Support Specialist
540 Posts
81 Kudos
Registered: ‎08-14-2012
Post 2 of 2

Re: SketchBlock Position

09-02-2012 11:23 PM in reply to: tomjames3d

This method works in your case:

Sub MoveBlock()

  Dim oDoc As PartDocument
  Set oDoc = ThisApplication.ActiveDocument

  Dim oDef As PartComponentDefinition
  Set oDef = oDoc.ComponentDefinition
  
  Dim oSketch As Sketch
  Set oSketch = oDef.Sketches.Item(1)
  
  Dim oBlock As SketchBlock
  Set oBlock = oSketch.SketchBlocks.Item(1)
  
  Dim oP As Point2d
  Set oP = oBlock.Position
  
  oP.x = oP.x + 1
  oP.y = oP.y + 1
  
  oBlock.Position = oP
  oSketch.Solve

End Sub

 


Vladimir Ananyev
Developer Technical Services
Autodesk Developer Network

Post to the Community

Have questions about Autodesk products? Ask the community.

New Post
Announcements
Are you interested in helping shape the future of the Autodesk Community? To participate in this brief usability study, please click here. Your time and input is greatly appreciated!