;;; ;;; ;;; Author: ;;; Henry C. Francis ;;; 425 N. Ashe St. ;;; Southern Pines, NC 28387 ;;; ;;; http://paracadd.com ;;; All rights reserved. ;;; ;;; Copyright: ;;; Edited: (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) )