(defun C:RS ()
(setvar "osmode" 16384)
(command "-layer" "m" "TPZ-NOTES" "C" "1" "" "")
(command "_.spline")
(while (> (getvar "CmdActive") 0)
(command pause)
)
(command "_.revcloud" "_o" "_l" "_n")
(setvar "osmode" 167)
(princ)
)
(c:rs)

Advertisements