Topic: Simple Current Date Mtext

[MSTG007]

 

... Could I get some direction please?

Code: [Select]

(command "._mtext" "0,0" "0,1" "%<\AcVar SaveDate \f "MMMM d, yyyy">%")
thank you guys.

[ronjonp]

Maybe this? "%<\\AcVar Date \\f \"M/d/yyyy\">%"

[kpblc]

Code - Auto/Visual Lisp: [Select]

1. (defun test (/ adoc mt pt)
2.   (if (and (= (type
3.                 (setq pt (vl-catch-all-apply (function (lambda () (getpoint "\nSelect point to insert MTEXT <Cancel> : ")))))
4.                 ) ;_ end of type
5.               'list
6.               ) ;_ end of =
7.            pt
8.            ) ;_ end of and
9.     (progn (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
10.            (setq mt (vla-addmtext (vla-get-modelspace adoc) (vlax-3d-point pt) 0. ""))
11.            (vla-put-textstring mt "%<\\AcVar SaveDate \\f \"MMMM d, yyyy\">%")
12.            (vla-regen adoc acactiveviewport)
13.            (vla-endundomark adoc)
14.            ) ;_ end of progn
15.     ) ;_ end of if
16.   (princ)
17.   ) ;_ end of defun
18.  

[MSTG007]

Thank you guys, The "\\" was throwing me off.

Thanks for the clarification!

[ronjonp]

Here's a vanilla solution too:

Code - Auto/Visual Lisp: [Select]

1. (defun c:foo (/ p)
2.   (and (setq p (getpoint "\nPick a point: "))
3.        (setq p (entmakex (list '(0 . "TEXT")
4.                                '(100 . "AcDbEntity")
5.                                '(8 . "text")
6.                                '(100 . "AcDbText")
7.                                (cons 10 p)
8.                                '(40 . 0.125)
9.                                '(1 . "%<\\AcVar Date \\f \"M/d/yyyy\">%")
10.                          )
11.                )
12.        )
13.        (command "_updatefield" p "")
14.   )
15.   (princ)
16. )

[MSTG007]

Dumb. question. with a simple one line command I like show. There is no way to adjust the "Tracking" Property from 1.0 to 1.5 is there?

[MSTG007]

Again thank you guys for the help...

Just wanted to share the Tracking Piece...

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/has-anyone-figured-out-how-to-accomplish-text-tracking-and/td-p/858427

Code: [Select]

"THIS LINE IS WITHOUT TRACKING.\\P{\\T0.75;AND THIS ISWITH }{\\T4.0;TRACKING}"