0 / 0 / 0
Регистрация: 13.08.2016
Сообщений: 6
1

Необходимо начертить 5 кругов разного цвета с одним центром, указанным курсором на экране

13.08.2016, 07:56. Показов 1457. Ответов 8
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Здравствуйте. Не знаю, имею ли я право обратиться к специалистам с просьбой сделать программку на LISP для Autocad (Nanocad), но хотелось бы получить помощь.
Есть таблица Эксель, вставленная в Autocad c 5-тью значениями диаметров.
Необходимо начертить 5 кругов разного цвета с одним центром, указанным курсором на экране, и заданной толщиной линии.
Вложения
Тип файла: pdf Заготовка.pdf (35.0 Кб, 12 просмотров)
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.08.2016, 07:56
Ответы с готовыми решениями:

Сформировать на экране N кругов (красного цвета) и N ромбов (синего цвета)
с клавиатуры набирается число N. Сформировать на экране N кругов (красного цвета) и N ромбов(синего...

Изобразить три вертикальные полосы разного цвета на экране, которые меняют свои цвета
Прохожу учебную практику, имеется порядка 30 задач. С этими возникли трудности 1)модуль crt ...

Модуль GRAPH: Начертить на экране узор из 100 окружностей случайного диаметра и цвета
6. Написать программу, которая вычерчивает на экране узор из 100 окружностей случайного диаметра и...

Набор ромбов разного цвета, соединенных одним углом в общем центре, вращаются против часовой стрелки
Набор ромбов разного цвета, соединенных одним углом в общем центре, вращаются против часовой...

8
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28046 / 15779 / 983
Регистрация: 15.09.2009
Сообщений: 67,752
Записей в блоге: 78
13.08.2016, 08:15 2
сделать за вас?
можно конечно. ждите, может кто и откликнется.
0
0 / 0 / 0
Регистрация: 13.08.2016
Сообщений: 6
13.08.2016, 09:51  [ТС] 3
Я конечно извиняюсь. Но проблема в том, что я не программист и не знаком с языком Лисп. А эти круги должен чертить человек не знакомый с программой Автокад. Поэтому хотелось бы, чтобы он ввел значения диаметров и нажатием кнопки на определенном месте экрана получил эти круги. Спасибо. Еще раз извините.
0
Почетный модератор
Эксперт по компьютерным сетямЭксперт Windows
28046 / 15779 / 983
Регистрация: 15.09.2009
Сообщений: 67,752
Записей в блоге: 78
13.08.2016, 10:48 4
а я вас ни в чем и не обвинял, чтобы вы извинялись.
я задал встречный вопрос и все.
вариантов два - вы создаете тему с подробным описанием, или если хотите ваши сообщения вынесу в отдельную тему, и ждете когда кто то откликнется, рисовать в автокаде я как инженер умею, но с лиспом у меня тоже напряг, да и не нужен он мне. или вы готовите кошелек (или тот человек которому это нужно) и обращаетесь к фрилансерам.
а нет - вариант три - срочно изучаете лисп и делаете сами.
0
0 / 0 / 0
Регистрация: 13.08.2016
Сообщений: 6
13.08.2016, 19:02  [ТС] 5
Господа, нужна помощь.
Имеется таблица, надо начертить 5 кругов с радиусами, указанными в таблице.
присвоить толщину линии и цвет. У меня получилось так (см. вложения). На большее ума не хватает. Помогите.
Заранее благодарен.
Вложения
Тип файла: pdf Заготовка01.pdf (12.4 Кб, 3 просмотров)
Тип файла: txt 5KR.txt (508 байт, 5 просмотров)
0
0 / 0 / 0
Регистрация: 13.08.2016
Сообщений: 6
14.08.2016, 10:36  [ТС] 6
получилось так.
defun c:5KR (/ p1 R1 R2 R3 R4 R5)
(SETQ p1 (getpoint "\nПоказать центр:"))
(SETQ R1 (getreal "\nЗадать_R1:"))
(setq R2 (getreal "\nЗадать_R2:"))
(setq R3 (getreal "\nЗадать_R3:"))
(setq R4 (getreal "\nЗадать_R4:"))
(setq R5 (getreal "\nЗадать_R5:"))

(setvar "celweight" 50) ;толщина линии 0,5
(command "_color" 240) ; цвет линии красный
(command "_circle" p1 R1)
(command "_color" 160) ; цвет линии синий
(command "_circle" p1 R2)
(command "_color" 100) ; цвет линии зеленый
(command "_circle" p1 R3)
(command "_color" 210) ; цвет линии фиалетовый
(command "_circle" p1 R4)
(command "_color" 130) ; цвет линии голубой
(command "_circle" p1 R5)

) ; end_defun

Не могу задать радиусы автоматически из таблицы.
Помогите, пожалуйста.
0
1046 / 967 / 153
Регистрация: 10.08.2015
Сообщений: 5,224
15.08.2016, 01:32 7
почитай про COM... в гугле есть ответ на твой вопрос, меньше ленись а больше ищи и все получится
0
0 / 0 / 0
Регистрация: 13.08.2016
Сообщений: 6
15.08.2016, 07:17  [ТС] 8
Дорогой, vlisp. А конкретнее можно для чайника. Что такое СОМ? И как его найти в ГУГЛ?
0
0 / 0 / 0
Регистрация: 13.08.2016
Сообщений: 6
20.08.2016, 20:32  [ТС] 9
Всем спасибо, тему можно закрыть, прогу сочинил методом тыка.

