Registered forum members do not see this ad.
Another comment regarding usage of SCRIPT command in prompt mode – if you will name the script using drawing’s name (i.e. Move.DWG & Move.SCR) and place them on the same folder, then when issue the command, the default value will be constructed based on drawing’s name, so you will not have to type the path; just hit <Enter> and the show will begin.
Regards,
Mircea
AutoCAD's happy user equation: FILEDIA + PICKADD² + PICKFIRST = 3
Registered forum members do not see this ad.
If you're still interested. both the codes i posted can be modified to do just that. the sequence will all depend on your imagination.
If you want the ball to "remain", just comment this line [on post #9]
or if you want to it to leave a trail.Code:(rolling delay) ;; (hide lnm 2) )
Try that and see how it looks. As for the Freeze/Thaw approach. the code can be modified to accept list of layers for the _FTLayer sub.Code:(defun c:Roll (/ hide Rolling Delay n) (initget 7) (setq delay (getint "\nEnter Delay factor: ")) (defun hide (ln mode) (setq ss (ssget "_X" (list (cons 8 ln)))) (repeat (setq i (sslength ss)) (redraw (ssname ss (setq i (1- i))) mode))) (defun Rolling (prcnt) (repeat prcnt (setq prcnt_1 (1+ prcnt)) (prompt "\r|") (prompt "\r/") (prompt "\r|") (prompt "\r\\") (princ) ) ) (setq n 0) (hide "ROLL-*" 2) (repeat 29 (setq lnm (strcat "Roll-" (itoa (setq n (1+ n))))) (hide lnm 1) (rolling delay) (hide lnm 3) ) (hide "Roll-29" 1) (setq n 0) (repeat 29 (setq lnm (strcat "Roll-" (itoa (setq n (1+ n))))) (hide lnm 2) (rolling (/ delay 2)) ) (hide "Roll-29" 4)(hide "Roll-29" 2)(hide "Roll-29" 1) )
Thing is, the "animation" is only limited by your imagination mcclarion.
Bookmarks