Something like:
Code:
;| Label for Point.
PtLabel.lsp BY: TOM BEAUFORD
^P(or C:Label (load "PtLabel.lsp"));PtLabel
BeaufordT@LeonCountyFL.gov
Leon County Public Works/Engineering
==================================================================|;
(defun C:PtLabel (/ ATTDIA)
(setq ATTDIA (getvar "ATTDIA"))
(setvar "ATTDIA" 0)
(command "._INSERT"
"Pt_Coordinates"
(getpoint "Pick Point: ") ;Insert pt
(/ 0.1 (getvar "cannoscalevalue")) ;X Scale
; (* (getvar "DIMTXT") (getvar "DIMSCALE")) ;X Scale (Alternate)
"" ;Y Scale
"" ;Rotation
"" ;Easting
"" ;Northing
)
(setvar "ATTDIA" ATTDIA)
(entupd (entlast))
; (command "._DDATTE" (entlast))
(princ)
)