С Новым годом! Форум программистов, компьютерный форум, киберфорум
AutoCAD
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 5.00/7: Рейтинг темы: голосов - 7, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 13.08.2016
Сообщений: 6
1

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

13.08.2016, 07:56. Показов 1456. Ответов 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
Ответ Создать тему
Новые блоги и статьи
Счётчик на базе сумматоров + регистров и генератора сигналов согласования.
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-х годов компьютерная индустрия столкнулась с серьезными проблемами в области управления данными. Существовавшие на тот момент модели данных -. . .
Полезные поделки на Arduino, которые можно сделать самому
raxper 06.01.2025
Arduino как платформа для творчества Arduino представляет собой удивительную платформу для технического творчества, которая открывает безграничные возможности для создания уникальных проектов. Эта. . .
Подборка решений задач на Python
IT_Exp 06.01.2025
Целью данной подборки является предоставление возможности ознакомиться с различными задачами и их решениями на Python, что может быть полезно как для начинающих, так и для опытных программистов. . . .
С чего начать программировать микроконтроллер­­ы
raxper 06.01.2025
Введение в мир микроконтроллеров Микроконтроллеры стали неотъемлемой частью современного мира, окружая нас повсюду: от простых бытовых приборов до сложных промышленных систем. Эти маленькие. . .
Из чего собрать игровой компьютер
inter-admin 06.01.2025
Сборка игрового компьютера требует особого внимания к выбору комплектующих и их совместимости. Правильно собранный игровой ПК не только обеспечивает комфортный геймплей в современных играх, но и. . .
Обновление сайта www.historian.b­y
Reglage 05.01.2025
Обещал подвести итоги 2024 года для сайта. Однако начну с того, что изменилось за неделю. Добавил краткий урок по последовательности действий при анализе вредоносных файлов и значительно улучшил урок. . .
Как использовать GraphQL в C# с HotChocolate
Programming 05.01.2025
GraphQL — это современный подход к разработке API, который позволяет клиентам запрашивать только те данные, которые им необходимы. Это делает взаимодействие с API более гибким и эффективным по. . .
Модель полного двоичного сумматора с помощью логических операций (python)
AlexSky-coder 04.01.2025
def binSum(x:list, y:list): s=^y] p=x and y for i in range(1,len(x)): s. append((x^y)^p) p=(x and y)or(p and (x or y)) return s x=list() y=list()
Это мы не проходили, это нам не задавали...(аси­­­­­­­­­­­­­­­­­­­­­­­­­­х­р­о­н­­н­­­ы­­й счётчик с управляющим сигналом зад
Hrethgir 04.01.2025
Асинхронный счётчик на сумматорах (шестиразрядный по числу диодов на плате, но наверное разрядов будет больше - восемь или шестнадцать, а диоды на старшие), так как триггеры прошли тестирование и. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru