... 3/26/07 5: 39 PM Page 886Part.SketchRectangle -0.044907 755 10204, 0.02713176870748, 0, _0.06081 258 503401, -0.02806734693878, 0, 1Part.ClearSelection2 TruePart.CreateLine2(-0.044907 755 10204, ... Part.Extension.SelectByID2(“Line1”, “SKETCHSEGMENT”,_ 0.009 355 7823129 25, 0.02 759 955 782313, 0, False, 0, Nothing, 0)Dim Annotation As ObjectSet Annotation = Part.AddDimension2(0.0 057 694, 0.039918, 0)Part.ClearSelection2 ... 0.0898 155 boolstatus = Part.Extension.SelectByID2(“Line4”, “SKETCHSEGMENT”,_ 0.044907 755 10204, 0.009667641723 356 , 0, False, 0, Nothing, 0)Set Annotation = Part.AddDimension2(0.0661142, 0.0 057 694,...