;;
;;;-------------------------------------------------------------
;;;-------------------------------------------------------------
;;
(defun KDUB:UCS:BlackBox
(NewUcsName Origin XAxis YAxis Activate
/ objUCS
) ;;
;; by Kerry Brown 2004.Feb.11
;; Revised kwb 2005.Jul.02
;; Create a Named UCS and Optionally Activate it.
;|
Required globals : g:activedoc, g:ucss
Required dependancies : nil
Parameters :-
NewUcsName :<string>
Origin :<PointList (X Y Z)>
XAxis :<VectorList (X Y Z)>
YAxis :<VectorList (X Y Z)>
Activate :<nil or NonNil> Set as ActiveUCS
Returns : <VLA-OBJECT IAcadUCS ....> or nil.
|;
;;;;----------------
(or NewUcsName
(setq NewUcsName
"TempUCS")) ;;
NewUcsName
)
)
)
objUCS
)
;;
;;;-------------------------------------------------------------
;;;-------------------------------------------------------------