How can i create a center point by vba

[hn4096]

Dear all:

            i want to create a center point  use vba code,but i have no idea to do

           i need this url center point,pls help

http://wikihelp.autodesk.com/Inventor/enu/2012/Help/0073-Autodesk73/0308-Parts308/0309-2D_sketc309/0...

[Yijiang.Cai]

Hello,

please create one sketch first, and copy & paste the code lines in VBA editor. The centerpoint will be created after running.

Thanks,

River Cai

=====================================================

Sub CenterPointCreate()
    Dim oSketch As Sketch
    Set oSketch = ThisApplication.ActiveEditObject
   
    Dim oPt As Point2d
    Set oPt = ThisApplication.TransientGeometry.CreatePoint2d(1, 1)
   
    Call oSketch.SketchPoints.Add(oPt, True)
End Sub