[ssn]

может кто встречал макрос для простановки на отводах осевых линий?
иммем две дуги, по краям дуги соедены между собой. (рис 1)
надо выбрать одну дугу, потом вторую. между ними должна нарисоваться ось (рис 2).
в идеале надо что бы ещё макрос подрезал все линии которые пересекают замыкающие участки отвода (что бы ранее нарисованные оси прямых участков подрезались и примыкали к осям отавода (рис 3).

а то проставление осей на отводах пока самый затычный (не автоматизированный) участок при оформлении (кружок, обрезать, обрезать прямые оси.. муторно)

[Кулик Алексей aka kpblc]

Ищи "Новые инструменты для работы с полилиниями" - насколько я помню, там была отрисовка серединной линии.

[CRISTOFF]

А почему не используете Отводы по ГОСТ 17375-01 Исполнение 2? Всё уже проставлено! В этом же файле есть отводы исп. 1 (90 град).

[ssn]

история такая.
моделирую трубопроводы, потом оттиски в автокад.. и далее оформляю (расстановка размеров, осей, обозначений)
вообщем в автокаде имеем просто набор линий. прямые участки просто линии, отводы это дуги.

[Малевич]

Сообщение от ssn кружок, обрезать, обрезать прямые оси..

Обычный _fillet имеет такую особенность: если выбрать "радиус", но не задавать его в явном виде, а ткнуть два раза курсором - в точку цетра окружностей и на перп-ре к осевой линии, а потом опять взять "радиус", то его значение будет равно измеренному отрезку. Попробуйте, может устроит.

[Do$]

По мотивам предыдущего сообщения:

Код:

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

(setq arc1    (entsel "\nПервая дуга:")
      arc2    (entsel "\nВторая дуга:")
      rad-lst (mapcar '(lambda (a) (cdr (assoc 40 (entget (car a)))))
		      (list arc1 arc2)
	      ) ;_ end of mapcar
      rad     (/ (apply '+ rad-lst) 2)
) ;_ end of setq
(setvar "filletrad" rad)
(vl-cmdf "_.fillet")

[ssn]

идею понял.
только получается много движений. ведь можно ограничиться имеено выбором двух дуг.
а тут получается надо ещё выбрать две оси.
хотя уже лучше конечно

простите конечно, как этот лисп запустить. я понимаю что это функция которую можно куда то вписать, только я не силён в лиспе...

[Do$]

а тут получается надо ещё выбрать две оси.

О ужас

как этот лисп запустить

Сохранить в текстовый файл, дать ему расширение LSP и потом через _appload загрузить.
Способ поудобнее - закидываем файлик этот (предположим он называется center.lsp) в support-папку, и в комстроку вставляем:

Код:

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

(load "center.lsp")

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

[ssn]

не. это я понимаю. я не вижу команды, которой он запускается.
не вижу имя функции. вот я к чему

а про ужас.. ведь реально сделать в два клика.

[Олег (jr.)]

Если только дуги попробуй так

Код:

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

(defun C:ofa (/ *error* arc1 dst mp p1 p2 p3)
  
(defun *error*  (msg)
    (if
      (vl-position
	msg
	'("console break"
	  "Function cancelled"
	  "quit / exit abort"
	  )
	)
       (princ "Error!")
       (princ msg)
       )
    (setvar "apbox" 0)
    (princ)
    )
  
(setvar "apbox" 1)
(setvar "aperture" 5)
(if
  (and (setq p1 (getpoint "\nSelect first arc: ")
	p2 (getpoint "\nSelect second arc: ")
	p3 (osnap p2 "_perp")))
  (progn
    (setq arc1 (ssname (ssget p1) 0))
	  (setq dst (/ (distance p1 p2) 2)
	  mp (list (/ (+ (car p1)(car p2)) 2)(/ (+ (cadr p1)(cadr p2)) 2))
	  )
    (command "._offset" dst arc1 "_non" mp ""))
  )
(setvar "apbox" 0)
(princ)
  )

[ssn]

ага. ещё бы победить обрезание осевых линий (как на рис 2 - 3)
если не сложно, добавьте в макрос что бы он создавал ось на слое AXIS (ну либо на любом отличном от линий отвода). а то макрос офсетит основной линией... спасибо

[Олег (jr.)]

Это уж сам

[ssn]

чёрт чёрт чёрт. лисп очень не знаю.
придётся в ВБА городить огород
спасибо за помощь

[Малевич]

Сообщение от ssn только получается много движений. ведь можно ограничиться имеено выбором двух дуг. а тут получается надо ещё выбрать две оси.

Есть такое дело; но тыкать в оси всё равно придётся: прога сама не знает к чему применить полученный радиус. Удобнее, конечно, если значение сразу подставляется в _филлет, но лисп ещё запустить надо.
А с оффсетом, на мою чайниковскую имху, в засаду попадёте с автообрезанием.

[maratovich]

Сообщение от ssn моделирую трубопроводы, потом оттиски в автокад..

Вот Вам пример как надо делать, тогда ваши проблемы отпадут сами собой.

[ssn]

Сообщение от maratovich Вот Вам пример как надо делать, тогда ваши проблемы отпадут сами собой.

не. это не наш метод. я делаю оттиски (виды) с модели и это в все в инвенторе. на них эти отводы видимо будут с осями в основную линию. хотя конечно интересный способ.

я вот думал сделать такое
выбирать две дуги
определять координаты концов.
возможно строить временные отезки между концами
строить дугу по среднему между двух радиусов
оберазать её по временным отрезкам
обрезать по временным отрезкам все внутри дуг
удалять временные отрезки.

вот такая канитель.
единственно с моим знание ВБА это простая процедура растянется как не знаю что.

[maratovich]

Сообщение от ssn не. это не наш метод. я делаю оттиски (виды) с модели и это в все в инвенторе. на них эти отводы видимо будут с осями в основную линию. хотя конечно интересный способ.

Тут всё просто - делаем модель, потом с помощью "плоскснимок" или секущей плоскостью делаем виды, разрезы на которых все линии основные, на них автоматом получаем осевые линии. Перекидываем одну осевую на нужный слой с требуемыми параметрами, а далее с помощью копирования свойств делаем всё как надо. Быстро и легко. Заодно получаем готовую спецификацию с кучей необходимых данных.
А для того что Вы хотите у меня на кнопке висит макрос который делает осевую у отводов, но там обязательно надо чтобы дуги были мультилиниями и делает осевую тоже мультилинией с количеством точек =100. Данным методом не пользуюсь уже давно по причине использования метода указанного в примере.

[ssn]

инетесно как в автокаде получить кучу информаии с модели (спецификацию имею ввиду)

[maratovich]

Сообщение от ssn инетесно как в автокаде получить кучу информаии с модели (спецификацию имею ввиду)

См. пример - щелкни по блоку отвода. Выбери блок трубы растяни и посмотри что получилось (незабываем что для изменения атрибутов требуется регенерация или смена вида).

[Олег (jr.)]

Сообщение от ssn если не сложно, добавьте в макрос что бы он создавал ось на слое AXIS

Попробуй взамен, должно работать с любыми объектами

Код:

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

(defun C:ofa (/ *error* en dst osm ort mp p1 p2 p3)
  (vl-load-com)
(defun *error*  (msg)
    (if
      (vl-position
	msg
	'("console break"
	  "Function cancelled"
	  "quit / exit abort"
	  )
	)
       (princ "Error!")
       (princ msg)
       )
  (setvar 'osmode osm)
 (setvar 'orthomode ort)
    (princ)
    )
  
(setvar "apbox" 0)

 (setq osm (getvar 'osmode))
  (setvar 'osmode 512)
  (setq ort (getvar 'orthomode))
  (setvar 'orthomode 0)
(while
  (and (setq p1 (getpoint "\nSelect first object (or press Enter to exit): "))
	(setq p2 (getpoint p1 "\nSelect second object: "))
        (setq en  (ssname (ssget p2) 0))
	(setq p3 (vlax-curve-getclosestpointto en p1)))
  (progn
    (setq en (ssname (ssget p1) 0))
	  (setq dst (/ (distance p1 p3) 2)
	  mp (list (/ (+ (car p1)(car p3)) 2)(/ (+ (cadr p3)(cadr p3)) 2))
	  )
    
    (command "._offset" dst en "_non" mp "")
    (command "._chprop" (entlast) "" "_LA" "AXIS" "_LT" "CENTER" "_S" 1.0 "");<-- change scale here 
  )
  )
(princ)
  )

(prompt "\n")
(prompt "\n\t---\tType OFA to execute...\t---")
(prin1)

[ssn]

а разве блоки обрабатываются командами создания видов, разрезов? что то я пропустил. а длинна труб?

Олег (jr.) спасибо. работает. а что бы линия получалсь типом по слою надо просто убрать "_LT" "CENTER" из кода?
И ещё момент. Когда идёт запрос на выбор дуг курсор не меняет свой вид. Это не особо мешает когда про это помнить и поглядывать в ком строку. Но собственно почему он не меняется, ведь идёт запрос на выбор объёкта? Или запрос на выбор точки, и потом уже выбор объекта в точке?

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

ООО она и на прямых участках строит! круто. спасиб.

[maratovich]

Сообщение от ssn а разве блоки обрабатываются командами создания видов, разрезов? что то я пропустил.

Взорви блок и посмотри что там.

Сообщение от ssn а длинна труб?

А для этого нужно новую тему делать т.к. к этой не относится. Но скажу что уже 2 года получаю спецификацию из модели со всеми данными что мне необходимы и так как я хочу.

[ssn]

я понял. это конечно более продвинутый вариант чем просто солиды. но я от моделирования в автокаде отказался как только появился параметрический инвентор.. т.е. в году так 2005.
Затевать конечно споры не стану, ибо кому как удобнее.
С блоками конечно хорошо, вернее проще чем с обычными солидами. И я не понял, а как диаметр меняется у трубы или у отвода? или там другой блок?

[maratovich]

Сообщение от ssn а как диаметр меняется у трубы или у отвода? или там другой блок?

Да, для каждого диаметра свои блоки со своими характеристиками.

[ufo666]

Дак инвентор вроде рисовал оси у отводов. В версии 2012. Приходилось рисовать трубы с разными загигулинами. Но я их протягиванием сечения строил по траектории. Про модуль трубопроводный не помню.

[ssn]

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

[Jonas]

Может и не по теме но всё же.
Нужно рисовать осевые линии между двумя линиями.
Пробую код (см вложение), получается, но зависит от порядка выбора линий. Почему, не могу понять.
Почему то при вставке кода русский текс ломается.
Будьте добры, помогите наладить.


Всем спасибо. Наладил, Файл заменил.

[ssn]

испробовал макрос в работе. очень хорошо. одна досада - сбрасывает настройки привязок

[Сергей Богатов]

Установи Autocad MEP. Моделируй в 3D в MEP - там же и оформляй-образмеривай-считай_спецухи. Если надо передавай в Инвентор модель

[ssn]

да. как раз сейчас занимаюсь освоением Ревита. Он конечно поражает возможностями моделирования. Но чувствую что с оформлением там тоже западня, как и в инвенторе. вид что то вроде блока... добраться до конечной линии на чертеже можно, и видимость её выключить можно... только если надоснова включить эту видимость, то есть возможность только для всех скрытых. и по новой скрывать лишнее. проходили. знаем.
хотя (про ревит) пока не попробуешь полностью проект в нем сделать от начало до конца это не осознается.

[Сергей Богатов]

не Ревит!

Сообщение от Сергей Богатов Установи Autocad MEP

[ssn]

Ревит (последний, ну или предпоследний) как раз таки объёдинил в себе архитектуру, металлоконструкици и МЕР

[Сергей Богатов]

MEP (Mechanical-Electrical-Plumbing). А Revit и Autocad это разные вещи. Autocad Architecture (для архитекторов) , Robot+Structure Detailing (КМ+КМД?), MEP(Электрики+сантехники+ОВшники), PLANT 3D(технологи), Civil (генпланисты) объединяют всё и вся в "родной" для проектировщика среде в Автокаде. Не всё будет гладко, но можно кое-что сделать и при этом есть открытость и свобода Автокада.

[Astartes]

ssn, Эта тема не подойдет?
http://forum.dwg.ru/showthread.php?t=83128

[ssn]

Autodesk Revit = Autodesk Revit Architecture + Autodesk Revit Structure + Autodesk Revit MEP.
а есть ещё какой то МЕР?
Astartes за линк спасибо... не отыскал изначально.
так то у меня есть макрос что бы ставить оси между линиями и оси на окружностях. (свой на ВБА.. давно и корявенько написанный, но рабочий.. как раз таки выбор окружностей рамкой, если центра совпадают строит оси только для самого большой окружности, бисектиру между разными положениями линий. реализация реально корявая... сквозь терни. но работает ) впринципе все устравивает. не было только блока для рисования осей на отводах. теперь есть.

[Кулик Алексей aka kpblc]

Сообщение от ssn Autodesk Revit = Autodesk Revit Architecture + Autodesk Revit Structure + Autodesk Revit MEP.

Интересная трактовка... Посмотри на сьюты (полная информация есть на сайте Autodesk).

[ssn]

да. понял туплю. AutoCAD MEP и Revit MEP разные вещи.
а может кто сказать разные в чем? или это просто реализации одного и того же в разных продуктах? Типа ревит это комплексный подход что бы весь объект в одной программе (стройка и энергетика)?

[ssn]

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

[Кулик Алексей aka kpblc]

Вообще-то такой макрос я бы не стал использовать... Но, раз охота:

Код:

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

(defun c:osc (/ *error* p d sysvars)

  (defun *error* (msg)
    (foreach item sysvars
      (setvar (car item) (cdr item))
      ) ;_ end of foreach
    (princ msg)
    (princ)
    ) ;_ end of defun

  (setq sysvars (mapcar
                  (function
                    (lambda (x / tmp)
                      (setq tmp (getvar (car x)))
                      (setvar (car x) (cdr x))
                      (cons (car x) tmp)
                      ) ;_ end of lambda
                    ) ;_ end of function
                  '(("cmdecho" . 0)
                    ("osmode" . 512)
                    )
                  ) ;_ end of mapcar
        ) ;_ end of setq
  (setq p (getpoint "\nУкажите первую линию: "))
  (setvar 'osmode 128)
  (setq p1 (getpoint p "\nУкажите вторую линию: "))
  (setq d (distance p p1))
  (command "_offset" (/ d 2) p p1 "")
  (command "_.properties" "_L" "" "С" "осевые" "")
  (foreach item sysvars
    (setvar (car item) (cdr item))
    ) ;_ end of foreach
  (princ)
  ) ;_ end of defun

[ssn]

а чем он плох?
в жесткую привязан конечно к пользователю в плане настроек слоя... а в остальном. меня спасает