[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)