Creates an MText
entity in a rectangle defined by the insertion point and width of the
bounding box.
Signature
VBA : RetVal =
object.AddMText(InsertionPoint, Width, Text)
VL : RetVal = (vla-AddMtext
object InsertionPoint Width Text)
(vla-AddMText mspace
(vlax-3d-point apt) wt thestring)
-
Object :
ModelSpace Collection, PaperSpace Collection, Block
The object or objects this method applies to.
-
InsertionPoint :
Variant (three-element array of doubles); input-only
The insertion point of the mtext bounding box.
-
Width : Double;
input-only
The width of the mtext bounding box.
-
Text : String;
input-only
The actual text string for the MText object.
-
RetVal : MText
object
The newly created MText object.
Example :
(defun c:al-addMText ()
(vl-load-com)
(setq mspace (vla-get-modelspace
(vla-get-activedocument
(vlax-get-acad-object))))
(setq apt (getpoint "\nInsertion Point: "))
(setq wt (getdist apt "\nWidth : "))
(setq thestring (getstring T "\nText : "))
(setq theMText (vla-AddMText mspace (vlax-3d-point apt) wt thestring))
(princ)
);defun
|
|