[Serge_Y]

Всем привет!
Потребовалось набросать эскиз кованой калитки с воротами. Чем посоветуте воспользоваться для создания завитушек? Пробовал сплайном, но как-то не очевидно, получается некрасиво. Может кто поделится своими наработками в Акаде?
Спасибо

[asys]

еще под 10-ю версию народ писал

Код:

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

;;; --------------------------------------------------------------------------;
;;; SPIRAL.LSP
;;;   Copyright (C) 1990  Autodesk, Inc.
;;;  
;;;   Версию для русского Автокада адаптировал
;;;   Рафаил Глуховский     СП ПАРАЛЛЕЛЬ            Июль 1991
;;;
;;;   Настоящим предоставляется разрешение безвозмездно использовать,
;;;   копировать, вносить изменения и распространять данную программу
;;;   для любых целей при условиях, что приведенная выше информация об
;;;   авторских правах будет помещена в каждой копии программы и что,
;;;   указанная информация, а также данное разрешение будут помещены в
;;;   сопроводительной документации. Данная программа поставляется на
;;;   на условиях "как есть" без явных или опосредованных гарантий.
;;;
;;; --------------------------------------------------------------------------;
;;; ОПИСАНИЕ
;;;
;;;   Данная программа приводится как пример для программирования.
;;;
;;;   Спроектировал и написал Kelvin R. Throop в Январе 1985
;;;
;;;   Данная программа используется для построения двумерной спирали.
;;;   Программу можно загрузить и запустить, набрав либо "спираль",
;;;   либо следующее выражение:
;;;   (cspiral <число витков> <центр. точка> <приращение на виток>
;;;            <точки на виток>).
;;;
;;; --------------------------------------------------------------------------;

(defun myerror (s)                    ; Если встретилась ошибка (напр. CTRL-C)
  (if (/= s "Функция прервана")
    (princ (strcat "\nОшибка: " s))
  )
  (setvar "cmdecho" ocmd)             ; Восстан. режимы
  (setvar "blipmode" oblp)
  (setq *error* olderr)               ; Восстан. обработчик ошибок
  (princ)
)


(defun cspiral (ntimes bpoint cfac lppass / ang dist tp ainc dinc circle) 
  (setvar "blipmode" 0)               ; выключить маркеры
  (setvar "cmdecho" 0)                ; выключить эхо
  (setq circle (* 3.141596235 2))
  (setq ainc (/ circle lppass))
  (setq dinc (/ cfac lppass))
  (setq ang 0.0)
  (setq dist 0.0)
  (command "PLINE" bpoint)         ; начать спираль с центральной точки и...
  (repeat ntimes 
    (repeat lppass 
      (setq tp (polar bpoint (setq ang (+ ang ainc))
                      (setq dist (+ dist dinc))
               ))
      (command tp)                    ; продолжить к следующей точке...
    )
  ) 
  (command "")                        ; пока не готово все.
  (princ)
) 

;;;
;;;       Интерактивная генерация спирали
;;;

(defun C:SPIRAL (/ olderr ocmd oblp nt bp cf lp) 
  (setq olderr  *error*
        *error* myerror)
  (setq ocmd (getvar "cmdecho"))
  (setq oblp (getvar "blipmode"))
  (setvar "cmdecho" 0)
  (initget 1)                         ; bp не должна быть пустой
  (setq bp (getpoint "\nЦентральная точка: "))
  (initget 7)                         ; nt не должна быть пустой, 0 или отриц.
  (setq nt (getint "\nЧисло витков: "))
  (initget 3)                         ; cf не должна быть пустой или 0
  (setq cf (getdist "\nПриращение на виток: "))
  (initget 6)                         ; lp не должна быть 0 или отриц.
  (setq lp (getint "\nТочки на виток <30>: "))
  (cond ((null lp) (setq lp 30))) 
  (cspiral nt bp cf lp)
  (setvar "cmdecho" ocmd)
  (setvar "blipmode" oblp)
  (setq *error* olderr)               ; Восстан. обработчик ошибок
  (princ)

) 

;;; --------------------------------------------------------------------------;

[T-Yoke]

Сообщение от Serge_Y Всем привет! Потребовалось набросать эскиз кованой калитки с воротами. Чем посоветуте воспользоваться для создания завитушек? Пробовал сплайном, но как-то не очевидно, получается некрасиво. Может кто поделится своими наработками в Акаде? Спасибо

Я еще в бытность технологом, после таких красивых спиралек, спросил бы дизайнера, а делать вы их как предполагали? Именно так как нарисовали - спиралью Архимеда с переменным радиусом или можно обычными дугами с переходами обойтись?
Спору нет красиво, но сразу представляйте как это будет делаться. А то в реальной решетке от этой красоты может ничего не остаться.

[Serge_Y]

>T-Yoke
Меня пока интересует чисто техническая сторона воплощения данного чуда в Автокаде.

>Asys
Лисп хороший, но в последней версии акада есть команда Helix, которая дает тот же результат. А нужна спираль логарифмическая

[Profan]

А нужна спираль логарифмическая

Это еще почему? Ковать легче?

[asys]

для логарифмической спирали ничего нет, чем богаты, то и предложил. А вообще рекомендую посмотреть Corel Draw, там все типы спиралей были, вроде

[Serge Krasnikov]

Сообщение от Serge_Y А нужна спираль логарифмическая

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

[Serge_Y]

>Asys
Ок, будем смотреть Корел.
>All
Пока интересует только теория. Когда дело дойдет до мастерской, тогда и буду упрощать

[Хмурый]

Простейшая отрисовка спирали дугами полилинии не подойдёт?

_pline
Specify start point:
Current line-width is 0.0000
Specify next point or [Arc/Halfwidth/Length/Undo/Width]: a
Specify endpoint of arc or
[Angle/CEnter/Direction/Halfwidth/Line/Radius/Second pt/Undo/Width]:
Specify endpoint of arc or
[Angle/CEnter/CLose/Direction/Halfwidth/Line/Radius/Second pt/Undo/Width]:
Specify endpoint of arc or
[Angle/CEnter/CLose/Direction/Halfwidth/Line/Radius/Second pt/Undo/Width]:
....

[005]

Кованые ограждения рисуются в CORELDRAW ручками и никакие спирали
особенно не нужны. Потом все это распечатывается на плоттере 1:1.
Если приспичило всетаки в АКАДЕ то из КОРЕЛА гонишь файл в DWG
в АКАД из КОРЕЛА приходят сплайны, превращаешь сплайны в полилинии
даешь толщину, но твсе равно печатать шаблон 1:1. Кузнецам никакие
размеры не нужны (ну кроме общей длины заготовки да и та из шаблона
находится). В принципе а АКАДЕ ковку можно рисовать полилиниями превращенными в сплайн (но не самими чистыми сплайнами) придавая
толщину полилинии но в КОРЕЛЕ это на порядок удобнее