> 1 <

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

as1212

Members


Статус

1 сообщений

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

#5737   2012-02-10 20:23 GMT+3 часа(ов)      
Помогите пожалуйста не могу разобраться:

Средствами AutoLISP создать функцию, осуществляющую ввод данных в режиме диалога и рисующую с использованием разных цветов
Пятнадцать дуг с одной общей средней точкой, задано положение трех точек первой дуги, каждая последующая дуга образована смещением двух крайних точек исходной дуги вдоль осей х или у на заданное число единиц

Вот что я сделал но неработает

1вариант


(defun lb2 (n)
(command "_arc" '(50 50) '(60 80) '(110 110))
(command "_arc" '((+ (* 1 n) 50) (+ (* 1 n) 50)) '(60 80) '((+ (* 1 n) 110) (+ (* 1 n) 110)))
(command "_arc" '((+ (* 2 n) 50) (+ (* 2 n) 50)) '(60 80) '((+ (* 2 n) 110) (+ (* 2 n) 110)))
(command "_arc" '((+ (* 3 n) 50) (+ (* 3 n) 50)) '(60 80) '((+ (* 3 n) 110) (+ (* 3 n) 110)))
(command "_arc" '((+ (* 4 n) 50) (+ (* 4 n) 50)) '(60 80) '((+ (* 4 n) 110) (+ (* 4 n) 110)))
(command "_arc" '((+ (* 5 n) 50) (+ (* 5 n) 50)) '(60 80) '((+ (* 5 n) 110) (+ (* 5 n) 110)))
(command "_arc" '((+ (* 6 n) 50) (+ (* 6 n) 50)) '(60 80) '((+ (* 6 n) 110) (+ (* 6 n) 110)))
(command "_arc" '((+ (* 7 n) 50) (+ (* 7 n) 50)) '(60 80) '((+ (* 7 n) 110) (+ (* 7 n) 110)))
(command "_arc" '((+ (* 8 n) 50) (+ (* 8 n) 50)) '(60 80) '((+ (* 8 n) 110) (+ (* 8 n) 110)))
(command "_arc" '((+ (* 9 n) 50) (+ (* 9 n) 50)) '(60 80) '((+ (* 9 n) 110) (+ (* 9 n) 110)))
(command "_arc" '((+ (* 10 n) 50) (+ (* 10 n) 50)) '(60 80) '((+ (* 10 n) 110) (+ (* 10 n) 110)))
(command "_arc" '((+ (* 11 n) 50) (+ (* 11 n) 50)) '(60 80) '((+ (* 11 n) 110) (+ (* 11 n) 110)))
(command "_arc" '((+ (* 12 n) 50) (+ (* 12 n) 50)) '(60 80) '((+ (* 12 n) 110) (+ (* 12 n) 110)))
(command "_arc" '((+ (* 13 n) 50) (+ (* 13 n) 50)) '(60 80) '((+ (* 13 n) 110) (+ (* 13 n) 110)))
(command "_arc" '((+ (* 14 n) 50) (+ (* 14 n) 50)) '(60 80) '((+ (* 14 n) 110) (+ (* 14 n) 110)))

)

2 вариант

(defun lb1(n)

(repeat 15(command "_arc" '((- -20 n) 20) '(0 0) '((+ 20 n) 20))
(setq n (+ n 1))
)
)

)
3 вариант


(defun lb1(n)

(defun g()
(setq p1 (getpoint "\nFirst Point:"))
(setq p2 (getpoint "\nSecond Point:"))
(setq p3 (getpoint "\nEnd Point:"))
(setq n 1)
(repeat 15((command "_arc" p1 p2 p3)) (setq n (+ n 1)))

)
Всем заранее спасибо за помощь.
> 1 <


Онлайн :

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




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