Jump to content

short


mitchellrodhous

Recommended Posts

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

Link to comment
Share on other sites

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;)

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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)
)

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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) ?

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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.

Link to comment
Share on other sites

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

Link to comment
Share on other sites

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.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...