inf926k

Untitled

Jan 18th, 2017
741
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. (defun drawAll (dl1 dl2 dl3 dl4 dl5 dl6 v1 v2 v3 v4 v5 v6 R lc1 lc2 lc3 lc4 lc5)
  2.     (draw1 dl1 dl2 dl3 dl4 dl5 dl6 v1 v2 v3 v4 v5 v6 R)  
  3.     (draw2  lc1 lc2 lc3 lc4 lc5 v1 v2 v1 v2 v3 v4 v6)
  4. )
  5.  
  6. (defun draw1 (dl1 dl2 dl3 dl4 dl5 dl6 v1 v2 v3 v4 v5 v6 R )
  7.  
  8. )
  9.  
  10. (defun draw2 ( lc1 lc2 lc3 lc4 lc5 v1 v2 v1 v2 v3 v4 v6)
  11.  
  12. )
  13.  
  14.  
  15. (setq
  16.   p1 (GetPoint " Введите начальные координаты ")
  17.   x  (nth 0 p1)
  18.   y  (nth 1 p1)
  19. )
  20.  
  21. (setq dl1 (GetReal "\nВведите dl1 (58): "))
  22. (if (= dl1 nil)
  23.   (progn (setq dl1 58))
  24. )
  25.  
  26. (setq dl2 (GetReal "\nВведите dl2 (11): "))
  27. (if (= dl2 nil)
  28.   (progn (setq dl2 11))
  29. )
  30.  
  31. (setq dl3 (GetReal "\nВведите dl3 (69): "))
  32. (if (= dl3 nil)
  33.   (progn (setq dl3 69))
  34. )
  35.  
  36. (setq dl4 (GetReal "\nВведите dl4 (47): "))
  37. (if (= dl4 nil)
  38.   (progn (setq dl4 47))
  39. )
  40.  
  41. (setq dl5 (GetReal "\nВведите dl5  (34.5): "))
  42. (if (= dl5  nil)
  43.   (progn (setq dl5 34.5))
  44. )
  45.  
  46. (setq dl6  (GetReal "\nВведите dl6  (4): "))
  47. (if (= dl6  nil)
  48.   (progn (setq dl6  4))
  49. )
  50.  
  51. (setq v1  (GetReal "\nВведите v1    (8): "))
  52. (if (= v1    nil)
  53.   (progn (setq v1   8))
  54. )
  55.  
  56. (setq v2  (GetReal "\nВведите v2    (8): "))
  57. (if (= v2   nil)
  58.   (progn (setq v2  8))
  59. )
  60.  
  61. (setq v3  (GetReal "\nВведите v3    (4): "))
  62. (if (= v3   nil)
  63.   (progn (setq v3  4))
  64. )
  65.  
  66. (setq v4  (GetReal "\nВведите v4    (16): "))
  67. (if (= v4  nil)
  68.   (progn (setq v4  16))
  69. )
  70.  
  71. (setq v5  (GetReal "\nВведите v5    (20): "))
  72. (if (= v5  nil)
  73.   (progn (setq v5  20))
  74. )
  75.  
  76. (setq v6  (GetReal "\nВведите v6    (4): "))
  77. (if (= v6  nil)
  78.   (progn (setq v6  4))
  79. )
  80.  
  81. (setq R  (GetReal "\nВведите R    (12): "))
  82. (if (= R  nil)
  83.   (progn (setq R  12))
  84. )
  85.  
  86. (setq lc1  (GetReal "\nВведите lc1    (36): "))
  87. (if (= lc1 nil)
  88.   (progn (setq lc1  36))
  89. )
  90.  
  91. (setq lc2  (GetReal "\nВведите lc2    (6): "))
  92. (if (= lc2 nil)
  93.   (progn (setq lc2  6))
  94. )
  95.  
  96. (setq lc3  (GetReal "\nВведите lc3    (24): "))
  97. (if (= lc3 nil)
  98.   (progn (setq lc3  24))
  99. )
  100.  
  101. (setq lc4  (GetReal "\nВведите lc4    (10): "))
  102. (if (= lc4 nil)
  103.   (progn (setq lc4  10))
  104. )
  105.  
  106. (setq lc5  (GetReal "\nВведите lc5    (16): "))
  107. (if (= lc5 nil)
  108.   (progn (setq lc5  16))
  109. )
  110.  
  111. (drawAll dl1 dl2 dl3 dl4 dl5 dl6 v1 v2 v3 v4 v5 v6 R lc1 lc2 lc3 lc4 lc5 )
RAW Paste Data