[miha]

Устал от ручной укладки деталей (судостроение) на листы. Давеча попробовал AutoNEST.Слегка разочарован.Есть ли мнения и предложения по этой программе и раскрою в целом?

[Миттрич]

AutNEST? А что за прога? Где-то её можно "потрогать за всякое"?
И пообщаться по поводу раскроятоже не мешало б.

[miha]

Autonest можно скачать в www.freecadapps.com. Это приложение к ACAD 20006.Пробуйте, жду отзывы...Готов потолковать о раскрое в целом-мое "мыло" есть в форуме.

[Миттрич]

Спасибо за ссылку. Качнул. Посмотреть буду. Но там написано что не 2006, а под 2002? Но у меня оба стоят, так что проверю.
Насколько я понял, ты свои судотроительные(?) деталюхи раскладываешь по листам? А на чём кроите?(раскраиваете)?

[VVA]

Вот еще по раскрою, может что подойдет.
http://elecran.com.ua/index.php?pagename=magazine3.php
http://instrum2.narod.ru/index.ht
http://softsklad.ru/science/saprs/3programs1.html
http://www.technos.mk.ua/rus/

[miha]

МИТТРИЧУ.Мучался с Inet-так и не понял отправил ли тебе письмо на мыло. На вс.случай дублирую.
Что-то некорректно обозначилось имя сайта в форуме DWG.RU, но запускается именно он-FREECADAPPS.COM. На глав странице через поисковик находим AUTONEST. Там предлагают к загрузке прогу AUTONEST 2006. Готов обсудить проблемы раскроя. Сначала недостатки Autonest применительно к моей работе.
1.Игнорируются к использованию внутренние замкнутые области
2.нерационально укладываются детали в целом ( использую лист на 77% при ручной раскладке , а прога-на 60%)
2а.детали типа полуколец укладываются вообще безобразно-как бы описанные прямоугольным контуром.
3.невозможно размещать детали в несколько шагов (напр.-по мере их поступления) приходится либо переукладывать весь лист, либо назначать внутри листа на свободном месте строго прямоугольную область.
4.необходимость предварительно создавать массивы повторяющихся деталей-тоже не в пользу программы,хотя и не очень затруднительно….
Детали режем газом на машине VANAD ПРОКСИМА 250
А что это за беда,что вместо текста в сайте печатаются нули?

[Миттрич]

Не, всё нормально. С нулями разобрался. Я ж говорю - качнул.
==========
Вся беда с подобными программами заключается в том, что для получения результата, лучшего, чем руками, требуется достаточно сложный математический аппарат описания регионов (замкнутых контуров). Прямоугольниками проще оперировать в плоскости листа и при необходимости уложить "отзеркаленую" модель (хотя, по моему, такого не делает ни один "раскройщик") не оч сложно назначить ось (плоскость) зеркала программно. По моему глубокому убеждению, уровень плотности раскроя увеличивается в зависимости от того насколько сложной ломаной линией аппроксимируется контур детали. Соответственно усложняется математика расчёта. И так по нарастающей. Попробуйте, для прикола, формализовать свои действия при анализе и раскладке. Особенно при анализе. Весело будет. Процесс творческого "почёсывания тыковки".
Я отправляю свое творчество на лазерный раскрой. Там технологи пользуются софтом, приложенным к оборудованию, на базе, кстати, ACADа. Станок по-моему "Bystronic" :roll:
Так вот там укладка на автомате достаточно плотная. Но руками, один чёрт, правят. И программулина "проприеритарная". Х@@ с@@@@@шь, то есть не дают и не проси. Поскольку до количества твоего металла дела нет, по большому счёту, никому приходится наиболее ответственные деталюхи вручную "намазывать на лист" .
Причём, мы сравнивали, у меня получается плотнее . ( Я их сделал!!!)
Другое дело что первоначальную наброску, из которой потом должны "вырости руки" автоматом делается быстрее и автоматически учитываются т.н. зоны безопасности между деталями.

[Миттрич]

to VVA:
За ссылки спасибо!
Посмотрим и их тоже.

[miha]

Autonest изначально требует, чтоб ему подавали либо замкнутые полилинии, либо блоки. Раскладка деталей типа полуколец несколько улучшилась, когда дуги были преобразованы в полилинии, а весь контур не был сблокирован (остался замкнутой полилинией).Подозреваю,что программа станет весьма хороша,если ее уговорить читать и понимать регионы (области).Но не дружу с программированием. Может быть кто-нибудь из профи сможет сие сделать?
Благодарю VVA за ссылки -возможно будут полезны.

