[ACarin]

Здравствуйте.

Дана огромная матрица. Необходимо конвертировать все квадраты на ней в полилинии длиной и шириной 0.003

Матрица огромная, попытка сделать все и сразу вешает автокад. Даже при попытки сделать одну десятую матрицы все виснет.

Нужна помощь, буду признателен.

[Profan]

А если сделать массивом из одного отрисованного полилинией квадрата новую матрицу?

[hwd]

Сообщение от Profan А если сделать массивом из одного отрисованного полилинией квадрата новую матрицу?

Судя по ответу, файл вы не открывали.

2 ACarin
В подобных ситуациях не следует пытаться обработать всё сразу. Следует программно выделять маленькими партиями и обрабатывать их. Например в цикле обрабатывать одну колонку. После того, как колонку обработаете - сбрасываете выбранный набор, дабы он не рос как снежный ком и берётесь за следующую. Это будет долго, но, скорее всего, на данный алгоритм памяти вашему компьютеру должно хватить.

Ради интереса я попробовал запустить команды расчленения и конвертации в полилинии сразу для всех объектов вашего массива - получилось, но при этом комп скушал все 6 Гигов памяти + на конвертацию и последующую отмену выбора ушло почти пол часа (пока я завтракал). Задать толщину линии равной 0.003 вы не сможете, т.к. у автокада существует чётко определённый набор допустимых толщин линий и 0.003 в него не входит.

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

И последнее - если не секрет, что это вообще такое? Просто "от балды" надуманная преподавателем проблема на тему "сферического коня в вакууме"?

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

Представленный код обработал весь массив в течении примерно 2 минут. AutoCAD 2008 Eng + SP1, Windows XP Pro 32 bit SP3, 2GB RAM.

Код:

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

(vl-load-com)

(defun test (/ adoc *error* _kpblc-conv-ent-pline-vertex-to-wcs selset coord mid elist new_ent width)

  (defun _kpblc-conv-ent-pline-vertex-to-wcs (ent / elevation normal)
                                             ;|
*    Функция получения координат легкой полилинии (LWPOLYLINE) в WCS. Возвращает
* список 3Д-точек
*    Автор: BOZ (http://www.autocad.ru/cgi-bin/f1/board.cgi?t=26461HC)
*    Оригинальный код:
(defun lwpoly_vert (lwpoly / plinee elev vnv)
  (setq	plinee (entget lwpoly)
	elev   (cdr (assoc 38 plinee))
	vnv    (cdr (assoc 210 plinee))
	) ;_ end of setq
  (mapcar
    (function (lambda (x) (trans (list (cadr x) (caddr x) elev) vnv 0)))
    (vl-remove-if-not (function (lambda (x) (= (car x) 10))) plinee)
    ) ;_ end of mapcar
  ) ;_ end of defun
*    Параметры вызова:
*	ent	ename-указатель на LWPOLYLINE (контроля не производится)
*    Примеры вызова:
(_kpblc-conv-ent-pline-vertex-to-wcs (car (entsel)))
|;
    (setq elevation (cdr (assoc 38 (entget ent)))
          normal    (cdr (assoc 210 (entget ent)))
          ) ;_ end of setq
    (if (not elevation)
      (setq elevation 0.)
      ) ;_ end of if
    (mapcar '(lambda (x) (trans (list (cadr x) (caddr x) elevation) normal 0))
            (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))
            ) ;_ end of mapcar
    ) ;_ end of defun

  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ)
    ) ;_ end of defun

  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (setq width 0.003)
  (if (setq selset (ssget '((0 . "LWPOLYLINE") (90 . 4) (70 . 1))))
    (progn
      (foreach ent ((lambda (/ tab item)
                      (repeat (setq tab  nil
                                    item (sslength selset)
                                    ) ;_ end setq
                        (setq tab (cons (ssname selset (setq item (1- item))) tab))
                        ) ;_ end repeat
                      ) ;_ end of lambda
                    )
        (setq coord   (_kpblc-conv-ent-pline-vertex-to-wcs ent)
              mid     (mapcar
                        (function
                          (lambda (a1 b1)
                            (* 0.5 (+ a1 b1))
                            ) ;_ end of lambda
                          ) ;_ end of function
                        (car coord)
                        (caddr coord)
                        ) ;_ end of mapcar
              elist   (entget ent)
              new_ent (entmakex
                        (list (cons 0 "LWPOLYLINE")
                              (cons 100 "AcDbEntity")
                              (assoc 410 elist)
                              (cons 100 "AcDbPolyline")
                              (cons 90 2)
                              (cons 70 0)
                              (cons 43 width)
                              (assoc 38 elist)
                              (assoc 39 elist)
                              (assoc 8 elist)
                              (assoc 210 elist)
                              (cons 10
                                    (list (- (car mid) (/ width 2.))
                                          (cadr mid)
                                          ) ;_ end of list
                                    ) ;_ end of cons
                              (cons 10
                                    (list (+ (car mid) (/ width 2.))
                                          (cadr mid)
                                          ) ;_ end of list
                                    ) ;_ end of cons
                              ) ;_ end of list
                        ) ;_ end of entmakex
              ) ;_ end of setq
        (entdel ent)
        ) ;_ end of foreach
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Код не универсальный и многие вещи может обработать неверно (так, например, не учитывается вариант "поворота" квадрата). Для немировых систем координат не проверял.

[Profan]

Действительно, файл я не открывал... И не буду открывать, раз там нужны квадраты с размером 0.003.

[Александр Ривилис]

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

Не путай вес линии и ширину полилинии. Ширина полилинии может быть любой.

[hwd]

Сообщение от Александр Ривилис Не путай вес линии и ширину полилинии. Ширина полилинии может быть любой.

да, я невнимательно прочитал - там вообще длина и ширина квадрата...

[Дима_]

Сообщение от ACarin Здравствуйте. ...Матрица огромная, попытка сделать все и сразу вешает автокад. Даже при попытки сделать одну десятую матрицы все виснет...

А как Вы пытались конвертировать? Там пол миллиона квадратиков - не такая и большая.

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

В коде, который сделал я, есть некоторое количество принципиальных ошибок. Интересно, кто-нибудь их озвучит?

[Do$]

Не вижу там ничего принципиального, кроме как излишне сложное получение точек вершин полилиний!
Вот так:

Код:

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

  (defun _tmp-get-pline-pt (pline)
    (mapcar (function cdr)
     (vl-remove-if-not
       (function (lambda (paar) (= (car paar) 10)))
       (entget pline)
     ) ;_ end of vl-remove-if-not
    ) ;_ end of mapcar
  ) ;_ end of defun

и достаточно В разы быстрее обработает! Текущая СК и так WCS, полилинии тоже в ней нарисованы.
Кстати, entget дважды выполняется - один раз в функции получения координат, второй раз запоминается в переменной elist. Можно было б переделать, чтоб единожды выполнялось.
А, вот еще что, если уж мы используем точку в WCS, то, по-хорошему, при построении полилинии ее надо как-то перевести обратно в СК полилинии (это которая mid). Но опять же, для представленного чертежа это не принципиально...

А как Вы пытались конвертировать? Там пол миллиона квадратиков - не такая и большая.

Когда я попытался просто выделить рамкой эту матрицу, мой AutoCAD завис намертво

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

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

[Do$]

Хех, а ведь действительно!

[Дима_]

Сообщение от Do$ Когда я попытался просто выделить рамкой эту матрицу, мой AutoCAD завис намертво

У меня 2010 проснулся черезнесколько секунд - но вопрос не в этом - завист-то он из-за того что пытался ваше "выделение" отобразить - это действительно дольше нежили преобразовать их (как это на первый взгляд не странно - но прикинте сами скольеко нужно расчетов для преобразования, а сколько для отображения ручек на каждом). "тупое" ssget "_a" создает набор за секунды (вместе с переводом в список - оттуда я и узнал сколько элементов), а дальше простой mapcar (он императивный и память жрать не будет, хотя в нормальных реализациях лиспа (не авто лиспа) и рекурсивно все пройдет) справиться на ура.

[ACarin]

Огромное спасибо, Кулик Алексей aka kpblc

Это, в своем роде, матрица нулей и единиц для лазера.