Форум программистов, компьютерный форум, киберфорум
Наши страницы
AutoLISP
Войти
Регистрация
Восстановить пароль
Другие темы раздела
AutoLISP Программа в AutoLISP http://www.cyberforum.ru/autolisp/thread763516.html
Известна длинна окружности. Найти площадь круга, ограниченного этой окружностью.
AutoLISP AutoLisp. Задача построить многоугольник
Вобщем такое задание: "По заданному числу N и длине L построить плоскую проекцию 3-мерного тела, у которого основания параллельны и являются правильными многоугольниками (с N и 2N...
Движение фигуры в AutoLisp AutoLISP
помогите пожалуйста, как заставить фигуру двигаться??
AutoLISP Autolisp: Поместить окружности в центр четырехугольников в порядке рисования. Доброго времени суток и с наступающим! Помогите, пожалуйста, решить следующую задачу: С использованием языка AutoLISP, модифицировать чертеж, созданный в среде AutoCAD Задание: Даны произвольные... http://www.cyberforum.ru/autolisp/thread419319.html
AutoLISP AutoLisp: вписать окружность в замкнутый сплайн http://www.cyberforum.ru/autolisp/thread259694.html
Очень нужна функция, которая бы вписывала окружность в замкнутый сплайн по контуру, причем сплайнов сотня. Просто закипает мозг, от представления как это сделать. Спасибо
Вставка растровых изображений в чертеж (AutoLisp) AutoLISP
Доброго времени суток всем! Не подскажете, есть ли в автолиспе функция вставки растровых / векторных изображений в чертеж и - если есть - как это делается?
Заливка цветом в AutoLisp AutoLISP
Доброго времени суток! Не подскажете, можно ли в автолиспе сделать заливку цветом? Почему-то нахожу только штриховки или заливку средствами автокада :( Нужно сегодня... Заранее спасибо!
AutoLISP Запуск AutoLISP Как запустить AutoLISP в AutoCad"e. Я выбираю Сервис=Приложения=... и в открывшемся окне на диске С:AutoCad R14 нет папки Vlisp. Я новичек в этом деле (раньше программировала только на VBA и Object... http://www.cyberforum.ru/autolisp/thread186596.html
AutoLISP PC-LISP to AutoLisp http://www.cyberforum.ru/autolisp/thread174234.html
Здравствуйте, есть небольшая просьба, "переложить" программку с PC-Lisp'а на AutoLisp вот код (defun f(st) (cond (t (f1 (concat st " _") (cons nil nil))) ) ) (defun f1(st a)...
AutoLISP AutoLISP, простите за грубые слова, но... необходимо выделить несколько примитивов и изменить их свойства (в частности тип линии) пробовал _select, ssget(не заработал), какие есть предложения? Добавлено через 20 часов 56 минут закройте... http://www.cyberforum.ru/autolisp/thread135624.html
Catstail
Модератор
25413 / 13041 / 2432
Регистрация: 12.02.2012
Сообщений: 21,287
19.01.2013, 22:10 0

Autolisp Полилиния-дуга

19.01.2013, 22:10. Просмотров 4511. Ответов 4
Метки (Все метки)

Ответ

В HomeLisp можно рисовать кривые Безье:

Lisp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
(prog (w x0 y0 x1 y1 x2 y2 x3 y3 xx0 xx1 xx2 xx3 yy0 yy1
         yy2 yy3 ff fi sinfi cosfi)
      (grwCreate 'w 400 400 "Набор кривых Безье" _WHITE)
      (grwScale 'w -120 120 -120 120)
      (grwSetParm 'w 2 7 _GREEN _BLUE)
      (grwShow 'w)
      (setq x0 10)
      (setq y0 10)
      (setq x1 -20)
      (setq y1 20)
      (setq x2 70)
      (setq y2 -70)
      (setq x3 80)
      (setq y3 80)
      (dolist (ff '(0 45 90 135 180 225 270 315) T)
                   (setq fi (* _Pi (/ ff 180.)))
                   (setq sinfi (sin fi))
                   (setq cosfi (cos fi))
                   (setq xx0 (+ (* x0 cosfi) (* y0 sinfi)))
                   (setq yy0 (- (* y0 cosfi) (* x0 sinfi)))
                   (setq xx1 (+ (* x1 cosfi) (* y1 sinfi)))
                   (setq yy1 (- (* y1 cosfi) (* x1 sinfi)))
                   (setq xx2 (+ (* x2 cosfi) (* y2 sinfi)))
                   (setq yy2 (- (* y2 cosfi) (* x2 sinfi)))
                   (setq xx3 (+ (* x3 cosfi) (* y3 sinfi)))
                   (setq yy3 (- (* y3 cosfi) (* x3 sinfi)))
                   (grwBezier 'w (list xx0 yy0 xx1 yy1 xx2 yy2 xx3 yy3))
                   (setq xx1 (+ (* (- x1) cosfi) (* (- y1) sinfi)))
                   (setq yy1 (- (* (- y1) cosfi) (* (- x1) sinfi)))
                   (setq xx2 (+ (* (- x2) cosfi) (* (- y2) sinfi)))
                   (setq yy2 (- (* (- y2) cosfi) (* (- x2) sinfi)))
                   (grwBezier 'w (list xx0 yy0 xx1 yy1 xx2 yy2 xx3 yy3))
      )
  @Ink  
   (if (= (grwInkey 'w 100) 0) (go @Ink) nil)
   (grwHide 'w)
   (grwDestroy 'w)
   (return 'Ok)
)


Вернуться к обсуждению:
Autolisp Полилиния-дуга
0
Изображения
Тип файла: jpg lisp-31.JPG (39.5 Кб, 6 просмотров)
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.01.2013, 22:10

Движение фигуры в AutoLisp
помогите пожалуйста, как заставить фигуру двигаться??

AutoLISP работа с файлом
Здравствуйте! Необходимо реализовать вывод и ввод в файлы. Программа чертит заданную по условию...

Выполнить чертеж в AutoLisp
Подскажите пожалуйста, как сделать этот чертеж с помощью AutoLisp?

0
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.