Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun drawAll (dl1 dl2 dl3 dl4 dl5 dl6 v1 v2 v3 v4 v5 v6 R lc1 lc2 lc3 lc4 lc5)
- (draw1 dl1 dl2 dl3 dl4 dl5 dl6 v1 v2 v3 v4 v5 v6 R)
- (draw2 lc1 lc2 lc3 lc4 lc5 v1 v2 v1 v2 v3 v4 v6)
- )
- (defun draw1 (dl1 dl2 dl3 dl4 dl5 dl6 v1 v2 v3 v4 v5 v6 R )
- )
- (defun draw2 ( lc1 lc2 lc3 lc4 lc5 v1 v2 v1 v2 v3 v4 v6)
- )
- (setq
- p1 (GetPoint " Введите начальные координаты ")
- x (nth 0 p1)
- y (nth 1 p1)
- )
- (setq dl1 (GetReal "\nВведите dl1 (58): "))
- (if (= dl1 nil)
- (progn (setq dl1 58))
- )
- (setq dl2 (GetReal "\nВведите dl2 (11): "))
- (if (= dl2 nil)
- (progn (setq dl2 11))
- )
- (setq dl3 (GetReal "\nВведите dl3 (69): "))
- (if (= dl3 nil)
- (progn (setq dl3 69))
- )
- (setq dl4 (GetReal "\nВведите dl4 (47): "))
- (if (= dl4 nil)
- (progn (setq dl4 47))
- )
- (setq dl5 (GetReal "\nВведите dl5 (34.5): "))
- (if (= dl5 nil)
- (progn (setq dl5 34.5))
- )
- (setq dl6 (GetReal "\nВведите dl6 (4): "))
- (if (= dl6 nil)
- (progn (setq dl6 4))
- )
- (setq v1 (GetReal "\nВведите v1 (8): "))
- (if (= v1 nil)
- (progn (setq v1 8))
- )
- (setq v2 (GetReal "\nВведите v2 (8): "))
- (if (= v2 nil)
- (progn (setq v2 8))
- )
- (setq v3 (GetReal "\nВведите v3 (4): "))
- (if (= v3 nil)
- (progn (setq v3 4))
- )
- (setq v4 (GetReal "\nВведите v4 (16): "))
- (if (= v4 nil)
- (progn (setq v4 16))
- )
- (setq v5 (GetReal "\nВведите v5 (20): "))
- (if (= v5 nil)
- (progn (setq v5 20))
- )
- (setq v6 (GetReal "\nВведите v6 (4): "))
- (if (= v6 nil)
- (progn (setq v6 4))
- )
- (setq R (GetReal "\nВведите R (12): "))
- (if (= R nil)
- (progn (setq R 12))
- )
- (setq lc1 (GetReal "\nВведите lc1 (36): "))
- (if (= lc1 nil)
- (progn (setq lc1 36))
- )
- (setq lc2 (GetReal "\nВведите lc2 (6): "))
- (if (= lc2 nil)
- (progn (setq lc2 6))
- )
- (setq lc3 (GetReal "\nВведите lc3 (24): "))
- (if (= lc3 nil)
- (progn (setq lc3 24))
- )
- (setq lc4 (GetReal "\nВведите lc4 (10): "))
- (if (= lc4 nil)
- (progn (setq lc4 10))
- )
- (setq lc5 (GetReal "\nВведите lc5 (16): "))
- (if (= lc5 nil)
- (progn (setq lc5 16))
- )
- (drawAll dl1 dl2 dl3 dl4 dl5 dl6 v1 v2 v3 v4 v5 v6 R lc1 lc2 lc3 lc4 lc5 )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement