home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / CAD / PKEY11_1.ZIP / GRD.LSP < prev    next >
Encoding:
Text File  |  1992-03-14  |  1.2 KB  |  35 lines
  1. ;Grid for whatever you want to use it for.
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (setq oer *error* *error* err)
  7. (pre)
  8. (if(= grdx nil)(setq *grdx 24))
  9. (setq grdx(getreal(strcat"Horizontal grid size <"(rtos *grdx)">: ")))
  10. (if(= grdx nil)(setq grdx *grdx)(setq *grdx grdx))
  11. (if(= grdy nil)(setq *grdy 48))
  12. (setq grdy(getreal(strcat"Vertical grid size <"(rtos *grdy)">: ")))
  13. (if(= grdy nil)(setq grdy *grdy)(setq *grdy grdy))
  14. (setq p1(getpoint"Pick lower left: "))
  15. (setq p0(getpoint"Pick upper right: "))
  16. (setq c(distance p1 p0))
  17. (setq a1(angle p1 p0))
  18. (setq b(* c(sin a1)))
  19. (setq a(* c(cos a1)))
  20. (setq gx(-(fix(/ a grdx))1))
  21. (if(= gx 0)(setq gx(+ gx 1)))
  22. (setq d(/(- a(* gx grdx))2))
  23. (setq p2(list(+(car p1)d)(cadr p1)))
  24. (setq p3(list(car p2)(+(cadr p2)b)))
  25. (setq gy(-(fix(/ b grdy))1))
  26. (if(= gy 0)(setq gy(+ gy 1)))
  27. (setq yb(/(- b(* gy grdy))2))
  28. (setq p4(list(car p1)(+(cadr p1)yb)))
  29. (setq p5(list(+(car p4)a)(cadr p4)))
  30. (command "line" p2 p3 "")
  31. (command "array" "l" "" "r" "1"(+ gx 1)grdx)
  32. (command "line" p4 p5 "")
  33. (command "array" "l" "" "r"(+ gy 1)"1" grdy)
  34. (post)
  35. (princ)