convert points between UCS and WCS with AutoLISP

[burtonSTR]

Though CAL can do this, but how can I complete in an AutoLISP file?

Thank you

 

[milena02]

Translates a point (or a displacement) from one coordinate system to another

(trans pt from to [disp])
Arguments

pt
A list of three reals that can be interpreted as either a 3D point or a 3D displacement (vector).

from
An integer code, entity name, or 3D extrusion vector identifying the coordinate system in which pt is expressed. The integer code can be one of the following:

0?World (WCS)

1?User (current UCS)

2?If used with code 0 or 1, this indicates the Display Coordinate System (DCS) of the current viewport. When used with code 3, it indicates the DCS of the current model space viewport.

3?Paper space DCS (used only with code 2)

to
An integer code, entity name, or 3D extrusion vector identifying the coordinate system of the returned point. See the from argument for a list of valid integer codes.

disp
If present and is not nil, this argument specifies that pt is to be treated as a 3D displacement rather than as a point.