mitchellrodhous Posted June 11, 2010 Share Posted June 11, 2010 hey probably an easy job to get it done, but what is the command to change my point of view in the modelspace>? Thanks MR. PS1 I want to set an iso view automatic... RESULT OF FORUM (command "_-view" "_swiso" ) ;End command Quote Link to comment Share on other sites More sharing options...
Dana W Posted June 11, 2010 Share Posted June 11, 2010 Isoplane Izzat it? Quote Link to comment Share on other sites More sharing options...
mitchellrodhous Posted June 11, 2010 Author Share Posted June 11, 2010 nope, as you known theire is an top, bottom, left, right, sw iso, se iso view etc.. I want to set my sw ISOmetric view by command and put that in my list so, bevore starting any other commands he has to change view;) Quote Link to comment Share on other sites More sharing options...
jammie Posted June 11, 2010 Share Posted June 11, 2010 Maybe the following could be of help (Defun c:test () (if (progn (initget "SW SE NE NW") (setq Input (getkword "\n[sW/SE/NE/NW]"))) (cond ((= Input "SW")(command "_-view" "_swiso")) ((= Input "SE")(command "_-view" "_seiso" )) ((= Input "NE")(command "_-view" "_neiso" )) ((= Input "NW")(command "_-view" "_swiso")) ) ) ) Regards Jammie Quote Link to comment Share on other sites More sharing options...
alanjt Posted June 11, 2010 Share Posted June 11, 2010 Courtesy of Gile (I think, I found this a loooong time ago). ;view switch ;| 0 > bottom 1 > SW iso 2 > front 3 > SE iso 4 > left 5 > top 6 > right 7 > NO iso 8 > back 9 > NE iso |; (mapcar '(lambda (f v) (eval (list 'defun-q f nil (list 'command "_.view" v) (list 'princ v) '(princ) ) ) ) '(c:0 c:1 c:2 c:3 c:4 c:5 c:6 c:7 c:8 c:9) '("_bottom" "_swiso" "_front" "_seiso" "_left" "_top" "_right" "_nwiso" "_back" "_neiso" ) ) Corresponds to the Number pad. Quote Link to comment Share on other sites More sharing options...
gile Posted June 11, 2010 Share Posted June 11, 2010 Yes it's quite old but still as usefull... PS: the defun-q isn't requiered. Quote Link to comment Share on other sites More sharing options...
alanjt Posted June 12, 2010 Share Posted June 12, 2010 Yes it's quite old but still as usefull... PS: the defun-q isn't requiered. Yeah, I know, but I was posting it exactly how I copied it from you. I never used it, but kept around and used it to do one for fillet: (mapcar '(lambda (f r) (eval (list 'defun f nil (list 'setvar "filletrad" r) (list 'princ (strcat "\nFillet radius set to: " (rtos r))) (list 'command "_.fillet") '(princ) ) ) ) '(c:FF c:F1 c:F15 c:F2 c:F3 c:F4 c:F45 c:F5 c:F6 c:F7 c:F8 c:F9) '(0 1 1.5 2 3 4 4.5 5 6 7 8 9) ) Quote Link to comment Share on other sites More sharing options...
David Bethel Posted June 12, 2010 Share Posted June 12, 2010 I prefer _.vpoint [b][color=BLACK]([/color][/b]defun c:vcomp [b][color=FUCHSIA]([/color][/b]/ comp[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]initget 1 [color=#2f4f4f]"N S E W NE NW SE SW ENE NNE WNW NNW ESE SSE WSW SSW"[/color][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]setq comp [b][color=NAVY]([/color][/b]getkword [color=#2f4f4f]"\nCompass View Direction: "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.VPOINT"[/color] [color=#2f4f4f]"_R"[/color][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]cond [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"E"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 0 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"ENE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 22.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"NE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 45 45[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"NNE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 67.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"N"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 90 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"NNW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 112.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"NW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 135 45[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"WNW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 157.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"W"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 180 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"WSW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 202.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"SW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 225 45[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"SSW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 247.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"S"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 270 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"SSE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 292.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"SE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 315 45[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"ESE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 337.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.UCS"[/color] [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]member comp '[b][color=GREEN]([/color][/b][color=#2f4f4f]"N"[/color] [color=#2f4f4f]"S"[/color] [color=#2f4f4f]"E"[/color] [color=#2f4f4f]"W"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [color=#2f4f4f]"_V"[/color] [color=#2f4f4f]"_W"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b] It gives me more control. -David Quote Link to comment Share on other sites More sharing options...
mitchellrodhous Posted June 12, 2010 Author Share Posted June 12, 2010 hey! thanks for reply I still have to try I wil let you known If it worked Regards MR Quote Link to comment Share on other sites More sharing options...
SEANT Posted June 12, 2010 Share Posted June 12, 2010 I prefer _.vpoint [b][color=BLACK]([/color][/b]defun c:vcomp [b][color=FUCHSIA]([/color][/b]/ comp[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]initget 1 [color=#2f4f4f]"N S E W NE NW SE SW ENE NNE WNW NNW ESE SSE WSW SSW"[/color][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]setq comp [b][color=NAVY]([/color][/b]getkword [color=#2f4f4f]"\nCompass View Direction: "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.VPOINT"[/color] [color=#2f4f4f]"_R"[/color][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]cond [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"E"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 0 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"ENE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 22.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"NE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 45 45[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"NNE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 67.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"N"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 90 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"NNW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 112.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"NW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 135 45[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"WNW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 157.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"W"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 180 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"WSW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 202.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"SW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 225 45[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"SSW"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 247.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"S"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 270 0[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"SSE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 292.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"SE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 315 45[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b][b][color=MAROON]([/color][/b]= comp [color=#2f4f4f]"ESE"[/color][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]command 337.5 22.5[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]command [color=#2f4f4f]"_.UCS"[/color] [b][color=NAVY]([/color][/b]if [b][color=MAROON]([/color][/b]member comp '[b][color=GREEN]([/color][/b][color=#2f4f4f]"N"[/color] [color=#2f4f4f]"S"[/color] [color=#2f4f4f]"E"[/color] [color=#2f4f4f]"W"[/color][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [color=#2f4f4f]"_V"[/color] [color=#2f4f4f]"_W"[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b] It gives me more control. -David Granted, the term SE (for example) is open to interpretation – and I only bring this up because AutoCAD’s seiso does have some advantages with regard to Paperspace dimensioning – but wouldn’t Angle From XY Plane = 35.264 [ATAN(1/SQRT(2))] be more consistent with vpoint(1.-1,1) ? Quote Link to comment Share on other sites More sharing options...
David Bethel Posted June 12, 2010 Share Posted June 12, 2010 Granted, the term SE (for example) is open to interpretation – and I only bring this up because AutoCAD’s seiso does have some advantages with regard to Paperspace dimensioning – but wouldn’t Angle From XY Plane = 35.264 [ATAN(1/SQRT(2))] be more consistent with vpoint(1.-1,1) ? Probably, guess the proper term for mine would be dimetric projections. -David Quote Link to comment Share on other sites More sharing options...
alanjt Posted June 12, 2010 Share Posted June 12, 2010 Probably, guess the proper term for mine would be dimetric projections. -David Interesting, I never knew about those. Granted, the only time my view is anything other than TOP is when I use the object viewer to look at how a pipe run looks within a surface. And it's more for 'cool' factor than anything. Quote Link to comment Share on other sites More sharing options...
mitchellrodhous Posted June 12, 2010 Author Share Posted June 12, 2010 Ok, I get it done, It was a simple command (command "_-view" "_swiso" ) ;End command I have made an basic cabinet creator. I add id below. (defun c:kast () ;MR. CAD - Mitchell Rodhouse ;Autocad The Netherlands ;define the function ;* ;Save System Variables (setq oldsnap (getvar "osmode")) ;save snap settings (setq oldblipmode (getvar "blipmode")) ;save blipmode setting (setvar "cmdecho" 1) ;* ;Switch OFF system Variables (setvar "osmode" 0) ;Switch OFF snap (setvar "blipmode" 0) ;Switch OFF Blipmode ;* ;get User Inputs ;get User Inputs (setq b (getdist "\nWidth of the cabinet : ")) ;Width of the cabinet (setq h (getdist "\nHight of the cabinet : ")) ;Hight of the cabinet (setq d (getdist "\nDepth of the cabinet : ")) ;Depth of the cabinet (setq m (getdist "\nMaterialthickness of the cabinet : ")) ;Materialthicknes of the cabinet ;* ;Get Insertion Point (setq ip (getpoint "\nInsertion Point : ")) ;get the insertion point (setvar "osmode" 32) ;switch ON snap (setvar "osmode" 0) ;switch OFF snap ;* ;Start of Polar Calculations ;This are calculation made by MR Cad - Mitchell Rodhouse (setq p1 (polar ip (dtr 0.0) 0.0)) (setq p2 (polar p1 (dtr 0.0) m)) (setq p3 (polar p1 (dtr 0.0) b)) (setq p4 (polar p3 (dtr 180.0) m)) (setq p5 (polar p1 (dtr -90.0) d)) (setq p6 (polar p5 (dtr 0.0) m)) (setq p7 (polar p5 (dtr 0.0) b)) (setq p8 (polar p7 (dtr 180.0) m)) (setq p9 (list (car p1) (cadr p1) (+ (caddr p1) m))) (setq p10 (list (car p4) (cadr p4)(+ (caddr p4) m))) (setq p11 (polar p9 (dtr -90.0) d)) (setq p12 (polar p10 (dtr -90.0) d)) (setq p13 (list (car p2) (cadr p2) (+ (caddr p2) h))) (setq p14 (list (car p4) (cadr p4)(+ (caddr p4) h))) (setq p15 (polar p13 (dtr -90.0) d)) (setq p16 (polar p14 (dtr -90.0) d)) (setq p17 (list (car p13) (cadr p13) (- (caddr p13) m))) (setq p18 (list (car p14) (cadr p14) (- (caddr p14) m))) (setq p19 (list (car p15) (cadr p15) (- (caddr p15) m))) (setq p20 (list (car p16) (cadr p16) (- (caddr p16) m))) ;End of the Polar calculations by MR. CAD - MITCHELL RODHOUSE ;* ;Start Command Function (command "_-view" "_swiso" ) ;End command (command "ucs" "w" ) ;End command (command "box" p1 p6 h "box" p4 p7 h "box" p2 p8 m "box" p13 p16 (- (+ m)) ) ;End Command (command "zoom" "a" ) ;End Command ;End of Commands made by MR. CAD - MITCHELL RODHOUSE (setvar "osmode" 32) ;switch ON snap ;* ;Reset System Variable (setvar "osmode" oldsnap) ;Reset snap (setvar "blipmode" oldblipmode) ;Reset blipmode ;* (princ) ;finish cleanly ) ;end of defun ;* ;This function converts Degrees to Radians. (defun dtr (x) ;define degrees to radians function (* pi (/ x 180.0)) ;divide the angle by 180 then ;multiply the result by the constant PI ) ;End of function ;* (princ) ;load cleanly ;* ;;HOPE THIS LISP WILL BE FUNCTIONAL FOR THE USER ;;MADE BY MR. CAD - MITCHELL RODHOUSE ;;END LISP Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.