home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / autocad / param2.arj / TBLOCK.LSP < prev    next >
Encoding:
Lisp/Scheme  |  1991-05-20  |  4.4 KB  |  19 lines
  1.  
  2. ; *******  ParaDraft Application  ********
  3. ; Parametric Geomtry Program generated by PgPg! 
  4. ; Authored by   : User
  5. ; Application name : A block with a T-slot
  6. ; Dated         : Monday , 20-5-1991
  7. ; Started at    :  --  11:47:02
  8. ; Finished at   :  --  11:47:37
  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 ang1 nil L2 nil L3 nil L4 nil L5 nil L6 nil L7 nil L8 nil L9 nil  )  (take-value 'ang1 "ang1" 40.12988644) (take-value 'L2 "L2" 237.1) (take-value 'L3 "L3" 56.5) (take-value 'L4 "L4" 173.6) (take-value 'L5 "L5" 74.94116276) (take-value 'L6 "L6" 77.92432011) (take-value 'L7 "L7" 29.94828448) (take-value 'L8 "L8" 27.96339846) (take-value 'L9 "L9" 17.95132307) (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 ANG1(D2R ANG1 )) (setq L10 (/ L6 2.0)  ) (setq L11 L10 ) (setq L12 (/ L7 2.0)  ) (setq L13 L12 )  (setq pt1(delta refpt   0.0  0.0  )) (setq pt3(polar    pt1    1.57079633   L4  )) (setq pt4(delta refpt   ( + (x-of pt1) L2)   (y-of pt1)  )) (setq pt5(delta refpt   ( + (x-of pt1) L2)   ( + (y-of pt1) L3)   )) (setq pt21(polar    pt1    1.57079633   L3  )) (setq pt22(polar    pt5   (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG1  )) ))  ( - L9 )  )) (setq pt23(polar    pt22   (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG1  )) ))  ( - L8 )  )) (setq pt2(intersect   (make-line  pt3  0.0 )  (make-line  pt5 (chg-quad (  -  0.0 ANG1  )) )   Nil   )) (setq pt11(polar    pt2   (chg-quad (  -  0.0 ANG1  ))   ( - L5 )  )) (setq pt13(intersect   (make-line  pt11 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG1  )) )))  (make-line  pt23 (chg-quad (  -  0.0 ANG1  )) )   Nil   )) (setq pt6(polar    pt11   (chg-quad (  -  0.0 ANG1  ))   ( - L12 )  )) (setq pt7(polar    pt11   (chg-quad (  -  0.0 ANG1  ))   L13  )) (setq pt24(polar    pt11   (chg-quad (  -  0.0 ANG1  ))   L11  )) (setq pt10(intersect   (make-line  pt24 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG1  )) )))  (make-line  pt23 (chg-quad (  -  0.0 ANG1  )) )   Nil   )) (setq pt25(polar    pt11   (chg-quad (  -  0.0 ANG1  ))   ( - L10 )  )) (setq pt15(intersect   (make-line  pt22 (chg-quad (  -  0.0 ANG1  )) )  (make-line  pt25 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG1  )) )))   Nil   )) (setq pt14(intersect   (make-line  pt23 (chg-quad (  -  0.0 ANG1  )) )  (make-line  pt25 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG1  )) )))   Nil   )) (setq pt16(intersect   (make-line  pt22 (chg-quad (  -  0.0 ANG1  )) )  (make-line  pt6 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG1  )) )))   Nil   )) (setq pt8(intersect   (make-line  pt7 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG1  )) )))  (make-line  pt22 (chg-quad (  -  0.0 ANG1  )) )   Nil   )) (setq pt9(intersect   (make-line  pt22 (chg-quad (  -  0.0 ANG1  )) )  (make-line  pt24 (chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG1  )) )))   Nil   )) (princ "Computed points\n")(gc) (make_layer "0" 1) (make_layer "cen" 1) (make_layer "dim" 1) (make_layer "0" 1) (command "LINE" pt2 pt3 "" ) (command "LINE" pt3 pt1 "" ) (command "LINE" pt1 pt4 "" ) (command "LINE" pt4 pt5 "" ) (command "LINE" pt5 pt6 "" ) (setq ent1 (entlast))(command "LINE" pt7 pt8 "" ) (command "LINE" pt8 pt9 "" ) (command "LINE" pt9 pt10 "" ) (command "LINE" pt10 pt13 "" ) (command "LINE" pt14 pt13 "" ) (command "LINE" pt15 pt14 "" ) (command "LINE" pt16 pt15 "" ) (command "LINE" pt6 pt16 "" ) (command "LINE" pt7 pt2 "" )  (draw-cline  pt11 188.31377567(chg-quad (+ 1.5707963(chg-quad (  -  0.0 ANG1  )) )) ) 
  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   pt20 nil   pt21 nil   pt22 nil   pt23 nil   pt24 nil   pt25 nil   L2 nil   L3 nil   L4 nil   L5 nil   L6 nil   L7 nil   L8 nil   L9 nil   L10 nil   L11 nil   L12 nil   L13 nil   )  (gc) (princ) ; Program generated at  :  --  11:47:41
  19.