Line 5 declares EndTail as an array of doubles so that it can be used as an argument in the call to the AddMText method at Line 13.Line 4 declares the TextObject variable to refer to the MText object that will be associated with the Leader object.In this example, the annotation is provided using an MText object, but a Tolerance or a BlockRef object can also be used. This object comprises an arrowhead, a tail, and an object containing the annotation. Line 3 declares the LeaderObject variable as being capable of referring to an AcadLeader object.Line 1 starts the CreateArrow macro, which creates an arrow according to the user’s specifications.Now enter the code from Listing 9.16 into the ThisDrawing’s Code window This code contains the CreateArrow macro that creates an arrowto the user’s specifications. Line 18 calls the Update method of the PolygonObject to redraw it in the Model Space so that the last point is included.Line 17 sets the color of the Polyline object to blue.Line 16 creates a new Polyline object based on the latest PolyArray, including the last point selected,and assigns it to the PolygonObject array.Line 15 deletes the Polyline object named PolygonObject.Line 14 starts the With statement block so that the properties and methods from the Model Space tab of the active drawing can be used without being fully qualified.Line 12 starts the RedrawPolyline procedure that deletes the last polyline and creates a new one containing the point just entered by the user.Line 9 unloads the Draw Arrow UserForm.Line 8 calls the Show method of the frmArrows UserForm to display it on the screen.Line 7 starts the DrawArrow macro that opens the frmArrow UserForm.Lines 1 through 5 declare the module level variables that are used by various procedures.Listing 9.15: Declarations and Macro for Running the Application This listing contains the DrawArrow macro that is used to open the application from the Macros dialog box, and the RedrawPolyline macro that re-creates a new polyline, which includes the last point clicked. Enter the code shown in Listing 9.15 into the ThisDrawing module Code window. Copy the GetShape macro from the earlier section “Creating Polar Arrays From A Macro” into the ThisDrawing Code window, and change its name as follows:Ĩ.

Autocad arrow line