Level lisp for current UCS

Hi,

I have the following lisp file created by Muharrem Kocyigit for editing levels in a drawing. The routine will get the Yvalue from the block insertion point as a text field to enable it to update should the user move the block.

I would like to amend this routine so that it can be used in a user defined ucs. Currently it will display the y value from the WCS when used in a user defined ucs.

I am pretty sure this is the area of the lisp that needs to be modified.

basically I want to take Yval and using the Trans function convert it to the current ucs value

 
;;; Define Praefix
         (setq PrFix (strcat "%ps[" str ",]"))
         (setq YVal  (strcat "%<[url="file://acobjprop/"]\\AcObjProp[/url] Object(%<[url="file://_objid/"]\\_ObjId[/url] "
                             (vl-princ-to-string ObjID)
                             ">%).InsertionPoint>%"
         ))
         (setq FStr (strcat "%<[url="file://acexpr/"]\\AcExpr[/url] (" YVal "/" "1000" ") "
                            "[url="file://f/"]\\f[/url] \"" "%lu2"
                            "%pt" (itoa PtIndex)
                            "%pr3" "%ds44" PrFix "\">%"
         ))

I have the following info from the help section

(setq pt '(1.0 2.0 3.0))
(setq cs_from 0)              ; WCS
(setq cs_to 1)                ; UCS 
(trans pt cs_from cs_to 0)    ; disp = 0 indicates that pt is a point

I have been unsuccessful trying to combine them to get the desired result. Any help would be much appreciated. Thanks

Level-updated.zip