Построить 2 фигуры

@gmmax · Регистрация: 04.12.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте, помогите построить 2 фигуры(отдельно) через AutoLisp. Первая - фигура в виде чашки, ввторая - в виде гриба, особых параметров или указаний нет, спасибо большое.

@krilan · 27.04.2018, 20:28

Скорее всего это некоторое количество окружностей определенного диаметра формирующие образ чашки или гриба смещенные по оси z на некоторое расстояние друг от друга.

@vlisp · 29.04.2018, 18:14

Lisp

;;; cup.lsp Drawing a cup
 
(defun d (p x y) (mapcar '+ p (list x y)))
 
(setq p0 (getpoint "\nStart point: "))
 
(command "_.pline"
     p0
     (setq p1 (d p0 0 -120))
     (setq p2 (d p1 80 0))
     (setq p3 (d p2 0 120))
     "_c")
 
(command "_.arc"
     "_c"
     (setq p4 (d p2 0 70))
     (setq p5 (d p2 0 40))
     (setq p6 (d p2 0 90)))

@gmmax 0 / 0 / 0 Регистрация: 04.12.2015 Сообщений: 7
		1
	Построить 2 фигуры 08.12.2015, 08:58. Показов 3266. Ответов 2 Метки нет (Все метки) Здравствуйте, помогите построить 2 фигуры(отдельно) через AutoLisp. Первая - фигура в виде чашки, ввторая - в виде гриба, особых параметров или указаний нет, спасибо большое. 0

@krilan 0 / 0 / 0 Регистрация: 22.02.2018 Сообщений: 3
	27.04.2018, 20:28	2
	Скорее всего это некоторое количество окружностей определенного диаметра формирующие образ чашки или гриба смещенные по оси z на некоторое расстояние друг от друга. 0

	29.04.2018, 18:14

Опции темы