[natamoda]

Может не на тот форум забралась. Заранее простите. Непривычная область применения автокада. Использую поверхности для создания манекена фигуры по измерениям человека. Потом разворачиваю эти поверхности на плоскость с помощью детской японской программы по оригами и получаю выкройку. Программа развёртки примитивная. Может есть что-то получше?

[natamoda]

Отправляю чертёж манекена полностью. Точно знаю, что в районе лопаток одна поверхность на лицо, другая на изнанку.

[Елпанов Евгений]

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

Посмотрел все ваши чертежи, но они не смогли мне помочь, разобраться, в чем разница между лицевыми и изнаночными деталями. Разделите цветами или слоями изнаночные и лицевые детали, чтоб я смог с ними разбираться.

PS. А манекены красивые!

[natamoda]

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

[Елпанов Евгений]

Посмотрел, разобрался..
1. Если расчленить деталь, потом указав ее команде
изменения системы координат по объекту, то ось Z покажет где лицо у данной детали.
2. Написать программу, которая будет вычислять направление на лицо, допустим по первой ячейке сетки, довольно просто.
3. Написать программу, которая будет выворачивать детали, тоже не сложно.

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

[Елпанов Евгений]

2. Написать программу, которая будет вычислять направление на лицо, допустим по первой ячейке сетки, довольно просто.

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

3. Написать программу, которая будет выворачивать детали, тоже не сложно.

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

[natamoda]

Человеку с высшим гуманитарным образованием, который забыл таблицу умножения, сложно будет разобраться, но попробую перемножить векторы. Как только узнаю, что это такое. Спасибо.
Написать программу - это из области фантастики. Но попрошу прочитать ваш пост математика, может поможет.
Нам надо, чтобы все детали смотрели на лицо. И больше ничего. (Нет, ещё, чтобы развёртку делал автокад - но это на сегодняшний день нереально), поэтому - только первое желание.

[Елпанов Евгений]

Сообщение от natamoda Человеку с высшим гуманитарным образованием, который забыл таблицу умножения, сложно будет разобраться, но попробую перемножить векторы. Как только узнаю, что это такое. Спасибо. Написать программу - это из области фантастики. Но попрошу прочитать ваш пост математика, может поможет.

Напишу я вам, для меня это не сложно и дело не в образовании.

[natamoda]

Сообщение от Елпанов Евгений Напишу я вам, для меня это не сложно

Буду очень благодарна.

[Gecuba]

Евгений, тоже буду очень благодарна за объяснения.
Может проще будет просто рассказать как всегда строить только лицевую поверхность? И все остальное не понадобится - так как старые манекены с изнаночными поверхностями разворачивать может уже и не будем (уже развертки сделаны). А вот новые хотелось бы строить лицевыми.

[natamoda]

Сообщение от Елпанов Евгений Посмотрел, разобрался.. 1. Если расчленить деталь, потом указав ее команде изменения системы координат по объекту, то ось Z покажет где лицо у данной детали.

Евгений, гениально. Разобралась. Оказывается всё просто. Огромное спасибо.

[Елпанов Евгений]

Сообщение от natamoda Евгений, гениально. Разобралась. Оказывается всё просто. Огромное спасибо.

по поводу направления при рисовании, тоже все просто!
полученная сетка, если ее выделить, то в окне свойств можно переключаться между вершинами и будет видно как идут строки и вершины в каждой строке. Для того, чтоб лицо было со стороны взгляда, необходимо, чтоб ось строк была под углом от 0 до 180 градусов к оси столбцов. Другими словами, все подобно пиктограмме координатной сетки, где ось X - строки, а ось Y - столбцы. Вокруг оси Z можно крутить как угодно, но внутреннее расположение между осями останется тем же...

[Елпанов Евгений]

Тестируйте...

программа смены лица и изнанки:

Код:

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

