home *** CD-ROM | disk | FTP | other *** search
/ Share Gallery 1 / share_gal_1.zip / share_gal_1 / GR / GR505.ZIP / LSP.EXE / SLOT.LSP < prev    next >
Text File  |  1987-07-12  |  1KB  |  33 lines
  1. (defun C:SLOT () ; V1.00
  2.    ;
  3.    ; Mike Pillers     22:41:27  7/18/1986
  4.    ; Machine/ Mechanism Design Consultant
  5.    ; San Jose, CA          (408) 280-7959
  6.    ;
  7.    ; Draws a long slot with rounded ends by specifying center point,
  8.    ; width, overall length, and angle of slot.
  9.    ;                  AutoCAD version 2.18 or above is required.
  10.  
  11.   (setq c1 (getpoint "Enter CENTER POINT of SLOT:  ")
  12.         sw (getdist c1 "\nEnter WIDTH of SLOT:  ")
  13.         sl (getdist c1 "\nEnter LENGTH of SLOT:  ")
  14.         phi (getangle c1 "\nEnter ANGLE of SLOT: ")
  15.         dW (mapcar '- (polar c1 (+ phi (/ pi 2)) (/ sw 2)) c1) ;1/2 width vector
  16.         dL (mapcar '- (polar c1 phi (/ (- sl sw) 2)) c1)       ;1/2 length vector
  17.         v1 (mapcar '+ dL (mapcar '* '(-1 -1) dW))      ; vector frm cen to p1
  18.         v3 (mapcar '+ dW dL)                           ; vector frm cen to p3
  19.         p1 (mapcar '+ c1 v1)
  20.         p2 (polar c1 phi (/ sl 2))
  21.         p3 (mapcar '+ c1 v3)
  22.         p4 (mapcar '- c1 v1)
  23.         p5 (polar c1 phi (/ sl -2))
  24.         p6 (mapcar '- c1 v3)
  25.   )
  26.   (setvar "cmdecho" 0)
  27.   (setq tmp (getvar "pdmode"))
  28.   (setvar "pdmode" 0)
  29.   (command "point" c1)
  30.   (command "pline" p6 p1 "A" p3 "L" p4 "A" "CL")
  31.   (setvar "pdmode" tmp)
  32. )
  33.