VLisp Mtext Justification Property

How I Set the Justification Property of a Mtext entity, through Visual Lisp.

(setq Obj (vla-addMText *WorkSpace* (vlax-3d-point StartPt) MTextHeight InputString))

(vlax-put-property Obj '?????? MiddleCenter)


Chandan

 

AlignmentPoint

 

VLisp Mtext Justification Property “AlignmentPoint†not working.

The flowing error occurs when I execute the syntax:

(vlax-put-property Obj 'AlignmentPoint "MiddleCenter")

; error: ActiveX Server returned the error: unknown name: ALIGNMENTPOINT

 

Sir, please check this function:

;;; Create Any Mtext Entity
(defun CreateMtextEntity (StartPt InputString MTextHeight MTextWidth MTextJustify MTextLayer / *ModelSpace* Obj)
(if (= (getvar "TILEMODE") 1)
(setq *WorkSpace* (vla-get-ModelSpace (vla-get-ActiveDocument (vlax-get-Acad-Object))))
(setq *WorkSpace* (vla-get-PaperSpace (vla-get-ActiveDocument (vlax-get-Acad-Object))))
)
(setq Obj (vla-addMText *WorkSpace* (vlax-3d-point StartPt) MTextHeight InputString))
(vlax-put-property Obj 'Height MTextHeight)
(vlax-put-property Obj 'StyleName "STANDARD")
(vlax-put-property Obj 'Layer MTextLayer)
(vlax-put-property Obj 'Lineweight 0)
(vlax-put-property Obj 'Width MTextWidth)
;***** Checking Require *****
(vlax-put-property Obj 'AlignmentPoint MTextJustify) ;***** Checking Require *****
;***** Checking Require *****
(vlax-release-object Obj)
(gc)
)

(defun C:TT ()
(setq Pt (getpoint "Pick a Point: ")
InputString "SECTION WEIGHT FOR DRAWING NO: XXXXXXXXXXXXXXXXXXXXXX"
MTextHeight 5.0
MTextWidth 175.0
MTextJustify "MiddleCenter"
MTextLayer "Layer1")
(CreateMtextEntity Pt InputString MTextHeight MTextWidth MTextJustify MTextLayer)
)

(C:TT)

 

Look at the MText object in the ActiveX Reference.

--
R. Robert Bell


Sir, please check this function:

;;; Create Any Mtext Entity
(defun CreateMtextEntity (StartPt InputString MTextHeight MTextWidth
MTextJustify MTextLayer / *ModelSpace* Obj)
(if (= (getvar "TILEMODE") 1)
(setq *WorkSpace* (vla-get-ModelSpace (vla-get-ActiveDocument
(vlax-get-Acad-Object))))
(setq *WorkSpace* (vla-get-PaperSpace (vla-get-ActiveDocument
(vlax-get-Acad-Object))))
)
(setq Obj (vla-addMText *WorkSpace* (vlax-3d-point StartPt) MTextHeight
InputString))
(vlax-put-property Obj 'Height MTextHeight)
(vlax-put-property Obj 'StyleName "STANDARD")
(vlax-put-property Obj 'Layer MTextLayer)
(vlax-put-property Obj 'Lineweight 0)
(vlax-put-property Obj 'Width MTextWidth)
;***** Checking Require *****
(vlax-put-property Obj 'AlignmentPoint MTextJustify) ;***** Checking
Require *****
;***** Checking Require *****
(vlax-release-object Obj)
(gc)
)

(defun C:TT ()
(setq Pt (getpoint "Pick a Point: ")
InputString "SECTION WEIGHT FOR DRAWING NO: XXXXXXXXXXXXXXXXXXXXXX"
MTextHeight 5.0
MTextWidth 175.0
MTextJustify "MiddleCenter"
MTextLayer "Layer1")
(CreateMtextEntity Pt InputString MTextHeight MTextWidth MTextJustify
MTextLayer)
)

(C:TT)

 

Mark led you astray........you want the AttachmentPoint for Mtext objects

 

oops sorry
:-\