[VVA]

Подозреваю,что программа станет весьма хороша,если ее уговорить читать и понимать регионы (области).

Регионы можно расчленить, а полученные линии и дуги собрать в полилинии _pedit _multiple

[miha]

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

[Миттрич]

to МИХА:
VVA прав- сначала разбомбить, а потом объеденить в полилинию. Это решается просто. Я попробую, если получится, на одну кнопку повесить эти операции. Купил книжку, написанную Vova, сейчас разбираюсь. А внутренние области сделать понимаемыми программно для раскроя, т.е. что в них можно чего-либо вставлять - это как раз и относится к математике. Прежде чем программировать, надо знать какой алгоритм опишет этот анализ - поиск и определение областей свободных для размещения.

[miha]

Миттричу
Спасибо,что конкретно определил задачу, а то я все чисто на интуиции,увы.Честно признаюсь,что не понял каким образом преобразование региона в плайн может нам помочь. Что же касается собственно техники преобразования регион-плайн и (или)обратно,то есть стандартная команда(кнопка) boundary. Она еще и тем хороша,что строит замкнутый плайн или создает регион, игнорируя "хвосты" (пересечения) в исходном контуре.

[VVA]

Я попробую, если получится, на одну кнопку повесить эти операции.

Вот лисп.

Код:

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

(defun C:EXP_REGION ( / adoc axss el ssnab en item lays lay lock)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq lays (vla-get-layers adoc))
  (vla-startundomark adoc)
  (setq el (entlast))
  (setq ssnab (ssget "_X" '((0 . "REGION"))))
  (while (and ssnab (> (sslength ssnab) 0))
    (setq en (ssname ssnab 0))
    (setq item (vlax-ename->vla-object en))
    (setq lay (vla-item lays (vla-get-layer item)))
    (if (= (vla-get-lock lay) :vlax-true)
      (progn (vla-put-lock lay :vlax-false) (setq lock (cons lay lock))))
    (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-explode (list item))))
      (vla-Delete item))
    (ssdel en ssnab))
  (if el
    (progn
       (setq ssnab nil ssnab (ssadd))
       (while (setq el (entnext el))(ssadd el ssnab))
       (if (> (sslength ssnab) 0)
          (command "_pedit" "_multiple" ssnab "" "_y" "_Join" "" "")
       )))
  (if lock (foreach x lock (vla-put-lock x :vlax-true)))
  (vla-endundomark adoc))

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

[VVA]

Вот новая версия, преобразует эллипсы и круги в полилинии
Сплайны пока оставляет

Код:

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