(defun c:e1 (/ C L LX O)
 ;; By ElpanovEvgeniy
 ;; 11.02.2009
 ;; написано для темы
 ;; Программа для построения выкроек одежды
 ;; http://forum.dwg.ru/showthread.php?t=28562

 ;; программа e1 выворачивает вектор нормали в полигональной сетке (меняет лицо и изнанку),
 ;; для экспорта в другие программы.
 
 ;; (в автокаде, для полигональной сетки используется мировая система координат)
 (vl-load-com)
 (princ "\n Выберите полигональную сеть")
 (if (setq o (ssget "_+.:S:E" '((0 . "POLYLINE") (100 . "AcDbPolygonMesh"))))
  (progn
   (setq o (vlax-ename->vla-object (ssname o 0))
         c (vlax-safearray->list (vlax-variant-value (vla-get-coordinates o)))
         l nil
   ) ;_  setq
   (repeat (vla-get-mvertexcount o)
    (repeat (vla-get-nvertexcount o)
     (setq lx (cons (caddr c) (cons (cadr c) (cons (car c) lx)))
           c  (cdddr c)
     ) ;_  setq
    ) ;_  repeat
    (setq l  (cons (reverse lx) l)
          lx nil
    ) ;_  setq
   ) ;_  repeat
   (vla-put-coordinates
    o
    (vlax-safearray-fill (vlax-variant-value (vla-get-coordinates o)) (apply (function append) l))
   ) ;_  vla-put-coordinates
  ) ;_  progn
 ) ;_  if
 (princ)
)

Программа указывающая где лицо и где изнанка:

Код:

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

(defun c:e2 (/ A C O X)
 ;; By ElpanovEvgeniy
 ;; 11.02.2009
 ;; написано для темы
 ;; Программа для построения выкроек одежды
 ;; http://forum.dwg.ru/showthread.php?t=28562
 ;; программа e2 строит отрезок в направлении вектора нормали
 ;; первой ячейки полигональной сетки. Направление отрезка, показывает
 ;; сторону, с которой находится лицевая сторона сетки.
 ;; Отрезок строится красного цвета в слое "Vector_normal"
 (vl-load-com)
 (defun v_norm_2v (v1 v2)
  ;; Функция вычисления вектора нормали по двум векторам
  ;; By ElpanovEvgeniy
  ;; 12-10-2005
  ;; (v_norm_2v v1 v2)
  ;; (v_norm_2v '(5 10 0) '(1 2 3))
  ((lambda (a b)
    (mapcar (function (lambda (a1 b1 a2 b2) (- (* a1 b1) (* a2 b2))))
            a
            (cdr b)
            b
            (cdr a)
    ) ;_  mapcar
   ) ;_  lambda
   (list (cadr v1) (caddr v1) (car v1) (cadr v1))
   (list (cadr v2) (caddr v2) (car v2) (cadr v2))
  )
 ) ;_  defun
 (princ "\n Выберите полигональную сеть")
 (if (setq o (ssget "_+.:S:E" '((0 . "POLYLINE") (100 . "AcDbPolygonMesh"))))
  (progn
   (setq o (vlax-ename->vla-object (ssname o 0))
         c (vlax-safearray->list (vlax-variant-value (vla-get-coordinates o)))
         x (* (vla-get-nvertexcount o) 3)
   ) ;_  setq
   (entmakex
    (list
     '(0 . "line")
     '(62 . 1)
     '(8 . "Vector_normal")
     (setq a (list 10 (car c) (cadr c) (caddr c)))
     (mapcar
      (function +)
      (cons 1
            (v_norm_2v
             (list (- (nth 3 c) (car c)) (- (nth 4 c) (cadr c)) (- (nth 5 c) (caddr c)))
             (list (- (nth x c) (car c))
                   (- (nth (1+ x) c) (cadr c))
                   (- (nth (+ 2 x) c) (caddr c))
             ) ;_  list
            ) ;_  v_norm_2v
      ) ;_  cons
      a
     ) ;_  mapcar
    ) ;_  list
   ) ;_  entmakex
  ) ;_  progn
 ) ;_  if
 (princ)
)

[natamoda]

Сообщение от Елпанов Евгений Тестируйте...

Большое спасибо. Попробую разобраться. Возможно, не сразу. Найду помощников, которые бы мне всё это объяснили.

[Елпанов Евгений]

Отличная справка от Владимира Азарко aka VVA.
С картинками!
Как использовать лисп, опубликованный на форуме

[natamoda]

Сообщение от Елпанов Евгений С картинками!

Спасибо. Вы точно поняли мою суть. Инструкция в картинках - как раз то, что нужно.

[Gecuba]

Евгений, спасибо огромное за труд и за ссылку обучающую!
Загрузила программки, команды срабатывают.
Вопрос по поводу работы "Программы, указывающей где лицо и где изнанка" - она рисует красный отрезок в отдельном слое. На разных поверхностях они разной длины - 1,3, 0,7, 0,9 - это имеет какое-то значение?
Отрезки, направленные наружу, - лицевая поверхность.
Внутрь манекена - изнаночная.

Но после выполнения программы смены лица изнанки (e1) - программа (e2) все равно рисует отрезок внутрь - т.е. поверхность не сменила изнанку на лицо?

PS По длине кажется поняла - прога берет длину 3д грани определяемой поверхности.

[Елпанов Евгений]

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

[Елпанов Евгений]

Gecuba
Попробуйте скопировать деталь и проверить ее отдельно, что гарантированно проверить, куда строится отрезок и меняется ли лицевая сторона.
Если у вас не меняется направление в какой либо детали, выкладывайте деталь, буду разбираться...
ps. Вероятно, стоит отрисовывать несколько отрезков, чтоб однозначно было понятно, где лицо, а так же, удалять все предыдущие отрезки, при рисовании нового. Тогда, гарантированно уберется путаница. Что скажете?

[Gecuba]

Так и делала - определила, отрезок удалила, вызвала e1, выбрала сеть, нажала ентер (в командной строке при этом нет никаких сообщений - это правильно?), вышла из этой команды, вызвала е2 - опять строится отрезок в том же направлении.

[Елпанов Евгений]

Сообщение от Gecuba ... вышла из этой команды ...

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