Подскажите в чём лучше отрисовывать 3D трубопроводы

{Smirnoff} · 28.09.2005, 16:18

Желательно бесплатные програмки, потому как у нас в конторе нельзя ничего нелицензионного.

И еще если возможно поделитесь приёмами работы, т. к. я в этом деле пока новичок. Чертить надо спринклерные системы.

С черчением линиями и полилиниями никаких проблем нет. А вот с реальными диаметрами труб солидами, хотелось бы послушать советов.
Пока попробывал 2-ва способа:

1. Трубы в виде блоков их цилиндрического солида и менять их масштаб по оси X.

2. Отрисовывать направляющие и делать Extrude.

Везде есть свои плюсы и минусы. С блоками конструкция "легкоразборная" если надо вносить изменения, а с экструдом получается быстрее однако не совсем удобно потом это всё менять. Приходится или заново отрисовывать или резать c помощью Slice и что-то перерисовывать.

Кто вообще как работает?

Apelsinov · 28.09.2005, 16:40

Я только ссылочку - http://www.progman.fi/

И внизу этой странички - слева.

{Smirnoff} · 28.09.2005, 17:15

>Apelsinov

Спасибо. Надо наверное будет посмотреть демку какую. Правда насёт ссылки слева внизу, таковой не нашёл. Там адрес на любой странице всегда http://www.progman.fi/. Так что где искать именно ту которую ты посоветовал не знаю. А про возможности программы прочитал, с первого взгляда впечатляет.

Apelsinov · 28.09.2005, 18:30

да не там ссылочка а тут ...
незаметная такая внизу ЭТОЙ СТРАНИЦЫ на которую ты сейчас смотришь.

{Smirnoff} · 28.09.2005, 18:59

>Apelsinov
Теперь понял

и возможно даже будем участвовать.

А я вот пока лиспик накатал для быстрого превращения всевозможных линий в трубы, т. е. солиды, разом и много. Пока им и буду пользоваться.

Код:

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

