> 1 <

Автор Сообщение

Георгий

Members


Статус

1 сообщений

Где: Russia
Род занятий:
Возраст:

#7918   2019-04-15 18:46 GMT+3 часа(ов)      
написал программу для проекта, но вылазит ошибка неверный тип аргумента, помогите пожалуйста подправить лисп
(DEFUN c:mp_proj (/ p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p23 p24) ;начало функции mp_proj
(setq file (open "D:\project.txt" "r"))
(setq st (read-line file));чтение первой строки
(setq tipf 0 ; текущий номер варианта, прочитанный из файла
st nil)
(while (and (/= tip tipf) (/= st nil))
(setq st (read-line file));
(setq tipf (atoi (substr st 1 2)))
);конец while
(close file)
(setq p1 (getpoint "\nВведите базовую точку:"))
(setq h1 (atof (substr st 3 4))
h2 (atof (substr st 7 4))
l1 (atof (substr st 11 4))
l3 (atof (substr st 15 4))
l4 (atof (substr st 19 4))
l2 (atof (substr st 23 4))
h3 (atof (substr st 27 4))
l5 (atof (substr st 31 4))
l6 (atof (substr st 35 4))
l7 (atof (substr st 39 4))
)
(command "_ucs" "_o" p1)
(setq p1 (list 0 0))
(setq p2 (polar p1 0 l4)); определение координат точки p2
(setq p3 (polar p2 (/ pi 2) h1)) ; определение координат точки p3
(setq p4 (polar p3 0 l1)); определение координат точки p4
(setq p5 (polar p4 (* pi 1.5) h1)); определение координат точки p5
(setq p6 (polar p5 0 l2)); определение координат точки p6
(setq p7 (polar p6 (/ pi 2) 10)); определение координат точки p7
(setq p8 (polar p7 0 l6)); определение координат точки p8
(setq p9 (polar p23 0 10)); определение координат точки p9
(setq p10 (polar p9 (* pi 1.5) 10)); определение координат точки p10
(setq p11 (polar p24 (* pi 1.5) 10)); определение координат точки p11
(setq p12 (polar p11 pi l5)); определение координат точки p12
(setq p13 (polar p12 (/ pi 2) 10)); определение координат точки p13
(setq p14 (polar p13 pi l2)); определение координат точки p14
(setq p15 (polar p14 (* pi 1.5) h2)); определение координат точки p15
(setq p16 (polar p15 pi l3)); определение координат точки p16
(setq p17 (polar p16 (/ pi 2) h2)); определение координат точки p17
(setq p18 (polar p17 pi l4)); определение координат точки p18
(setq p19 (polar p8 (* pi 1.5) 12)); определение координат точки p19
(setq p20 (polar p19 (* pi 1.5) h3)); определение координат точки p20
(setq p21 (polar p20 pi l7)); определение координат точки p21
(setq p22 (polar p21 (/ pi 2) h3)); определение координат точки p22
(setq p23 (polar p8 (* pi 1.5) 10)); точка p23 для дуги
(setq p24 (polar p10 pi 10)); точка p24 для дуги
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
(command "_line" p1 p2 ""); чертим корпус
(command "_line" p2 p3 "");
(command "_line" p3 p4 "");
(command "_line" p4 p5 "");
(command "_line" p5 p6 "");
(command "_line" p6 p7 "");
(command "_line" p7 p8 "");
(command "_arc" p8 p23 p9 ""); дуга p8-p9
(command "_line" p9 p10)
(command "_arc" p10 p24 p11 ""); дуга p10-p11
(command "_line" p11 p12 "")
(command "_line" p12 p13 "")
(command "_line" p13 p14 "")
(command "_line" p14 p15 "")
(command "_line" p15 p16 "")
(command "_line" p16 p17 "")
(command "_line" p17 p18 "")
(command "_line" p18 p1 "")
(command "_line" p19 p20 ""); внутренняя часть
(command "_line" p20 p21 "")
(command "_line" p21 p22 "")
(command "_line" p22 p19 "")
(setvar "osmode" osm)
); конец функции

файл для чтения
№ h1 h2 l1 l3 l4 l2 h3 l5 l6 l7
1 10 10 10 10 10 20 4 10 10 4
2 5 5 5 5 5 10 2 5 5 2
3 15 15 15 15 15 30 6 15 15 6
4 20 20 20 20 20 40 8 20 20 8
> 1 <


Онлайн :

0 пользователь(ей), 21 гость(ей) :




Реклама на сайте: