0 Members and 1 Guest are viewing this topic.
The program is indifferent to buttons of the mouse and the keyboard...Certainly, all can be stopped.I with you agree! (For example a hammer...)
If I have correctly understood, the program is necessary for presentation and should not stop...I badly understand English and could understand explanations incorrectly.
No....you did just fine!
I do not have time to complete this program (command PAN) is not processed, if who that will make, it will be interesting to look!
(defun time-3dorbit (/ s) ;; ElpanovEvgeniy, Russia, Moscow, 2006 ;; Timer for test-3dorbit ;; (time-3dorbit) (princ "\n tiner set 60 sec ") (setq s ((lambda (sec) (+ (* 86400 (- sec (fix sec))) 60)) (getvar "DATE"))) (while (> s ((lambda (sec) (* 86400 (- sec (fix sec)))) (getvar "DATE"))) (VL-CATCH-ALL-APPLY (function test-3dorbit) (list s)) ) ;_ while (princ)) ;_ defun(defun my-3dorbit (sec / PT1 PT2 R S V V1 VD W) ;; ElpanovEvgeniy, Russia, Moscow, 2006 ;; Function "3dorbit" ;; During work it is possible to use PAN and ZOOM ;; in a transparent mode. ;; (my-3dorbit) (if (tblsearch "VIEW" "tmp1") (setq v1 (tblobjname "VIEW" "tmp1") pt2 (trans (cadr (grread nil 5)) 1 2) ) ;_ setq (setq v1 (entmakex (list '(0 . "VIEW") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbViewTableRecord") '(2 . "tmp1") '(70 . 0) (cons 40 (getvar "VIEWSIZE")) (cons 10 (getvar "VIEWCTR")) (cons 41 (* (getvar "VIEWSIZE") (apply (function /) (getvar "SCREENSIZE") ) ;_ apply ) ;_ * ) ;_ cons (cons 11 (getvar "VIEWDIR")) '(12 0. 0. 0.) (cons 42 (getvar "LENSLENGTH")) (cons 43 (getvar "FRONTZ")) (cons 44 (getvar "BACKZ")) (cons 50 (getvar "VIEWTWIST")) (cons 71 (getvar "VIEWMODE")) '(281 . 6) '(72 . 0) ) ;_ list ) ;_ entmakex pt2 (trans (cadr (grread nil 5)) 1 2) ) ;_ setq ) ;_ if (while (and (= (car (setq pt1 (grread nil 5))) 5) (> sec ((lambda (sec) (* 86400 (- sec (fix sec)))) (getvar "DATE"))) ) ;_ and (setq r (/ (getvar "VIEWSIZE") 4.) w (trans (getvar "VIEWCTR") 1 2) pt1 (trans (cadr pt1) 1 2) v (trans ((lambda (x1 y1 x2 y2) (list (- x1 x2) (- y1 y2) (- (sqrt (abs (- (* R R) (* x1 x1) (* y1 y1)))) (sqrt (abs (- (* R R) (* x2 x2) (* y2 y2)))) ) ;_ - ) ;_ list ) ;_ lambda (- (car pt2) (car w)) (- (cadr pt2) (cadr w)) (- (car pt1) (car w)) (- (cadr pt1) (cadr w)) ) 2 1 ) ;_ trans pt2 pt1 s (/ r (distance '(0. 0. 0.) (getvar "VIEWDIR"))) vd (mapcar (function (lambda (x) (* x s))) (getvar "VIEWDIR")) v (mapcar (function +) vd v) s (/ r (distance '(0. 0. 0.) v)) v ((lambda (s) (list (* (car v) s) (* (cadr v) s) (* (caddr v) s))) (/ r (distance '(0. 0. 0.) v)) ) w (* (/ r (getvar "VIEWSIZE")) (* (getvar "VIEWSIZE") (apply (function /) (getvar "SCREENSIZE") ) ;_ apply ) ;_ * 4. ) ;_ * ) ;_ setq (entmod (list (cons -1 v1) '(0 . "VIEW") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbViewTableRecord") '(2 . "tmp1") '(70 . 0) (cons 40 (getvar "VIEWSIZE")) (cons 10 (trans (getvar "VIEWCTR") 1 2)) (cons 41 (* (getvar "VIEWSIZE") (apply (function /) (getvar "SCREENSIZE") ) ;_ apply ) ;_ * ) ;_ cons (cons 11 v) '(12 0. 0. 0.) (cons 42 (getvar "LENSLENGTH")) (cons 43 (getvar "FRONTZ")) (cons 44 (getvar "BACKZ")) (cons 50 (getvar "VIEWTWIST")) (cons 71 (getvar "VIEWMODE")) '(281 . 6) '(72 . 0) ) ;_ list ) ;_ entmod (entupd v1) (setview (tblsearch "VIEW" "tmp1")) ) ;_ while) ;_ defun
Waiting!!!!
LeeBen what are you waiting for exactly?