SHARE
TWEET

Untitled

a guest Dec 18th, 2019 69 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) ) (cadr kt11)))
  19. (setq kt13 (list (+ (car kt12) 0) (-(cadr kt12)20)))
  20. (setq kt14 (list (+ (car kt13) 0) (-(cadr kt13)20)))
  21. (command "CIRCLE" kt11 20 "")
  22. (command "LINE" kt1 kt2 kt3 kt4 kt5 kt6 kt7 kt8 kt9 kt10 kt12 kt14 "")
  23. )
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