(defun c:UU (/ p1 R1 R2 R3 R4 R5 obj k y v m h)
(setq k 1 y 2 v 3 m 4 h 5)
(vl-load-com)
(if (setq obj (car (entsel)))
(progn
(setq obj (vlax-ename->vla-object obj))
(if (= (vla-get-ObjectName obj) "AcDbTable")
(setq R1 (vla-GetText obj k 1) R2 (vla-GetText obj y 1) R3 (vla-GetText obj v 1) R4 (vla-GetText obj m 1) R5 (vla-GetText obj h 1)))))

(SETQ p1 (getpoint "\nПоказать центр:"))

(setvar "celweight" 50) ;толщина линии 0,5

(command "_color" 240) ; цвет линии красный
(command "_circle" p1 R1)
(command "_color" 160) ; цвет линии синий
(command "_circle" p1 R2)
(command "_color" 100) ; цвет линии зеленый
(command "_circle" p1 R3)
(command "_color" 210) ; цвет линии фиалетовый
(command "_circle" p1 R4)
(command "_color" 130) ; цвет линии голубой
(command "_circle" p1 R5)

) ; end_defun
0
20.08.2016, 20:32
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
20.08.2016, 20:32
Помогаю со студенческими работами здесь

Имеются n досок разного цвета. Необходимо выбрать из них не менее k досок одного цвета длиной не менее h сантиметров
На лесопилке имеются n досок разного цвета. Необходимо выбрать из них не менее k досок одного цвета...

При попытке переустановить ОС когда вылазит окошко чтобы выбрать язык на экране появляются полосы разного цвета и окно размножается
Здравствуйте. Вчера на одном компьютере пробовал перустановить windows, странная ситуация возникла,...

Нарисовать несколько окон разного цвета и разного размера в разных местах
Нарисовать несколько окон разного цвета и разного размера в разных местах.

Рисование квадратов разного размера, разного цвета и появляющихся в произвольных местах экрана
Помогите пжл с задачкой: 1) Рисование квадратов разного размера, разного цвета и появляющихся в...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Опции темы

Новые блоги и статьи
Книги и учебные ресурсы по C#
InfoMaster 08.01.2025
Базовые учебники и руководства Одной из лучших книг для начинающих является "C# 10 и . NET 6 для начинающих" Эндрю Троелсена и Филиппа Джепикса . Книга последовательно раскрывает основные концепции. . .
Что такое NullReferenceEx­­­ception и как исправить?
InfoMaster 08.01.2025
NullReferenceException - одно из самых распространенных исключений, с которым сталкиваются разработчики на C#. Это исключение возникает при попытке обратиться к членам объекта (методам, свойствам или. . .
Что такое Null Pointer Exception (NPE) и как это исправить?
InfoMaster 08.01.2025
Null Pointer Exception (NPE) - это одно из самых распространенных исключений в Java, которое возникает при попытке использовать ссылку на объект, значение которой равно null. Это исключение относится. . .
Русский язык в консоли C++
InfoMaster 08.01.2025
При разработке программ на C++ одной из частых проблем, с которой сталкиваются русскоязычные программисты, является корректное отображение кириллицы в консольных приложениях. Эта проблема особенно. . .
Telegram бот на C#
InfoMaster 08.01.2025
Разработка ботов для Telegram стала неотъемлемой частью современной экосистемы мессенджеров. C# предоставляет мощный и удобный инструментарий для создания разнообразных ботов, от простых. . .
Использование GraphQL в Go (Golang)
InfoMaster 08.01.2025
Go (Golang) является одним из наиболее популярных языков программирования, используемых для создания высокопроизводительных серверных приложений. Его архитектурные особенности и встроенные. . .
Что лучше использовать при создании класса в Java: сеттеры или конструктор?
Alexander-7 08.01.2025
Вопрос подробнее: На вопрос: «Когда одновременно создаются конструктор и сеттеры в классе – это нормально?» куратор уточнил: «Ваш класс может вообще не иметь сеттеров, а только конструктор и геттеры. . .
Как работать с GraphQL на TypeScript
InfoMaster 08.01.2025
Введение в GraphQL и TypeScript В современной разработке веб-приложений GraphQL стал мощным инструментом для создания гибких и эффективных API. В сочетании с TypeScript, эта технология. . .
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
Hrethgir 07.01.2025
Создан с целью проверки скорости асинхронной логики: ранее описанного сумматора и предополагаемых fast регистров. Регистры созданы на базе ранее описанного, предполагаемого fast триггера. То-есть. . .
Как перейти с Options API на Composition API в Vue.js
BasicMan 06.01.2025
Почему переход на Composition API актуален В мире современной веб-разработки фреймворк Vue. js продолжает эволюционировать, предлагая разработчикам все более совершенные инструменты для создания. . .
Архитектура современных процессоров
inter-admin 06.01.2025
Процессор (центральный процессор, ЦП) является основным вычислительным устройством компьютера, которое выполняет обработку данных и управляет работой всех остальных компонентов системы. Архитектура. . .
История создания реляционной модели баз данных, правила Кодда
Programming 06.01.2025
Предпосылки создания реляционной модели В конце 1960-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru