|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
14.01.2013, 07:04 | #11 | |
Пользователь
Регистрация: 29.12.2012
Сообщений: 14
|
Цитата:
|
|
15.01.2013, 09:25 | #12 |
Пользователь
Регистрация: 29.12.2012
Сообщений: 14
|
Здравствуйте. Подскажите пожалуйста, как отрисовать "Дугу" в Автокаде между вставленными блоками по коду, который прописан выше? Есть один нюанс, вершины начала и конца "Дуги" отличаются, так как блоки имеют разную конфигурацию. Хотелось бы, чтобы в коде, прописанный выше, была добавлена функция по прорисовке дуги!
|
15.01.2013, 13:02 | #13 | ||
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Построение аналогично построению на кульмане.
Имеем координаты вершин,радиус.находим координаты центра окружности. расчитываем углы на вершины.строим дугу.Самое важное-правильный расчет углов. Код:
Цитата:
+ремонт и обслуживание вычислиьельных комплексов. Цитата:
И аналагично выполнить в коде. Справку прилагаю.
Анализ,обработка данных Недорого
Последний раз редактировалось doober; 15.01.2013 в 13:05. |
||
15.01.2013, 13:15 | #14 |
Пользователь
Регистрация: 29.12.2012
Сообщений: 14
|
Процесс построения логики я понимаю исходя из того что я хочу, но не умею использовать типы данных, переменные, констант.
|
15.01.2013, 13:19 | #15 |
Пользователь
Регистрация: 29.12.2012
Сообщений: 14
|
А вот по коду, который вы предоставили выше для дуги, нельзя ли его привязать к точкам, которые прорисованы в блоках, а радиус сделать каким-нибудь постоянным числом?
|
15.01.2013, 15:21 | #16 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Точки есть.радиус есть.
Расчитали центр окружности,расчитали углы,построили дугу. Код писать на это дело времени нет.
Анализ,обработка данных Недорого
|
18.01.2013, 08:38 | #17 |
Пользователь
Регистрация: 29.12.2012
Сообщений: 14
|
То есть нужно в вашем коде дописать следующие имена переменных:
Dim arcObj As AcadArc Dim startAngleInRadian As Double Dim centerpoint As Double Dim endAngleInRadian As Double startAngleInRadian=присвоить точку1 в Блоке 1 (Как сделать чтобы автоматом находилась эта точка?) centerpoint=присвоить точку2 (Как сделать чтобы автоматом находилась эта точка?) endAngleInRadian=присвоить точку3 в Блоке 2 (Как сделать чтобы автоматом находилась эта точка?) Set arcObj = ThisDrawing.ModelSpace.AddArc(cente rPoint, startAngleInRadian, endAngleInRadian) End Sub |
18.01.2013, 15:02 | #18 | |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
startAngleInRadian-Это угол,и он либо расчитывается,либо либо строиться отрезок,и получаем его угол наклона
Цитата:
Точка в блоке,если она одна,определяется путем перебора примитивов этого блока. Если она не одна,то можно создать окружность с радиусом 1. Центр ее искомая точка. Центр описываемой окружности расчитывается по формулам из учебника геометрии. Волоски у Хоттабыча закончились. PS:Я работаю в 2008.конвертор качать и устанавливать желания нет. Стоимость макроса с вашим функционалом лежит в пределах 1,5к-2к руб
Анализ,обработка данных Недорого
|
|
21.01.2013, 09:33 | #19 |
Пользователь
Регистрация: 29.12.2012
Сообщений: 14
|
Ну хорошо может быть тогда просто подскажите с помощью какой команды отыскивать примитив в блоке?
|
21.01.2013, 13:11 | #20 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Код:
Анализ,обработка данных Недорого
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Вставка таблицы эксель в ворд | n0str0m0 | Microsoft Office Word | 3 | 22.05.2012 11:51 |
Вставка текстового блока методом object | toglyatty | HTML и CSS | 2 | 01.04.2012 18:17 |
Вставка втроки в связанную эксель таблицу | 95979 | Microsoft Office Access | 1 | 13.02.2012 12:19 |
Чертежи в автокаде | Lemo | Фриланс | 4 | 02.06.2010 06:37 |
Вставка блока DIV в шаблоне | Niсkname | HTML и CSS | 7 | 07.03.2009 16:27 |