home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / autocad / param2.arj / ABOLT.LSP < prev    next >
Encoding:
Lisp/Scheme  |  1991-05-20  |  4.0 KB  |  19 lines
  1.  
  2. ; *******  ParaDraft Application  ********
  3. ; Parametric Geomtry Program generated by PgPg! 
  4. ; Authored by   : User
  5. ; Application name : A round headed bolt
  6. ; Dated         : Monday , 20-5-1991
  7. ; Started at    :  --  11:47:42
  8. ; Finished at   :  --  11:48:30
  9. ; ****************************************
  10. (princ "\nParaDraft application generated on Monday , 20-5-1991 with Shareware Trial Version 1.0S")
  11. (mode 0)(command "VSLIDE"(strcat *pgpg-dir* *pg-name*)) (setq dia3 nil rad9 nil L1 nil L2 nil L4 nil L5 nil L6 nil L7 nil L8 nil  )  (take-value 'dia3 "dia3" 41.89192592) (take-value 'rad9 "rad9" 239.5851332) (take-value 'L1 "L1" 66.79999794) (take-value 'L2 "L2" 153.6) (take-value 'L4 "L4" 34.49999865) (take-value 'L5 "L5" 52.4) (take-value 'L6 "L6" 64.6) (take-value 'L7 "L7" 12.30000016) (take-value 'L8 "L8" 150.00000016) (command "REDRAW") (initget 1) (setq refpt (getpoint "\nInsertion point :"))
  12. (setq refangle (getval "\nInsertion angle:" 0.0))
  13.  (princ "Computing points ..please wait") 
  14. (setq *en*  (init refpt))(setq *dim-layer* "dim")(setq *cen-layer* "cen")
  15. (setq err 0.0)
  16. (command "COLOR""BYLAYER") (command "DIM1""DIMASZ" 0.01 ) (command "DIM1""DIMTXT" 0.01 ) (setvar "CMDECHO" 0)(MAKE_LAYER "CEN" 2)(setq RAD3(/ DIA3 2.0)) (setq L10 (/ L2 2.0)  ) (setq L11 L10 ) (setq L12 (/ L5 2.0)  ) (setq L13 L12 ) (setq L14 (/ L6 2.0)  ) (setq L15 L14 )  (setq pt1(delta refpt   0.0  0.0  )) (setq pt12(polar    pt1    1.57079633   L4  )) (setq pt10(polar    pt1    0.0   L10  )) (setq pt8(delta refpt   (x-of pt1)  ( + (y-of pt1) L1)   )) (setq pt11(polar    pt1    0.0   ( - L11 )  )) (setq pt13(delta refpt   ( + (x-of pt1) L14)   (y-of pt1)  )) (setq pt15(delta refpt   ( + (x-of pt1) L12)   ( + (y-of pt1) ( - L8 ))   )) (setq pt16(delta refpt   (x-of pt1)  ( + (y-of pt1) ( - L8 ))   )) (setq pt17(delta refpt   ( + (x-of pt1) L12)   (y-of pt1)  )) (setq pt22(polar    pt1    0.0   ( - L15 )  )) (setq pt20(delta refpt   ( + (x-of pt1) ( - L13 ))   ( + (y-of pt1) ( - L8 ))   )) (setq pt21(delta refpt   ( + (x-of pt1) ( - L13 ))   (y-of pt1)  )) (setq pt23(delta refpt   ( + (x-of pt12) rad3)   (y-of pt12)  )) (setq pt24(delta refpt   ( + (x-of pt8) rad9)   (y-of pt8)  )) (setq pt14(delta refpt   ( + (x-of pt1) L14)   ( + L7 (y-of pt15))   )) (setq pt25(polar    pt15    1.57079633   L7  )) (setq pt19(delta refpt   ( + (x-of pt1) ( - L15 ))   ( + L7 (y-of pt15))   )) (setq pt6(intersect   (make-arc  pt8  pt24 )  (make-line  pt1  1.57079633 )   '-   )) (setq pt7(intersect   (make-arc  pt6  pt8 )  (make-line  pt10  1.57079633 )   '+   )) (setq pt9(intersect   (make-arc  pt6  pt8 )  (make-line  pt11  1.57079633 )   '+   )) (setq pt18(intersect   (make-line  pt1  1.57079633 )  (make-line  pt25  0.0 )   Nil   )) (princ "Computed points\n")(gc) (make_layer "cen" 1) (make_layer "0" 1) (make_layer "dim" 1) (make_layer "0" 1) (command "LINE" pt7 pt10 "" ) (command "LINE" pt10 pt1 "" ) (command "LINE" pt9 pt11 "" ) (command "LINE" pt11 pt1 "" ) (command "LINE" pt13 pt14 "" ) (command "LINE" pt15 pt16 "" ) (command "LINE" pt17 pt15 "" ) (command "LINE" pt15 pt14 "" ) (command "LINE" pt14 pt18 "" ) (command "LINE" pt19 pt18 "" ) (command "LINE" pt20 pt19 "" ) (command "LINE" pt21 pt20 "" ) (command "LINE" pt20 pt16 "" ) (command "LINE" pt22 pt19 "" ) (command "LINE" pt9 pt7 "" ) (command "CIRCLE" pt12  rad3) (setq ent1 (entlast))(command "ARC""C" pt6 pt7 pt8) (setq ent2 (entlast))(command "ARC""C" pt6 pt8 pt9)  (draw-cline  pt8 303.66101 1.57079633  ) (make-cline  pt12  rad3) 
  17.  
  18.  (rotate-it refpt refangle) (princ "\n Drawing created by a ParaDraft application")(mode 1) ( setq refpt nil   pt1 nil   pt2 nil   pt3 nil   pt4 nil   pt5 nil   pt6 nil   pt7 nil   pt8 nil   pt9 nil   pt10 nil   pt11 nil   pt12 nil   pt13 nil   pt14 nil   pt15 nil   pt16 nil   pt17 nil   pt18 nil   pt19 nil   pt20 nil   pt21 nil   pt22 nil   pt23 nil   pt24 nil   pt25 nil   L1 nil   L2 nil   L4 nil   L5 nil   L6 nil   L7 nil   L8 nil   L10 nil   L11 nil   L12 nil   L13 nil   L14 nil   L15 nil   )  (gc) (princ) ; Program generated at  :  --  11:48:32
  19.