[GWolf]

Добрый день Знатоки!

Ситуация: Приехали на объект вдвоем: один - меряет, другой записывает и рисует на листе бумаги трубу и соединяющие ее фитинги: отводы, углы, тройники, дифмуфты и т.п. Рисунок делается без масштаба, главное, записать размеры и соединительный элемент. Потом эти листы схемы долго и нудно обсчитываются: сколько трубы, фитингов ...

На дворе 21-й век а мы вот так ... Подскажите чего дописать в AutoCAD или готовую прогу для снятия факта на объекте (скажем в ноутбук), чтобы потом была и графическая схема, желательно 3D и спецификация - чего и сколько.

Учится, готов!
Заранее всем большое спасибо!

P.S. Написал в раздел Программирование. Если есть более подходящий, прошу переместить.

[kp+]

Autocad MEP тебе поможет! (или не поможет )

[GWolf]

Спасибо Вам kp+ за внимательное отношение к моей проблеме!

Только, хотелось бы узнать. А нельзя ли самому, осваивая AutoLisp сваять что-то узко специальное. Дело в том, что вентиляцией мы незанимаемся. Да и из всего набора инженерных сетей интересны только трубопроводы, выполненные из меди и нержавеющей стали. По следние для наружных сетей?

[Дима_]

Сообщение от GWolf Спасибо Вам kp+ за внимательное отношение к моей проблеме! Только, хотелось бы узнать. А нельзя ли самому, осваивая AutoLisp сваять что-то узко специальное.

можно - только по твоему первому, подсказать тебе что-то очень сложно, что-бы появилась программа - нужно знать что будет в исходных данных, что должно из них получиться - алгоритм этого действия, а далее либо писать самому, любо попросить здесь, либо в разделе "поиск исполнителей" - в зависимости от объема задачи.

[GWolf]

Сообщение от Дима_ можно - только по твоему первому, подсказать тебе что-то очень сложно, что-бы появилась программа - нужно знать что будет в исходных данных,

Думаю так: (Приложение должно решать задачу фиксации фактически "повешенной" на объекте кабель-канала и трубы в нем. Другими словами создание исполнительной схемы того чего смонтировано и спецификации (чего и сколько) использованных при этом материалов), как я уже писал, один меряет, другой вносит. Вносит следующим образом: из библиотеки выбирает наименование элемента, вводит его размеры. Для трубы - диаметр и длинну; короба кабель-канала - ширина, высота, длинна и т.д. А программа автоматически создает 3D образ элемента и стыкует его с предыдущим.
Предлагаю пока остановится на этой части задачи.

что должно из них получиться - алгоритм этого действия, а далее либо писать самому,

Предпочтительно - самому. Хотя я и несилен в FutoLisp, но с Вашей помощью, думаю эту задачу осилить! Итак, с чего начать?

любо попросить здесь, либо в разделе "поиск исполнителей" - в зависимости от объема задачи.

[Supermax]

Берем Автокад.
Берем библиотеку элементов с этого форума
и ... прямо на объекте ставим стол, пару стульев, запасаемся бутерами, соком, и собираем модель. Если элементы уникальны - слизываем их внешний вид и пополняем библиотеку форума.
Лучше заставить проектировщиков проект отмоделировать и уже готовую модель подправить по факту.

Есть еще лазерные штуки, которые могут дать объемную съемку. Но зачем? Разве фоток не достаточно? Я исполнительную на основе фоток уже делал и все культурно прокатило! Фотки можно через графические искажометры прогнать, так вообще как рисунок получается. Супер крутой рисунок!
Фотошоп кажись это умеет.
Кому нужна 3D модель уже сделанного? Для реконструкции? Так вводы зафиксируйте и усе. Все остальное заново моделируйте.

Рекомендую ознакомиться с 3D моделированием на практике. Процесс прост до слез.

[Pastor]

Слышал, что есть фактически готовое решение - ruCAD 3D. Спроси у ShaggyDoc, вдруг оно продается и недорого. Там прямо то, что нужно.
Можно и самому такое написать с нуля, но спроси у ShaggyDoc, сколько у него ушло времени на всё это. Если ты не силен в AutoLISP, то умножь этот срок хотя бы на два, если не силен в геометрии - ещё на два. Получишь ближайший теоретически возможный срок ввода в эксплуатацию своего мини-сапр. Думаю, цифры разочаруют.
Но если никуда не торопишься, то почему бы и нет.

[AlexV]

Сообщение от Pastor Слышал, что есть фактически готовое решение - ruCAD 3D. Спроси у ShaggyDoc, вдруг оно продается и недорого. Там прямо то, что нужно. Можно и самому такое написать с нуля, но спроси у ShaggyDoc, сколько у него ушло времени на всё это. Если ты не силен в AutoLISP, то умножь этот срок хотя бы на два, если не силен в геометрии - ещё на два. Получишь ближайший теоретически возможный срок ввода в эксплуатацию своего мини-сапр. Думаю, цифры разочаруют. Но если никуда не торопишься, то почему бы и нет.

Ну да, покупаете книгу "САПР на базе Autocad, и - вперед и с песнями... Авторы ее писали одновременно с кодом ruCAD, и времени у них на это ушло, наверное, не меньше года.. Даже если GWolfу нужна не столь масштабная прога, начать самому с нуля и получить на выходе что-то путное проблематично. Проблематично, мне кажется, именно с 3d, если бы нужна была программа, делающая 2-мерные схемы, ее можно было бы и самостоятельно со временем написать (используя полилинии с присвоенной xdata, блоки с атрибутами, не сложные базы данных с оборудованием и т.д.)..

[Дима_]

Ну если так хочешь изучить лисп - держи болванку - принцип следующий все уголки, тройники, краны, заглушки и пр. делаешь в виде блоков, в которых точка вставки - начало и содержаться два динамических параметра точки с именами "START" и "END" - END - окончание блока - START - точка на линии задающая дальнейшее направление, весь прокат (трубы) делаешь в виде блока сечения толщиной в 1 мм, параметры точки не требуются. Формирование трубопровода - при помощи этого:

Код:

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

(defun menu (name lvar); Выводит запрос name и выбор вариантов lvar, возвращает выбранный
(initget (apply 'strcat (mapcar '(lambda (x) (strcat x " ")) lvar)))
(getkword (strcat "\n " name "[" (apply 'strcat (mapcar '(lambda (x) (strcat x "/")) lvar)) "]"))
);end of menu
(defun tblnamelist ( tbl / obj lst) ;возращает список запрашиваемых объектов: "block","layer" итп.
(setq obj (tblnext tbl T))
(while obj (setq lst (append lst (list (cdr (assoc 2 obj)))) obj (tblnext tbl)))
lst
);end of blocknamelist
(defun getdynprop (obj); возращает список атомов свойств динамического блока
(if (and 
	obj 
	(= "INSERT" (cdr (assoc 0 (entget obj))))
	(= (vla-get-isdynamicblock (vlax-ename->vla-object obj)) ':vlax-true) 
);end of and
(mapcar '(lambda (obj) (cons 
(vla-Get-propertyname obj)
(vlax-variant-value (vla-Get-value obj))
);end of cons
);end of lambda
(vlax-safearray->list (vlax-variant-value
(vla-GetDynamicBlockProperties (vlax-ename->vla-object obj)))))
);end of if
);end of getdynprop
(defun c:truboproekt ( / v1 ang len block)
(setq v1 '(0 0 0) ang 0)
(while (/= block "Выход")
(setq block (menu "Выбирай" (append (cons "Направление" (tblnamelist "block")) (list "Выход"))))
(if (= block "Направление")
(setq v1 (getpoint "Начальная точка") ang (angle v1 (getpoint v1 "Направление")))
(if (/= block "Выход")
(if (= (substr block 1 1) "X")
(progn
(setq len (getdist "Введите длинну "))
(entmakex (list (cons 0 "insert") (cons 2 block) (cons 10 v1) (cons 41 len) (cons 50 ang)))
(setq v1 (polar v1 ang len))
);end of progn
(setq 	len (entmakex (list (cons 0 "insert") (cons 2 block) (cons 10 v1) (cons 50 ang)))
	len (getdynprop (entlast))
	v1 (polar v1 (+ ang (angle '(0 0 0) (list (cdr (assoc "END X" len)) (cdr (assoc "END Y" len))))) (distance '(0 0 0) (list (cdr (assoc "END X" len)) (cdr (assoc "END Y" len)))))	
	ang (+ ang (angle (list (cdr (assoc "START X" len)) (cdr (assoc "START Y" len))) (list (cdr (assoc "END X" len)) (cdr (assoc "END Y" len)))))
);end of setq
)))end of if*3
);end of while
);end of truboproekt

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