Here is some code that will insert a given block 'on' the current UCS (color red), the corresponding OCS(color green) and the WCS (color white). Make sure to use a block containing some elements with the color ByBlock.
Note: I use BricsCAD instead of AutoCAD.
(defun c:CS_Insert ( / name UcsZDir)
(if (tblobjname "block" (setq name (getstring T "\nValid block name: ")))
(progn
(setq UcsZDir (trans '(0.0 0.0 1.0) 1 0 T))
; Current UCS:
(entmake
(list
'(0 . "INSERT")
'(8 . "0")
'(62 . 1) ; Red.
(cons 2 name)
(cons 10 (trans '(0.0 0.0 0.0) 1 UcsZDir))
'(41 . 1.0)
'(42 . 1.0)
'(43 . 1.0)
(cons 50 (angle '(0.0 0.0 0.0) (trans '(1.0 0.0 0.0) 1 UcsZDir T)))
(cons 210 UcsZDir)
)
)
; OCS:
(entmake
(list
'(0 . "INSERT")
'(8 . "0")
'(62 . 3) ; Green.
(cons 2 name)
'(10 0.0 0.0 0.0)
'(41 . 1.0)
'(42 . 1.0)
'(43 . 1.0)
'(50 . 0.0)
(cons 210 UcsZDir)
)
)
; WCS:
(entmake
(list
'(0 . "INSERT")
'(8 . "0")
'(62 . 7) ; White/black.
(cons 2 name)
'(10 0.0 0.0 0.0)
'(41 . 1.0)
'(42 . 1.0)
'(43 . 1.0)
'(50 . 0.0)
'(210 0.0 0.0 1.0)
)
)
)
)
(princ)
)