The code explained above when executed will create a Text object XL n CAD of height 10 and rotation angle 25° at the point 300,450,0. End Sub - Line 12Įnd Sub means, end of the Sub procedure otherwise end of the Macro. ZoomAll method will readjust the drawing area to display the newly created text. Rotation angle is multiplied by 180°π as the same should be provided as Radians. This statement is to rotate the newly created text at 25°. This statement creates a Text object of specified Content (XL n CAD) at InsPoint (300,450,0) with the specified Height (10).

XL n CAD is the text to be created and is stored in the variable Content Set XLnCADText = (Content, InsPoint, Height) - Line 9

x co-ordinate is 300, y co-ordinate is 450 and z co-ordinate is 0. X, y and z co-ordinates for the insertion point of the text object are defined in this line. Dim Content As String - Line 5Ĭontent is the variable to store the content of the text object to be created. Dim Height As Double - Line 4Ī variable Height will be created which will be used to store the height of the text object to be created. Dim InsPoint(0 To 2) As Double - Line 3Ī variable InsPoint will be created as an Array of size 3. Here, the variable XLnCADText is declared as AcadText. When a variable is declared as AcadText, it can be used to refer Text objects in AutoCAD. Set XLnCADText = (Content, InsPoint, Height)Įnd Sub Explanation of the Code Sub CreateText() - Line 1ĬreateText is the name of the Macro Dim XLnCADText As AcadMText - Line 2 VBA code for creating Text in AutoCADįollowing is the VBA code to create a Text object ‘XL n CAD’ of height ’10’ and rotation angle ’25°’ at the point ‘300,450,0’. The same macro, with a simple modification can be used to insert Current Date and Time in AutoCAD drawings.

In this post, I have explained ‘How to create Text objects in AutoCAD using VBA’. Join online Course on AutoCAD VBA Programming

Macro to insert Current Date into AutoCAD Drawing.

Join online Course on AutoCAD VBA Programming.

How to insert text in autocad