fillet used in isometric drawing

[paul1966]

i am trying to redraw a simple 2d drawing in the isometric plane but it does not look right, it seems even worse when i add fillets to it. the drawing was done in cad 2008 but i have saved it as cad 2000. any help appreciated.

10.10.1.dwg

[DKOU812]

Polar tracking will assist keep congruent 30/150 degree perspective angles on cue. Could give a screenshot for instance?

[profcad]

You have to draw them as an Isocircle Ellipse. You can't use fillet.

 

Locate the center point for the fillet and use the ellipse command.

[mugshot]

... maybe would you like to have a 3d on it and flatshot... it will be more appropriate...

[paul1966]

You have to draw them as an Isocircle Ellipse. You can't use fillet.

 

Locate the center point for the fillet and use the ellipse command.

 

i tried it by locating the ellipse centre using construction lines and measuring the distance, when drawn isometrically it looked ok until you zoom right in and the isocircle ellipse is not quite joined to the cirles, tried it several times and not managed to get it exactly right. think i will wait untill i see my lecturer after christmas and see how he would do it.

[mugshot]

does this answer your query?

iso.dwg

[rkent]

go to cadalyst.com and search for iso-views, tip 2052

ISO View Drafting Tool (Tip #2052) from Lloyd Beachy is a really nice function. Not only is it well written, but it contains several

Figure 1. An ISO dialog box allows you to select one of the views, courtesy of Tip #2052.

well-executed programmer tricks. Harry's favorite is the built-in DCL file generator -- very nice. Draw the basic object in 2D to get started. Load the LSP file to enable the ISO command. When you type ISO at the command line, a dialog box (figure 1) showing different isometric view planes will appear along with a series of toggles for the type of objects you want to select. Pick one of the views. The program then asks you to select objects for conversion to the new view orientation. Select the objects, and then provide a base point and relative displacement for the placement of the isometric view. The objects you selected are redrawn (leaving the originals intact) using the isometric view. Great tip, Lloyd, and nice coding too.

 

Place the code in a folder in your autocad search path. Drag and drop the lsp file onto the drawing, type iso, enjoy.

[Biscuits]

Try this one. I have not idea where it came from. Works great for isometric fillets.

 

(DEFUN cent (a b / dist ang mid)
 (SETQ dist (/ (DISTANCE a b) 2))
 (SETQ ang (ANGLE a b))
 (SETQ mid (POLAR a ang dist))
)
(DEFUN dxf (code elist)
 (CDR (ASSOC code elist))
)
(DEFUN c:isof (/ a b   pa    pb     na
       nb bega begb   holdsnapstyl     enda
       endb a10 a11   b10    b11     pt
       center tanga tangb   trmla    trmlb    holdosmode
       holdsnapisopair holdrad  el    ellt     anga
       angb angaa angbb
      )
 (SETQ holdosmode (GETVAR "OSMODE"))
 (SETQ holdsnapstyl (GETVAR "snapstyl"))
 (SETVAR "cmdecho" 0)
 (SETQ radius nil)
(While (= radius nil)
  (SETQ radius (getreal "Enter Radius for Fillet: "))
);; end of While
  (SETQ a (ENTSEL (STRCAT "\nSelect first line for Radius <"
    (RTOS radius 2 3)
    ">: ")
  )
  )
 (SETQ b (ENTSEL "\nSelect second line: "))
 (SETQ holdsnapisopair (GETVAR "snapisopair"))
 (SETQ holdrad (GETVAR "FILLETRAD"))
 (SETVAR "FILLETRAD" 0)
 (SETVAR "OSMODE" 0)
 (SETQ pa (CADR a))
 (SETQ na (CAR a))
 (SETQ pb (CADR b))
 (SETQ nb (CAR b))
 (COMMAND "_.fillet" pa pb)
 (COMMAND "_.select" pa "")
 (SETQ na (SSNAME (SSGET "p") 0))
 (COMMAND "_.select" pb "")
 (SETQ nb (SSNAME (SSGET "p") 0))
 (SETQ a10 (dxf 10 (ENTGET na)))
 (SETQ a11 (dxf 11 (ENTGET na)))
 (SETQ b10 (dxf 10 (ENTGET nb)))
 (SETQ b11 (dxf 11 (ENTGET nb)))
 (SETQ pt (INTERS a10 a11 b10 b11 nil))
 (IF (> (DISTANCE pt a10) 1E-10)
   (SETQ bega a11
  enda a10
   )
   (SETQ bega a10
  enda a11
   )
 )
 (IF (> (DISTANCE pt b10) 1E-10)
   (SETQ begb b11
  endb b10
   )
   (SETQ begb b10
  endb b11
   )
 )
 (SETQ anga   (ANGLE bega enda)
angb   (ANGLE begb endb)
tanga  (POLAR bega anga (SETQ diamet (* 2 radius)))
tangb  (POLAR begb angb (* 2 radius))
trmla  (POLAR bega anga radius)
trmlb  (POLAR begb angb radius)
center (cent tanga tangb)
trima  (LIST na bega)
trimb  (LIST nb begb)
 )
 (SETQ angaa (ANGTOS anga))
 (SETQ angbb (ANGTOS angb))
 (SETVAR "snapstyl" 1)
 (SETVAR "snapisopair" 1)
 (COMMAND ".ellipse" "i" center radius)
 (IF (OR (AND (= angaa "150") (= angbb "90"))
  (AND (= angaa "90") (= angbb "150"))
  (AND (= angaa "90") (= angbb "330"))
  (AND (= angaa "330") (= angbb "90"))
  (AND (= angaa "270") (= angbb "150"))
  (AND (= angaa "150") (= angbb "270"))
  (AND (= angaa "270") (= angbb "330"))
  (AND (= angaa "330") (= angbb "270"))
     )
   (COMMAND "_.rotate" (ENTLAST) "" center "120")
 )
 (IF (OR (AND (= angaa "270") (= angbb "30"))
  (AND (= angaa "30") (= angbb "270"))
  (AND (= angaa "210") (= angbb "270"))
  (AND (= angaa "270") (= angbb "210"))
  (AND (= angaa "210") (= angbb "90"))
  (AND (= angaa "90") (= angbb "210"))
  (AND (= angaa "90") (= angbb "30"))
  (AND (= angaa "30") (= angbb "90"))
     )
   (COMMAND "_.rotate" (ENTLAST) "" center "-120")
 )
 (SETQ el   (ENTLAST)
ellt (LIST el endb)
 )
 (COMMAND ".line" trmla trmlb "")
 (COMMAND "trim" "l" "" trima trimb ellt "")
 (COMMAND "erase" "p" "")
 (COMMAND "redraw")
 (SETVAR "snapstyl" holdsnapstyl)
 (SETVAR "snapisopair" holdsnapisopair)
 (SETVAR "FILLETRAD" holdrad)
 (SETVAR "OSMODE" holdosmode)
 (PRINC)
)
(PRIN1)
(PROMPT "\nType ISOF to envoke the command")