×
INTELLIGENT WORK FORUMS
FOR ENGINEERING PROFESSIONALS

Log In

Come Join Us!

Are you an
Engineering professional?
Join Eng-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Eng-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here

Jobs

Drawing slots

Drawing slots

Drawing slots

(OP)
I routinely draw full-radius slots of various sizes. I typically draw a rectangle and then fillet each of the four corners to a radius half the width of the slot.

Two questions:

1) Is there a way to fillet all four corners simultaneously?

2) Does anybody have a routine to automatically draw slots?

RE: Drawing slots

Fillet all four by making the rectangle a polyline and at atht fillet command use the "p" option.

I use the following for slots, but there are others:

(defun C:SLOT  (/ A B B1 B2 C D PW)
  (setq PW (getvar"PLINEWID"))
  (initget 1)
  (setq B1 (getdist "\nLength of slot: "))
  (setq B2 (/ B1 2.0))
  (setq B (list B2 0.0))
  (initget 1)
  (setq C (list 0.0 (getdist "\nWidth of slot: ")))
  (initget 1)
  (while
   (setq A (getpoint "\nInsertion point: "))
   (setq D (list (- (car A) (/ (car B) 2)) (- (cadr A) (/ (cadr C) 2))))
   (setvar "PLINEWID" 0)
   (command "_.pline"
            D
            (mapcar '+ D B)
            "_a"
            (mapcar '+ D B C)
            "_l"
            (mapcar '+ D C)
            "_a"
            "_cl")
   );while
   (setvar "PLINEWID" PW)
  (princ)
)

RE: Drawing slots

you can try it too:

;| MSLOT, short for Milled SLOT
   Copyright © 1998 Ronald W. Leigh
   Requests width and two center points.
   Draws a polyline with two straight and two arc segments.
Variables:
a/b    Centers
a1/a2  Endpoints of arc around a
b1/b2  Endpoints of arc around b
ang    Angle of slot centerline
obm    Old blipmode setting, 0 or 1
r      Radius of arcs
w      Width of slot                                  |;

(defun c:mslot (/ a a1 a2 ang b b1 b2 obm r w)   ;line  1
(setq obm (getvar "blipmode"))                   ;line  2
(initget 7)                                      ;line  3
(setq w (getreal "\nWidth of slot: "))           ;line  4
(setq r (/ w 2))                                 ;line  5
(setvar "blipmode" 1)                            ;line  6
(initget 1)                                      ;line  7
(setq a (getpoint "\nLocate first center: "))    ;line  8
(initget 1)                                      ;line  9
(setq b (getpoint a "\nLocate second center: ")) ;line 10
(setvar "blipmode" 0)                            ;line 11
(setq ang (angle a b))                           ;line 12
(setq a1 (polar a (- ang (/ pi 2)) r))           ;line 13
(setq a2 (polar a (+ ang (/ pi 2)) r))           ;line 14
(setq b1 (polar b (- ang (/ pi 2)) r))           ;line 15
(setq b2 (polar b (+ ang (/ pi 2)) r))           ;line 16
(setvar "cmdecho" 0)                             ;line 17
(command ".pline" a1 b1 "A" b2 "L" a2 "A" "CL")  ;line 18
(setvar "cmdecho" 1)                             ;line 19
(setvar "blipmode" obm)                          ;line 20
(princ)                                          ;line 21
)                                                ;line 22

If you need further asistance please contac me at k281969@hotmail.com

Pardal

RE: Drawing slots

did you know you can fillet two parallel lines (join them with an arc that has a diameter equal to the distance between the lines) by just using the fillet command and picking the lines?

There is no need to draw a rectangle and then fillet 4 times.

RE: Drawing slots

I your drawing is in 3D you can create a cylinder of the size of the slot and deduct it from the object containing the slot.  Then you can go either 2D or 3D wireframe.

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Eng-Tips Forums free from inappropriate posts.
The Eng-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Eng-Tips forums is a member-only feature.

Click Here to join Eng-Tips and talk with other members!


Resources