Guest User

Untitled

a guest
Dec 19th, 2019
139
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defun c:figura2()
  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) 50) (cadr kt1)))
  9. (setq kt3 (list (- (car kt2) 0) (-(cadr kt2)20)))
  10. (setq kt4 (list (+ (car kt2) 0) (+(cadr kt2)20)))
  11. (setq kt5 (list (+ (car kt2) 20) (cadr kt2)))
  12. (setq kt6 (list (+ (car kt5) 0) (+(cadr kt5)10)))
  13. (setq kt7 (list (- (car kt6) 10) (+(cadr kt6)0)))
  14. (setq kt8 (list (+ (car kt6) 10) (+(cadr kt6)0)))
  15. (setq kt9 (list (+ (car kt5) 20) (cadr kt5)))
  16. (setq kt10 (list (- (car kt9) 0) (-(cadr kt9)20)))
  17. (setq kt11 (list (+ (car kt9) 0) (+(cadr kt9)20)))
  18. (setq kt12 (list (+ (car kt9) 50) (cadr kt9)))
  19. (setq kt13 (list (+ (car kt6) 0) (cadr kt6)))
  20. (setq kt14 (list (+ (car kt13) 0) (+(cadr kt9)20)))
  21. (setq kt15 (list (- (car kt14) 5) (+(cadr kt14)0)))
  22. (setq kt16 (list (+ (car kt15) 5) (-(cadr kt15)-12.1356)))
  23. (setq kt17 (list (+ (car kt16) 5) (+(cadr kt16)-12.1356)))
  24. (setq kt18 (list (- (car kt17) 5) (+(cadr kt17)0)))
  25. (setq kt19 (list (- (car kt16) 5) (-(cadr kt16)-12.1356)))
  26. (setq kt20 (list (+ (car kt19) 5) (+(cadr kt19)0)))
  27. (setq kt21 (list (+ (car kt20) 5) (+(cadr kt20)0)))
  28. (setq kt22 (list (- (car kt21) 5) (+(cadr kt21)-12.1356)))
  29. (setq kt23 (list (+ (car kt19) 5) (+(cadr kt19)0)))
  30. (setq kt24 (list (+ (car kt23) 0) (+(cadr kt23)15)))
  31. (setq kt25 (list (+ (car kt24) 0) (+(cadr kt24)30)))
  32. (setq kt26 (list (+ (car kt25) 0) (+(cadr kt25)0)))
  33. (setq kt27 (list (- (car kt26) 2.5) (-(cadr kt26)4.3301)))
  34. (setq kt28 (list (- (car kt27) 2.5) (-(cadr kt27)4.3301)))
  35.  
  36. (setq kt29 (list (+ (car kt25) 0) (+(cadr kt25)0)))
  37. (setq kt30 (list (+ (car kt29) 2.5) (+(cadr kt29)4.3301)))
  38. (setq kt31 (list (+ (car kt30) 2.5) (+(cadr kt30)4.3301)))
  39. (setq kt32 (list (+ (car kt31) 2.5) (+(cadr kt31)4.3301)))
  40.   (command "PLINE" kt31 "w" 5 0 kt32 "")
  41. (command "CIRCLE" kt25 30 "")
  42. (command "CIRCLE" kt25 5 "")
  43. (command "LINE" kt1 kt2 kt3 kt4"")
  44.   (command "LINE" kt30 kt31"")
  45. (command "LINE" kt27 kt28"")
  46. (command"LINE" kt9 kt12"")
  47. (command "LINE" kt23 kt24"")
  48. (command "LINE" kt16 kt19 kt20 kt21 kt22"")
  49. (command "LINE" kt13 kt14 kt15 kt16 kt17 kt18"")
  50. (command "LINE" kt5 kt9 kt10 kt11"")
  51. (command "LINE" kt2 kt5 kt6 kt7 kt8"")
  52. )
RAW Paste Data