> 1 <

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

netremo

Members


Статус

2 сообщений

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

#6725   2012-11-03 01:26 GMT+3 часа(ов)      
Добрый вечер.

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

Проблема:
Автокад 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))
)
 

netremo

Members


Статус

2 сообщений

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

#6726   2012-11-03 01:49 GMT+3 часа(ов)      
Случайно нашёл ответ ))))

Привязки - зло!

Лекарство:
(setvar "Osmode" 0)
> 1 <


Онлайн :

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




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