SHARE
TWEET

Untitled

a guest Dec 18th, 2019 74 Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defun c:masina()
  2. (setq ptaskas (getpoint "\nIveskite piesinio apatinio kairiojo kampo
  3. koordinates (x,y):") )
  4. (command "osnap" "off" )
  5. (setq ptx (car ptaskas) )
  6. (setq pty (cadr ptaskas) )
  7. (setq kt1 (list (+ ptx 0) (+ pty 0)))
  8. (setq kt2 (list (+ (car kt1) 20) (cadr kt1)))
  9. (setq kt3 (list (+ (car kt2) 5.8545) (+(cadr kt2) 13.8103)))
  10. (setq kt4 (list (+ (car kt3) 11.7089) (+(cadr kt3) -27.6207)))
  11. (setq kt5 (list (+ (car kt4) 11.7089) (+(cadr kt4) 27.6207)))
  12. (setq kt6 (list (+ (car kt5) 11.7089) (+(cadr kt5) -27.6207)))
  13. (setq kt7 (list (+ (car kt6) 11.7089) (+(cadr kt6) 27.6207)))
  14. (setq kt8 (list (+ (car kt7) 11.7089) (+(cadr kt7) -27.6207)))
  15. (setq kt9 (list (+ (car kt8) 5.8545) (+(cadr kt8) 13.8103)))
  16. (setq kt10 (list (+ (car kt9) 20) (cadr kt9)))
  17. (setq kt11 (list (+ (car kt10) 20) (cadr kt10)))
  18. (setq kt12 (list (+ (car kt11) 0) (-(cadr kt11)20)))
  19. (setq kt13 (list (+ (car kt12) 0) (-(cadr kt12)20)))
  20. (setq kt14 (list (+ (car kt11) 20) (cadr kt11)))
  21. (setq kt15 (list (+ (car kt14) 20) (cadr kt14)))
  22. (setq kt16 (list (+ (car kt15) 5.8545) (+(cadr kt15) 13.8103)))
  23. (setq kt17 (list (+ (car kt16) 11.7089) (-(cadr kt16) 27.6207)))
  24. (setq kt18 (list (+ (car kt17) 11.7089) (+(cadr kt17) 27.6207)))
  25. (setq kt19 (list (+ (car kt18) 11.7089) (-(cadr kt18) 27.6207)))
  26. (setq kt20 (list (+ (car kt19) 11.7089) (+(cadr kt19) 27.6207)))
  27. (setq kt21 (list (+ (car kt20) 11.7089) (-(cadr kt20) 27.6207)))
  28. (setq kt22 (list (+ (car kt21) 5.8545) (+(cadr kt21) 13.8103)))
  29. (setq kt23 (list (+ (car kt22) 20) (cadr kt22)))
  30. (setq kt24 (list (+ (car kt11) 0) (+(cadr kt11)5)))
  31. (setq kt25 (list (+ (car kt24) 0) (+(cadr kt24)5)))
  32. (setq kt26 (list (+ (car kt24) 5) (+(cadr kt24)0)))
  33. (command "ARC" kt25 kt26 kt24)
  34. (command "CIRCLE" kt11 20 "")
  35. (command "LINE" kt1 kt2 kt3 kt4 kt5 kt6 kt7 kt8 kt9 kt10  "")
  36. (command "LINE" kt24 kt11 kt25"")
  37. (command "LINE" kt12 kt13 "")
  38. (command "LINE" kt14 kt15 kt16 kt17 kt18 kt19 kt20 kt21 kt22 kt23"")
  39. )
RAW Paste Data
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy. OK, I Understand
Top