(DEFUN c:mysavtin () ;Save Current Surface (dt_mnl) (dt_mnl)(zz_sdsk '(dt_srfsave)) (C:LDD) ) ;_ end of DEFUN (DEFUN c:mycc () ;Create Contours (dt_mnl) (zz_sdsk '(DT_CONTOUR_OBJS)) (C:LDD) ) ;_ end of DEFUN (DEFUN c:myi3dl () ;Imports 3D TIN lines ;voice command "Import Lines" (dt_mnl) (zz_sdsk '(DT_TINAS3DLINES)) (C:LDD) ) ;_ end of DEFUN (DEFUN c:myaddl () ;Add TIN Lines (dt_mnl) (zz_sdsk '(DT_SRFADDLINE)) (C:LDD) ) ;_ end of DEFUN (DEFUN c:myerasel () ;Erase TIN Lines (dt_mnl) (zz_sdsk '(DT_SRFDELETELINE)) (C:LDD) ) ;_ end of DEFUN (DEFUN c:myff () ;Flip TIN Face (dt_mnl) (zz_sdsk '(DT_SRFFLIPFACE)) (C:LDD) ) ;_ end of DEFUN (DEFUN c:myaddp () ;Add TIN Point (dt_mnl) (zz_sdsk '(DT_SRFADDPT)) (C:LDD) ) ;_ end of DEFUN (DEFUN c:myerasep () ;Erase TIN Point (dt_mnl) (zz_sdsk '(DT_SRFDELETEPT)) (C:LDD) ) ;_ end of DEFUN (DEFUN c:myeditp () ;Edit TIN Point (dt_mnl) (zz_sdsk '(DT_SRFEDITPT)) (C:LDD) ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 nil nil nil nil T) ;*** DO NOT add text below the comment! ***|;