[Nordenskald]

Всем привет!

Появилась задача создания в AutoCad или Comsol в 3д ВЧ антены в форме 2-х параболических спиралей!или спиралей архимеда!

вид см. на рисунке!

так как я акадом мало пользовался, то и просмотрев мануалы не смог понять как же такую сделать!

кто-нибудь чем-нибудь помочь сможет?

заранее спасибо!

[Кулик Алексей aka kpblc]

Версию AutoCAD озвучить сильно не помешает.

[Nordenskald]

понял, 2009

[Victor]

В одну сторону.
oborot сколько оборотов
shag расстояние между витками
step шаг между точками в градусах

Код:

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

(defun c:arch ( / )
;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq oborot 2)
(setq shag 1)
(setq step 10)
;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq step_rad (*(/ step 180.0)pi))
(setq cen '(0.0 0.0) ugol (- 0.0 step_rad))
(setq oborot_rad (* oborot pi 2.0))
(command "_.pline" cen)
(while (< ugol oborot_rad)
(setq ugol (+ ugol step_rad))
(setq iks (* (sin ugol) (+ shag (* shag (/ ugol (* pi 2))))))
(setq wai (* (cos ugol) (+ shag (* shag (/ ugol (* pi 2))))))
(setq point (list iks wai))
(command point)
)
(command "")
)

[Кулик Алексей aka kpblc]

А штатный инструмент не подходит?

[Victor]

Не слышал. Есть такое в 2004?

[Nordenskald]

Victor! Спасибо!


и еще важный вопрос - можно ли сделать, чтобы не было особенности при построении спирали, т.е. чтоб был плавный переход от прямой линии к дуге? и как менять длину этой прямой части( которая из центра начинается)?

[Кулик Алексей aka kpblc]

Victor, инструмент "спираль" появился в 2007-м. Команда _.helix

[Nordenskald]

ап_пжл

[Солидворкер]

http://forum.dwg.ru/showthread.php?t=30619