[DFooz]

Помогите, пожалйста, найти ошибку при создании двумерного массива точек. Хочу создать список с начальными координатами и список с конечными.

Вот эти действия у меня правильные?

(setq beg (list x1 y1)
end (list x2 y2)
)
(cons beg fir_pt)
(cons end sec_pt)


Потом в Цикле ещё такой кусок
(setq ct (+ 1 ct))
(cons ct count)

КОт. используется потом для рисования прямых

Код:

[Выделить все]

		(foreach i count 
			(command "_.LINE" (nth i fir_pt) (nth i sec_pt) "")
		) ;end foreach

И ничего из этого не работает
Где ошибка? Не могу понять


Основной код

Код:

[Выделить все]

(defun G2R (GG / AA) (setq AA (/ (* pi GG) 180.0)) ) 

(defun c:tmm(/ AB BC BS)
	(setq AB 20;(getint "\nÄëèíà êðèâîøèïà AB-?")
				BC 78;(getint "\nÄëèíà øàòóíà BC-?")
				BS 50;(getint "\nBS-?")
				st_ang 150
				zero '(0 0)
				axis_ang 45
				num 12
				dang 30
				fir_pt '()
				sec_pt '()
				rad 1
				count '()
				ct -1
		)
		(command "_.CIRCLE" zero AB )
		(repeat num
			(setq ct (+ 1 ct))
			(cons ct count)
			(command "_.LINE" zero (polar zero (G2R st_ang) AB) "")
			(setq x1 (* AB (cos (G2R st_ang)) )
						y1 (* AB (sin (G2R st_ang)) )
						AC (+ (* AB (cos (G2R (- st_ang axis_ang))) )    (sqrt (- (* BC BC) (expt (* AB (sin (G2R (- st_ang axis_ang)))) 2) ) ) )						
						x2 (* AC (cos (G2R axis_ang)) )
						y2 (* AC (sin (G2R axis_ang)) )
			);end "setq"
			(setq st_ang (+ st_ang dang) )
			(setq beg (list x1 y1)
						end (list x2 y2)
			)
			(cons beg fir_pt)
			(cons end sec_pt)
			(command "_.CIRCLE" (list x2 y2) rad)
		) ;end "repeat"

		(foreach i count 
			(command "_.LINE" (nth i fir_pt) (nth i sec_pt) "")
		) ;end foreach


)

[DFooz]

Всё, тему можно закрывать. Ещё надо было присваивание делать. :?

вобщем
(setq fir_pt (cons beg fir_pt))
(setq sec_pt (cons end sec_pt))