[Red Nova]

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (Visual foxpro) программку типа суммирования столбцов списал у соседа (это уже в университете).
Не смотря на эте намерен научится писать программы для Автокада на лиспе, скачал книгу Хювенена, несколько примеров создания программ, но после получасового “смотрения” таких книг мое мышление явно притормаживает.
Решил пойти другим путем.
Нашел самый короткий лисп из моей коллекции, и прошу программистов с этого форума пошагово объяснить какой символ что означает. Надеюсь на вашу помощь.

Код:

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

(defun c:make-blocks-explodeable (/ adoc)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vl-catch-all-apply '(lambda () (vla-put-explodable blk_def :vlax-true)))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

_____________________________________________________________________________________________________________

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

[T.Bagdat]

gomer, видимо, с определённой кривизной рук даже в ctrl+C > ctrl+V можно запутаться
Попробовал ещё раз, и впрямь всё работает. Спасибо.

[Wolkodaw]

Добрый день! Возможно ли на лиспе сделать сортировку списка vla-объектов по координате х левого нижнего угла? Пробую функцией vl-sort, но как туда записать метод vla-GetBoundingBox, которая не возвращает значение, ума не приложу. Кто-нибудь может подсказать как можно сделать?

[P_S]

Wolkodaw, всё это есть в Help:
(vla-GetBoundingBox vla-obj 'MinPt 'MaxPt), и имеешь 2 переменные MinPt и MaxPt с присвоенными им значениями. Только апострофы поставить не забудь.

[Wolkodaw]

я в курсе может я не ясно выразился, но спрашивал не как пользоваться методом vla-GetBoundingBox, а как сортировать по 'MinPt список? а точнее по координате х левого нижнего угла список vla-объектов?

[P_S]

Хотя бы так: если lst - это список vla-объектов,

Код:

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

 (mapcar(function cadr)
 (vl-sort      
(mapcar '(lambda (x)(vla-GetBoundingBox x 'MinPt 'MaxPt)
	   (list (vlax-safearray->list MinPt) x))lst);mapcar
(function(lambda (e1 e2)(< (caar e1) (caar e2))))
);vl-sort
       );mapcar

[Wolkodaw]

Спасибо большое, а то вообще голову сломал, попробуем...

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

Или так:

Код:

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

 (defun test (/ selset)
  (setq selset (ssget)
        selset ((lambda (/ tab item)
                  (repeat (setq tab  nil
                                item (sslength selset)
                                ) ;_ end setq
                    (setq tab (cons (ssname selset (setq item (1- item))) tab))
                    ) ;_ end of repeat
                  ) ;_ end of lambda
                )
        ) ;_ end of setq
  (vl-sort
    (mapcar (function vlax-ename->vla-object) selset)
    (function (lambda (a b / minpa minpb maxp)
                (vla-getboundingbox a 'minpa 'maxp)
                (vla-getboundingbox b 'minpb 'maxp)
                (setq minpa (vlax-safearray->list minpa)
                      minpb (vlax-safearray->list minpb)
                      ) ;_ end of setq
                (< (car minpa) (car minpb))
                ) ;_ end of lambda
              ) ;_ end of function
    ) ;_ end of vl-sort
  ) ;_ end of defun

Но при условии одинаковых координат по Х результат может быть странноватым ))

[mihamster]

почитал форум, как понял "переменные во вне документном пространстве" такая, больная темка на данный момент)
у меня не совсем про это вопрос, но новую тему создать не решился)

возникло непонимание..
необходимо вынести во вне документное пространство переменную со списком характеристик примитива('ов).
но при попытках сделать это через vl-bb-set или vl-propagate выходит ошибка "неверный импорт\экспорт между док-ми <имя объекта......>"
возникает она из за наличия в списке пар с dxf-кодами -1 и 330.. т.е. в которых после кода стоит "<имя объекта.....>", если их убрать никаких проблем не возникает, и переменная со списком спокойно передается и считывается в другом документе.
подскажите, что это и с чем едят или направьте куда)

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

dxf reference - там написано, что в какой группе лежит.

[mihamster]

Я понимаю, что -1 это имя объекта.. 330 это id..
Этим данным запрещено передаваться в другие док-ты?

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

330 (по умолчанию) - указатель на "владельца" примитива.
Вообще говоря, я не очень понимаю, зачем надо хранить полное представление примитива во внедокументном пространстве. Может, проще выполнить нечто типа _.wblock в указанный файл, а в переменную просто загонять полное имя созданного файла? Ну и при необходимости его и обрабатывать.
P.S. Хотя для работы с неактивным документом можно и без этого обойтись.

[frostmourn]

mihamster, vl-princ-to-string не подойдёт? В таком виде передаётся.

[mihamster]

Действительно, сами имена объекта и id владельца мне в списке не нужны.
Но они неотъмлемая часть списка извлекаемого entget.
И получается проще их просто удалить.
Просто думал, может есть какая то хитрость или что то простое в решении.
Спасибо.

[skkkk]

Столкнулся в 2011-м Автокаде с такой незадачей: если в имени слоя присутствует знак диаметра, то при обращении к этому имени лисп видит вместо знака диаметра вопросительный.
В связи с этим, обращение к этому слою через имя провоцирует ошибку. Например:

Код:

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

 (vla-get-Lock 
	(vla-Item 
		(vla-get-Layers (vla-get-ActiveDocument (vlax-get-acad-object)))
		(vla-get-Layer (vlax-ename->vla-object (car (entsel))))))

; ошибка: Ошибка Automation. Ключ не найден

Я понимаю, что не стоит использовать подобного рода знаки для именования слоев, особенно, если я хочу работать программно с этим файлом, однако имеем то, что имеем, и всё же: как можно в таком случае проверить на блокировку слой выбранного объекта?

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

Нну... Полагаю, тут дело в "нехватке" стандартной кодировки.

[skkkk]

Алексей, ты меня загнал в ступор еще больше. Что мне теперь делать с этим знанием?

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

Не использовать символы типа диаметра )))

[skkkk]

А мыслей, как обратиться к слою некоего объекта, НЕ через его (слоя) имя у тебя нет?

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

Без файла и конкретной задачи - пока нет.

[skkkk]

Это можно. Оставил в файле только то, что лаконично необходимо и достаточно для понимания смысла, который вложил во все это автор. Теперь мне приходится программно работать с объектами на таких слоях, вот в частности мой код несколькими постами выше не срабатывает.