;;;
;;;
;;;>	Author:	Henry C. Francis
;;;>		425 N. Ashe St.
;;;>		Southern Pines, NC 28387
;;;>		http://paracadd.com
;;;>		All rights reserved.
;;;
;;;>		COPYRIGHT: 
;;;>		   EDITED: 09-08-2004
;;;
(DEFUN C:MYUCS ()
  (IF UPOINT NIL (LOAD"UPOINT.LSP"))
  (COMMAND "UCS" "WORLD")
  (SETQ MY_ORIGINPT (UPOINT 1 "" "Select origin point for new UCS" nil nil))
  (SETQ MY_XAXISPT (UPOINT 1 "" "Select point on X-axis of new UCS" nil MY_ORIGINPT))
  (SETQ MY_YAXISPT (UPOINT 1 "" "Select Y-axis direction of new UCS" nil MY_ORIGINPT))
  (SETQ MY_ORIGINPT (LIST (CAR MY_ORIGINPT)(CADR MY_ORIGINPT) 0.0))
  (SETQ MY_XAXISPT (LIST (CAR MY_XAXISPT)(CADR MY_XAXISPT) 0.0))
  (SETQ MY_YAXISPT (LIST (CAR MY_YAXISPT)(CADR MY_YAXISPT) 0.0))
  (COMMAND ".UCS" "NEW" "3" MY_ORIGINPT MY_XAXISPT MY_YAXISPT)
  (PRINC)
)