(defun c:xpipe(/ 3DPOS ACTDOC ACTSP BASELINE BASESET
	      CIRENT DICOUNT DIVDID EXCIR EXDIA
	      OBJTYPE STARTPT XORD YORD ZORD OLDDIA
	      *ERROR*)
  (vl-load-com)

  (defun *error* (msg)
    (setvar "CMDECHO" oldEcho)
    (vla-EndUndoMark actDoc)
    (princ)
    ); end of *error*

  (if(not pipe:exDia)(setq pipe:exDia 40.0))
  (setq actDoc
	 (vla-get-ActiveDocument
	   (vlax-get-Acad-object))
	oldDia pipe:exDia
	oldEcho(getvar "CMDECHO")
	); end setq
  (vla-StartUndoMark actDoc)
  (setvar "CMDECHO" 0)
  (if(= 0(vla-get-ActiveSpace actDoc))
    (setq actSp(vla-get-PaperSpace actDoc))
    (setq actSp(vla-get-ModelSpace actDoc))
    ); end if
  (setq pipe:exDia
	 (getreal
	   (strcat
	     "\nSpecify pipe diameter <"(rtos pipe:exDia)">: ")))
  (if(null pipe:exDia)(setq pipe:exDia oldDia))
  (princ "\n+++ Select objects to extrude +++")
  (if
    (setq baseSet
	   (ssget '((-4 . "<OR")(0 . "*LINE")(0 . "CIRCLE")
			  (0 . "ARC")(0 . "ELLIPSE")(-4 . "OR>")
			  (-4 . "<NOT")(-4 . "<OR")(0 . "SPLINE")
		          (0 . "MLINE")(-4 . "OR>")(-4 . "NOT>"))))
    (progn
      (setq baseSet(vl-remove-if 'listp
                              (mapcar 'cadr(ssnamex baseSet))))
      (foreach pathEnt baseSet
      (setq baseLine
	     (vlax-ename->vla-object pathEnt)
	    objType(vla-get-ObjectName baseLine)
            startPt(vlax-curve-getStartPoint baseLine)
            3dPos
	     (vlax-curve-getFirstDeriv baseLine
	       (vlax-curve-getParamAtPoint baseLine startPt))
           diCount(strlen
		      (itoa
			(apply 'max
			 (mapcar 'abs
			  (mapcar 'fix startPt)))))
	    divDid "1"
	    ); end setq
      (repeat diCount
	(setq divDid(strcat divDid "0"))
	); end repeat
      (setq divDid(atoi divDid))
      (if(/= 0.0(car 3dPos))
	(setq XOrd(/(car 3dPos)divDid))
	(setq XOrd (car 3dPos))
	); end if
      (if(/= 0.0(cadr 3dPos))
	(setq YOrd(/(cadr 3dPos)divDid))
	(setq YOrd (cadr 3dPos))
	); end if
      (if(/= 0.0(nth 2 3dPos))
	(setq ZOrd(/(nth 2 3dPos)divDid))
	(setq ZOrd (nth 2 3dPos))
	); end if
      (setq 3dPos(list XOrd YOrd ZOrd))
  (setq exCir(vla-addCircle actSp(vlax-3d-Point startPt)(/ pipe:exDia 2)))
  (vla-put-Normal exCir(vlax-3D-point 3dPos))
  (setq cirEnt(vlax-vla-object->ename exCir))
  (command "_.extrude" cirEnt "" "_p" pathEnt)
  (command "_.erase" cirEnt "")
   ); end foreach
      (setvar "CMDECHO" oldEcho)
      (vla-EndUndoMark actDoc)
       ); end progn
	   ); end if
    (princ)
    ); end  of c:xpipe

28.09.2005, 20:54

Я использую два способа.
1.Строить оси трубопроводов 3D-полилинией и использовать их как путь для экструдирования. Удлинять-укорачивать - через редактирование точек пути. Плюс - удобно вводить точки с клавы и очень сложный путь можно строить одной линией.
2. Окружность установить в нужное положение в пространстве (или рисовать в UCS) и атрибуту ТОЛЩИНА (thicknes) (не вес!) присвоить величину, равную длине трубы. Удлинять-укорачивать - через ту же толщину.

{Smirnoff} · 29.09.2005, 01:02

>Valery

Спасибо. До второго способа я недодумался, хотя он вроде лежал не поверхности.

Попробуй кстати лиспик, не надо тратить время на отрисовку окружности по которой будет проводится экструдирование и можно делать несколько труб сразу. Он кстати и сплайны тоже иногда экструдировал, а иногда нет

, поэтому я их убрал за ненадобностью и нестабильностью работы.

Вот немного доработанный вариант:

Код:

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

(defun c:xpipe(/ ACTDOC ACTLAY ACTSP BASELINE
	       BASESET CIRENT DICOUNT DIVDID
	       EXCIR LAYST OBJTYPE OLDDIA
	       OLDECHO STARTPT XORD YORD
	       ZORD *ERROR*)
  (vl-load-com)

  (defun *error* (msg)
    (vla-put-Lock actLay laySt)
    (setvar "CMDECHO" oldEcho)
    (vla-EndUndoMark actDoc)
    (princ)
    ); end of *error*

  (if(not pipe:exDia)(setq pipe:exDia 40.0))
  (setq actDoc
    (vla-get-ActiveDocument
      (vlax-get-Acad-object))
	actLay(vla-get-ActiveLayer actDoc)
        oldDia pipe:exDia
        oldEcho(getvar "CMDECHO")
   ); end setq
  (vla-StartUndoMark actDoc)
  (setvar "CMDECHO" 0)
  (if(= 0(vla-get-ActiveSpace actDoc))
    (setq actSp(vla-get-PaperSpace actDoc))
    (setq actSp(vla-get-ModelSpace actDoc))
    ); end if
  (setq laySt(vla-get-Lock actLay))
  (vla-put-Lock actLay :vlax-false)
  (setq pipe:exDia
    (getreal
      (strcat
        "\nSpecify pipe diameter <"(rtos pipe:exDia)">: ")))
  (if(null pipe:exDia)(setq pipe:exDia oldDia))
  (princ "\n<<< Select objects to extrude and press Enter >>>")
  (if
    (setq baseSet
      (ssget '((-4 . "<OR")(0 . "*LINE")(0 . "CIRCLE")
           (0 . "ARC")(0 . "ELLIPSE")(-4 . "OR>")
           (-4 . "<NOT")(-4 . "<OR")(0 . "SPLINE")
                (0 . "MLINE")(-4 . "OR>")(-4 . "NOT>"))))
    (progn
      (setq baseSet(vl-remove-if 'listp
                              (mapcar
				'cadr
				(ssnamex baseSet))))
      (foreach pathEnt baseSet
      (setq baseLine
        (vlax-ename->vla-object pathEnt)
       objType(vla-get-ObjectName baseLine)
            startPt(vlax-curve-getStartPoint baseLine)
            3dPos
        (vlax-curve-getFirstDeriv baseLine
          (vlax-curve-getParamAtPoint baseLine startPt))
           diCount(strlen
            (itoa
         (apply 'max
          (mapcar 'abs
           (mapcar 'fix startPt)))))
       divDid "1"
       ); end setq
      (repeat diCount
   (setq divDid(strcat divDid "0"))
   ); end repeat
      (setq divDid(atoi divDid))
      (if(/= 0.0(car 3dPos))
   (setq XOrd(/(car 3dPos)divDid))
   (setq XOrd (car 3dPos))
   ); end if
      (if(/= 0.0(cadr 3dPos))
   (setq YOrd(/(cadr 3dPos)divDid))
   (setq YOrd (cadr 3dPos))
   ); end if
      (if(/= 0.0(nth 2 3dPos))
   (setq ZOrd(/(nth 2 3dPos)divDid))
   (setq ZOrd (nth 2 3dPos))
   ); end if
      (setq 3dPos(list XOrd YOrd ZOrd))
  (setq exCir
	 (vla-addCircle actSp
	   (vlax-3d-Point startPt)
	   (/ pipe:exDia 2)))
  (vla-put-Normal exCir(vlax-3D-point 3dPos))
  (setq cirEnt(vlax-vla-object->ename exCir))
  (command "_.extrude" cirEnt "" "_p" pathEnt)
  (command "_.erase" cirEnt "")
   ); end foreach
      (vla-put-Lock actLay laySt)
      (setvar "CMDECHO" oldEcho)
      (vla-EndUndoMark actDoc)
       ); end progn
      ); end if
    (princ)
    ); end  of c:xpipe

Кулик Алексей aka kpblc · 29.09.2005, 09:20

> {Smirnoff} : ИМХО, ИМХО... использование "thickness" дает только визуализационную картину. _.slice, _.union etc срабатывать не будут. Файл вроде как весить меньше немного должен, но имхо не в каждом случае можно применять назначение высоты объекта.

{Smirnoff} · 29.09.2005, 09:37

>kpblc

Не Thickness я использовать не буду. Это так для общего развития...

29.09.2005, 10:33

->kpblc
Да, использование "thickness" имеет много ограничений, невозможны булевы операции, но иногда этот способ - единственный выход из положения. Я часто таким образом делаю для интерьеров шторы, занавески, флаги. Рисуется волнистая полилиния, задается толщина и присваивается полупрозрачный метериал с узором - занавеска готова. Удобно моделировать листы шифера для крыш, стальные профили, рельсы, корешки книг на полках...

Кулик Алексей aka kpblc · 29.09.2005, 10:42

> Valery : так я и не говорю, что этот способ отстой. Просто он не всегда применим. Но если надо быстро и без рабочки набросать 3Д-модель, иногда он - спасение. Сам им пользовался во время проектирования зимних садов (на этапе согласования с заказчиком уже не ниточной схемы). Потом ущел с этого и стал 3Д гнать сразу - чуток помедленнее на момент "начала", но потом рабочку уже проще наваять мне было.

Apelsinov · 29.09.2005, 10:50

{Smirnoff} (ужасно не привычный ник)

если все это для спринклера, то имхо, там главное не трехмерка. Ведь нужно будет получать чертежи, по которым надо будет все это дело монтировать, так что , возможно, нужно обратить внимание на какие-то 2д разработки, если спец. ПО на 3д не по карману.

{Smirnoff} · 29.09.2005, 12:19

>Apelsinov

Цитата:

если все это для спринклера, то имхо, там главное не трехмерка.

Да видишь ли... Сейчас трёхмерку уже частенько просто требуют, потому что появляются и 3Д чертежи и "гибридные" варианты- планировка 2Д, а вот планы потолков с конструкциями и вентиляционными коробами в 3Д.

Да и удобно это. Сразу вычисляется длинна труб, количество арматуры. Насчет трудозатрат, они как я попробывал не на много больше, тем более что арматура очень ограниченная и стандартная.

Я вот как раз черчу такую систему в здании с арочными железобетонными перекрытиями длинной 24 метра, расстояние то от спринклера до перекрытия должно быть не более 150 мм. Очень удобно сразу видна длинна отводов чтобы они получались от перекрытия на нужном расстоянии. Так что я выбираю 3Д.

Кулик Алексей aka kpblc · 29.09.2005, 12:32

> {Smirnoff} : Я понимаю насчет лицензионности, но, может, попробовать поковырять ABS? А потом попытаться убедить руководство в том, что "это быстрее и проще".

Serg Ivanov · 05.10.2005, 17:14

А этим кто-нить пользуется?
http://dwg.ru/dwl/64

Aleksandrs · 05.10.2005, 18:00

Цитата:

Сообщение от Serg Ivanov

А этим кто-нить пользуется?
http://dwg.ru/dwl/64

Я пользуюсь. Очень доволен.

Rokky · 18.07.2006, 11:37

А нет пользователей AutoPlant Piping? Тоже хорошая программа для отрисовки 3Д трубопроводов + база данных различного рода оборудования.

АлексЮстасу · 28.02.2012, 20:41

Пардон, что дублирую свой ответ, т.к. ответил на аналогичный вопрос в ветке программирования, а тема не совсем программистская. Скорее - на готовое решение, которое наверное есть. (Но если заблокируют - не обижусь)
Та же проблема - нужно чертить трубы со скруглениями на углах поворота их траекторий.
Пошел по ссылкам и поиску, нашел англоязычную версию: 3dPolyFillet_eng.lsp в http://forums.autodesk.com/t5/Visual...p/td-p/1929298.
Программка может скруглить сразу все углы поворота траектории будущей трубы.
Там еще приложены лиспы вытягивания труб и цилиндров в одно действие по траектории. CURVE2CYLINDER.lsp и Curve2tube.lsp.
Но. Так пока и не нашел программку, соединяющую эти две процедуры - скруглить углы траектории и сразу построить трубу/цилиндр.
Может быть кто знает?

Versus · 29.02.2012, 23:33

Цитата:

Сообщение от АлексЮстасу

Пошел по ссылкам и поиску, нашел англоязычную версию: 3dPolyFillet_eng.lsp в http://forums.autodesk.com/t5/Visual...p/td-p/1929298.

The page you are trying to access was not found. Please check your URL for typos and try again.
и где их теперь там искать?

АлексЮстасу · 01.03.2012, 00:16

Да, со ссылкой ерунда какая-то была.
http://forums.autodesk.com/t5/Visual...p/td-p/1929298

28.09.2005, 16:18		#1
Подскажите в чём лучше отрисовывать 3D трубопроводы {Smirnoff} Инженер по системам безопасности Рига Регистрация: 23.11.2003 Сообщений: 1,099 Желательно бесплатные програмки, потому как у нас в конторе нельзя ничего нелицензионного. И еще если возможно поделитесь приёмами работы, т. к. я в этом деле пока новичок. Чертить надо спринклерные системы. С черчением линиями и полилиниями никаких проблем нет. А вот с реальными диаметрами труб солидами, хотелось бы послушать советов. Пока попробывал 2-ва способа: 1. Трубы в виде блоков их цилиндрического солида и менять их масштаб по оси X. 2. Отрисовывать направляющие и делать Extrude. Везде есть свои плюсы и минусы. С блоками конструкция "легкоразборная" если надо вносить изменения, а с экструдом получается быстрее однако не совсем удобно потом это всё менять. Приходится или заново отрисовывать или резать c помощью Slice и что-то перерисовывать. Кто вообще как работает?
Просмотров: 12430