Добрый вечер.

Друзья выручайте - я уже бешусь и не могу найти причину.

Проблема:
Автокад 2012(рус) пропускает точки при их рисовании из скрипта. Текст прилагаю. Т.е. он рандомно недорисовывает часть точек. Это моя первая прога на lisp.. Наверно я чё-та не так делаю.

Спасибо.
p.s. над кодом не стебаться

 

(setq RB 300)

(setq RM 70)

(setq N 12)

(setq M 11)

(setq I 0)

(setq J 0)

(defun alphai (i)

  (/ (* (/ (* 360 i) N) PI) 180)

)

 

(defun gammaj (j)

  (/ (* (/ (* 360 j) M) PI) 180)

)

 

 

(defun XIJ (I J)

  (* (+ (* RM (cos (alphai I))) RB) (cos (gammaj J)))

)

 

(defun YIJ (I J)

  (* (+ (* RM (cos (alphai I))) RB) (sin (gammaj J)))

)

 

(defun zij (I J)

  (* RM (sin (alphai I)))

)

 

(setq I 0)

(setq J 0)

(setq PT0 (list 0 0 0))

 

(setvar "CMDECHO" 0)

(repeat	M

 

  (repeat N

 

    (setq PT (list (XIJ I J) (YIJ I J) (ZIJ I J)))

 

    (command "_point" PT)

 

    (setq I (+ I 1))

 

    (setq PT0 PT)

  )

  (setq I 0)

  (setq J (+ J 1))

)