[pomka]

Пожалуйста поподробней.(конус есть, клин есть а мне надо пирамиду)

[Profan]

Можно, например, построить правильный многоугольник и выдавить его на нужную высоту с расчитанным углом сужения.

[pomka]

мне бы конкретней, все по порядку пожалуйста

[pomka]

как угол расчитать?

[vk]

Еще один из известных 256 способов построения:

Построить паралелепипед (куб, многогранную призму и т.п.) с высотой, равной высоте пирамиды
На верхней грани куба поставить точку-вершину или начертить фигуру - верхнее основание, если пирамида нужна усеченная - это будет разметка верхнего основания.
Разрезать, используя точки разметки.
Удалиить лишнее.
Собрать воедино нужное (актуально, если не все углы у основания выпуклые)

Аналогично можно размечать и нижнее основание.

[vk]

Сообщение от pomka как угол расчитать?

Чистой воды Геометрия, батенька

[Profan]

Для pomka.
Угол надо расчитать исходя из геометрии и в зависимости от того, нужна ли вам усеченная пирамида или нет. А подробнее... Что же тут можно подробнее описать. Вы не знаете, как нарисовать правильный многоугольник? Команда "_polygon" ("мн-угол"). Можно ввести ее в командную строку или вызвать с панели инструментов или из меню. Для выдавливания служит команда "_extrude" ("выдавить"). Ее тоже можно найти в меню. Выдавливаются замкнутые полилинии и области (region). Подробнее мне нечего сказать.

[pomka]

Сообщение от vk Еще один из известных 256 способов построения: Разрезать, используя точки разметки. Удалиить лишнее. Собрать воедино нужное (актуально, если не все углы у основания выпуклые)

А какой командой резать и собирать??? Мне надо чтоб она патом стала телом...

[pomka]

Сообщение от Profan Для pomka. Угол надо расчитать исходя из геометрии и в зависимости от того, нужна ли вам усеченная пирамида или нет. А подробнее... Что же тут можно подробнее описать. Вы не знаете, как нарисовать правильный многоугольник? Команда "_polygon" ("мн-угол"). Можно ввести ее в командную строку или вызвать с панели инструментов или из меню. Для выдавливания служит команда "_extrude" ("выдавить"). Ее тоже можно найти в меню. Выдавливаются замкнутые полилинии и области (region). Подробнее мне нечего сказать.

Как выдавливать я знаю проблема в том что я не знаю как выдавить чтоб грани сходились в одну точку те в вершину...

[pomka]

У мня акад 2006 англ, так что команды нужны на англиийском

[pomka]

Пожалуйста сделайте мне пирамиду чтоб она была телом, основание 2600 мм. Чертежик выложите.
Заранее благодарен

[Profan]

Если вам нужна правильная пирамида, то угол сужения можно найти из решения прямоугольного треугольника (геометрия и тригонометрия). Нарисовать на бумажке и расчитать углы. Можно нарисовать сечение прямо в AutoCAD'е и определить углы.
А выдавленный объект и есть тело.

[pomka]

Да пирамида правильная!!!

[vk]

Сообщение от pomka А какой командой резать и собирать??? Мне надо чтоб она патом стала телом...

Исходным должно быть тело.
Резать _slice
Собирать _union

[Profan]

Высота не задана. В основании - квадрат?

[pomka]

ВСем огромное спасибо, построил на конец-то....

[Profan]

Ну, слава Богу.

[Jochen]

Попробуйте эту программу "pyramid":

Код:

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

(defun tetra(pt1 pt2 pt3 pt4)

  (command "_box" (car bbox) (cadr bbox))
 
  (command "_slice" "_L" "" "_3P" pt1 pt2 pt3 pt4)
  (command "_slice" "_L" "" "_3P" pt2 pt3 pt4 pt1)
  (command "_slice" "_L" "" "_3P" pt3 pt4 pt1 pt2)
  (command "_slice" "_L" "" "_3P" pt4 pt1 pt2 pt3)
)

;-------------------------------------------------
(defun C:pyramid(/ p1 p2 p3 p4 p5 pt1 pt2 pt3 pt4 
		pliste v0)

; scj.schulz, www.black-cad.de 
; May 2006

(alert "To create a 3DSOLID pyramid -
first pick the 4 points 
to describe the ground surface 
clockwise or counter clockwise.")

  (setq p1 (getpoint "\npick P1") p2 (getpoint "\npick P2")	
	p3 (getpoint "\npick P3") p4 (getpoint "\npick P4")		
  	p5 (getpoint "\npick P5"))		
	
  (setq osmode_alt (getvar "osmode"))
  (command "_osmode" 0)

; Bounding box (thanks to Axel Zettler-Struwe)
  (setq pliste (list p2 p3 p4 p5))

  (setq bbox (list (mapcar'(lambda(s)(apply'min(mapcar s pliste)))'(car cadr caddr))
		   (mapcar'(lambda(s)(apply'max(mapcar s pliste)))'(car cadr caddr))
	     )
  ) 

  (tetra p1 p2 p3 p5)
  (setq v0 (entlast))
  (tetra p1 p3 p4 p5)
  
  (command "_union" v0 (entlast) "")
  (command "_osmode" osmode_alt)	
)

Дайте 4 точки как база пирамида и наконец точка на верщине (не надо в центре).
Много успехов!

Jochen
www.black-cad.de