Rapidly rotating three-dimensional solid

It is so much more impressive in LISP

 

I await your test.

 

Hi! GP, I test, Error: AutoCAD Variable is denied : 3DOSMODE 64,I use cad2010 ,32bit winxp

...Error: AutoCAD Variable is denied : 3DOSMODE 64,I use cad2010...

This variable is available from AutoCAD2011, see here:

http://www.hyperpics.com/system_variables/index.asp

You can delete the following red code, but the selection point will not be on the face of the solid.

    
(defun c:test ( / *error* cmd os [color=red][b]3Dos[/b][/color] pf)
   (defun *error* ( msg )
       (command "_.undo" "_end")
       (command "_.undo" "")        
       (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
           (princ (strcat "\nError: " msg))
       )
       (princ)
   )
   (setq cmd (getvar 'cmdecho))
   (setq os (getvar 'osmode))    
[color=red][b]   (setq 3Dos (getvar '3Dosmode))[/b][/color]
   (command "_.undo" "_begin")    
   (setvar 'cmdecho 0)    
   (setvar 'osmode 0)      
[color=red][b]   (setvar '3Dosmode 64)[/b][/color]
   (command "_-view" "_s" "test")
   (command "_-visualstyles" "_c" "_c")
   (if (setq pf (trans (getpoint "\nSelect a face of solid object: ") 1 0))
       (progn
           (command "_ucs" "_face" (trans pf 0 1) "")
           (command "_copybase" (trans pf 0 1) (trans pf 0 1) "")
           (command "_erase" (trans pf 0 1) "")
           (command "ucs" "_p")
           (command "_-view" "_r" "test")
           (command "_-view" "_d" "test")
           (command "_pasteclip" "\\")
       )
   )
[b][color=red]   (setvar '3Dosmode 3Dos)[/color][/b]
   (setvar 'osmode os)
   (setvar 'cmdecho cmd)
   (command "_.undo" "_end")
   (princ)
)

This variable is available from AutoCAD2011, see here:

http://www.hyperpics.com/system_variables/index.asp

Hi,GP ,for low version, there is no alternative?

Hi,GP ,for low version, there is no alternative?

What version are you using? Your profile indicates AutoCAD 2012.

Are you the same person as highflybird?

Hi,GP ,for low version, there is no alternative?

Not that I'm aware of.

What version are you using? Your profile indicates AutoCAD 2012.

 

 

Are you the same person as highflybird?

In the company,I use Acad2012 ,at home ,I use Acad2007,

Why would you think flyfox1047 and highflybird are the same person?

Not that I'm aware of.

GP,Thank you for your reply!

In the company,I use Acad2012 ,at home ,I use Acad2007,

 

 

Why would you think flyfox1047 and highflybird are the same person?

You tell me why I would think that.

You tell me why I would think that.

Maybe you are the Hulk.

is it possible automatic to rotate the largest face of multiple 3d solid to the current view ?