Is it possible to create Coordinates Block with diesel expressions

hi,

Is it possible to create Coordinates Block with diesel expressions? please let me know how to create if it possible.

thanks and regards

Bijoy

Lisp code to insert coordinate label block:

;| 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
              (*(/(getvar "viewtwist")pi)-180)	;Rotation
              ""					        	;Easting
              ""					        	;Northing
     )
     (setvar "ATTDIA" ATTDIA)
     (entupd (entlast))
;      (command "._DDATTE" (entlast))
     (princ)
)

Required Pt_Coordinates.dwg to insert attached.

Pt_Coordinates.dwg