;;; Mick's 3d lisp routines - Sept. 2008.;;;;;;;;;;;;;;;;;;;;;;;;;
; uf - quickly align ucs with a 3d face that you select. MSD-2008
)
; u3 - quickly align ucs with a 3 point pick. MSD-2008
)
; uS - save new ucs as 'name' MSD-2008
)
; ux - rotate ucs about x axis by 90 deg. MSD-2008
)
; uy - rotate ucs about y axis by 90 deg. MSD-2008
)
; uz - rotate ucs about z axis by 90 deg. MSD-2008
)
; up - set ucs to previous ucs. MSD-2008
)
; uv - set ucs to current view. MSD-2008
)
; uo - set ucs to new origin. MSD-2008
)
; fm - face move, moves a 3d face such as a hole in a 3d solid; MSD-2008
(command "_solidedit" "_face" "_move" pause
) )
; fd - face delete, deletes a 3d face such as a hole in a 3d solid; MSD-2008
(command "_solidedit" "_face" "_delete" pause
) )
; fe - face extrude, extrudes a 3d face to lengthen a 3d solid say; MSD-2008
(command "_solidedit" "_face" "_extrude" pause
) )
; fr - face rotate, rotates a 3d face/s such as a hole group in a 3d solid; MSD-2008
(command "_solidedit" "_face" "_rotate" pause
) )
; ub - quickly align ucs with an object that you select. MSD-2008
(princ "\nUCS now aligned with your selection: ") )
; ur - quickly rotate ucs 180 deg. MSD-2008
)
; uw - quickly set the UCS to world UCS. MSD-2008
(princ "\nUCS now aligned with the world UCS: ") )