(defun C:EXP_REGION ( / adoc el ssnab en item lays lay lock pell ptcen)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq lays (vla-get-layers adoc))
  (vla-startundomark adoc)
  (setq el (entlast))
  (setq ssnab (ssget "_X" '((0 . "REGION"))))
  (while (and ssnab
	      (> (sslength ssnab) 0))
    (setq en (ssname ssnab 0))
    (setq item (vlax-ename->vla-object en))
    (setq lay (vla-item lays (vla-get-layer item)))
    (if (= (vla-get-lock lay) :vlax-true)
      (progn (vla-put-lock lay :vlax-false) (setq lock (cons lay lock))))
    (if (not (vl-catch-all-error-p 
           (vl-catch-all-apply 'vla-explode (list item))))
      (vla-Delete item))
    (ssdel en ssnab))
  (if el
    (progn
       (setq ssnab nil ssnab (ssadd))
       (setq pell (getvar "PELLIPSE"))
       (setvar "PELLIPSE" 1)
       (while (setq el (entnext el))
	 (setq en (vlax-ename->vla-object el))
	 (setq item (vla-get-ObjectName en))
	 (cond ((= item "AcDbCircle") ;_"AcDbSpline"
		(setq ptcen (vlax-safearray->list
		   (vlax-variant-value (vla-get-center en))))
(command "_ellipse" "_C" ptcen (polar ptcen 0 (vla-get-radius en)) "_R" 0)
(vla-put-Layer (vlax-ename->vla-object (entlast)) (vla-get-Layer en))
(vla-put-Linetype (vlax-ename->vla-object (entlast))(vla-get-Linetype en))
(vla-put-LineWeight (vlax-ename->vla-object (entlast)) (vla-get-LineWeight en))
		(vla-Delete en)
		)
	       ((= item "AcDbEllipse")
		(setq ptcen (vlax-safearray->list
		      (vlax-variant-value (vla-get-center en))))
		(command "_ellipse" "_C" ptcen
		  (mapcar '+ ptcen
		     (vlax-safearray->list
		      (vlax-variant-value (vla-get-MajorAxis en))))
		  (mapcar '+ ptcen
		    (vlax-safearray->list
		      (vlax-variant-value (vla-get-MinorAxis en)))))
(vla-put-Layer (vlax-ename->vla-object (entlast)) (vla-get-Layer en))
(vla-put-Linetype (vlax-ename->vla-object (entlast))(vla-get-Linetype en))
(vla-put-LineWeight (vlax-ename->vla-object (entlast)) (vla-get-LineWeight en))
		(vla-Delete en)
		)
	       ((= item "AcDbSpline") nil );_Нужно ли?
	       (t (ssadd el ssnab))
	       )
	 )
       (if (> (sslength ssnab) 0)
          (command "_pedit" "_multiple" ssnab "" "_y" "_Join" "" "")))
      (setvar "PELLIPSE" pell)
    )
  (setq ssnab nil)  
  (if lock (foreach x lock (vla-put-lock x :vlax-true)))
  (vla-endundomark adoc)
  (princ "\nПреобразование Регионов завершено")
  (princ))

[Миттрич]

to miha:
Просто у них разные свойства, у региона и у полилинии. Соответственно и разные методы обработки. Я, отправляя на раскрой, делаю операцию _copy fase. Порученный РЕГИОН технолог потом взрывает и преобразует именно в полилинию. На самом деле можно и это сделать самому, уменьшив время технологической обработки, НО ...
отправляя кучку деталей размером метров в двадцать (регионы, в форматеDXF), соответственно получая их преобразованим солидов перед этим, достаточно несложно заблудиться ненамеренно в ПСК. И открывая их в своём пакете и взорвав, технолог видит кучу-малу примитивов, если ПСК не совпадала с мировой. Соответственно звонит мне и задаёт вопросы. Т.е. получается двойная проверка.
И к слову: для того чтобы понять разницу между регионом и полилинией представте себе ФИГУРУ "круг" и ОКРУЖНОСТЬ. разница между ними заключается в отсутствии у окружности свойства "площадь". А у круга соответствнно нет МАТЕМАТИЧЕСКОЙ формулы для его построения. Вот площадь-то и не нужна при построении ПУТИ режущего инструмента (головки резака). Также не нужна она и при автоматической раскладке деталей. Вот тут-то собака и порылась! Свойство "площадь" пропало, а для того чтобы определить свободные зоны для доп вставки деталей именно она и нужна!

[Миттрич]

to VVA:
Ещё раз спасибо! За ЛИСПы.
Попробую их, только предварительно поковыряюсь. Язык вспомнить надо - изучал когда-то... :wink:
а можно Вас загрузить задачей не по теме? ЛИСП для разворота солида не заданный угол относительно аданного центра и перенос полученного солида на заданное растояние по одной из координат ( к примеру - Z) ? И так зданное количество раз?
Заранее спасибо? :roll:

[VVA]

1. Разворот в смысле поворот?
2. Заданное кол-во раз - выберите солид, укажите центр, укажите угол, укажите расстояние или только перенос?

[Миттрич]

1. Ага.
2.Диалог в командной строке должен выглядеть таким образом:
-укажите солид.
-укажите ось поворота (XY, ZX, YZ )
-укажите точку вращения
-укажите угол поворота
-укажите направление перемещения полученного солида (при копировании с поворотом) (вдоль оси: Z, X, Y)
-укажите расстояние переноса вдоль указанной оси.
(Или все эти параметры могут задаваться одной сторокой, через разделитель)
После завершения диалога должно быть построено заданное количество солидов повёрнутых каждый следующий относительно предыдущего на заданный угол в заданной плоскости и перемещённых каждый следующий относительно предыдущего на указанное расстояние вдоль указанной оси. :shock:

[VVA]

-укажите ось поворота (XY, ZX, YZ )

Это наверно плоскость, в которой будет указана точка вращения и угол?. Солид лежит в этой плоскости? Если плоскость YZ, то направление перемещения X?