[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

_____________________________________________________________________________________________________________

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

[koMon]

Сообщение от Red Nova Хотелось бы без regen

без регена штатной командой построения мвыноски ятд не получится.
но можно:
1. если рисовать выноску
2. рисовать мвыноску без использования штатной команды.
3. убрать реген и делать его принудительно по надобности.

[Red Nova]

koMon Можно, но не хочу так . Если не найду решение просто буду использовать динамический блок с атрибутом вместо выноски. Ранее так и делал, такой истории как с выноской не было. Любая комбинация полей работает адекватно в атрибуте.

[Ingpro]

not relevant

[===AAA===]

Попробуй двойной (entdel) для (entlast).
Объект - возможно - восстановится уже правильно отрегенерированным.
И это довольно быстро.

[Moi Imena]

я задал переменную LL содержащую выборку объектов
(setq LL (ssget "X"))
далее выбираю эти объекты
(sslength LL)
и применяю пользовательскую команду BURST
(C:BURST)
команда выдает ошибку что в качестве выбранных объектов ожидает
*Invalid selection*
Expects a point or Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/Previous/Undo/AUto/SIngle

со стандартными командами отлично получается выбрав заранее или выбрав как аргумент команды
подскажите как быть с пользовательскими командами ?

[koMon]

Сообщение от Moi Imena далее выбираю эти объекты (sslength LL)

(sssetfirst nil ll)

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

Сообщение от Moi Imena я задал переменную LL содержащую выборку объектов (setq LL (ssget "X")) далее выбираю эти объекты (sslength LL) и применяю пользовательскую команду BURST (C:BURST) команда выдает ошибку что в качестве выбранных объектов ожидает *Invalid selection* Expects a point or Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/Previous/Undo/AUto/SIngle со стандартными командами отлично получается выбрав заранее или выбрав как аргумент команды подскажите как быть с пользовательскими командами ?

Насколько я помню, надо применять функцию (burst). На форуме где-то в глубинах был разбор подобных задач, ЕМНИП.

[Moi Imena]

Здраствуйте, подскажите пожалуйста почему используя autolisp при попытке применить команду EXPLODE к объетам типа REGION команда не срабатывает с ответом "The object is not able to be exploded". Сам код:
(ssget "X" '((0 . "REGION")))
(command "_.EXPLODE" ss "")
При этом если вызвать (command "EXPLODE" (ssget "X" '((0 . "REGION"))) "") команда тоже не сработает
При этом если вызвать команду EXPLODE из autocad то все работает, даже если выбрать объекты через autolisp используя (ssget "X" '((0 . "REGION")))
Срабатывает такая постановка команды (command "EXPLODE" "_All" ""), правда фильтрация все же необходима

[name02]

В русском автокаде 22 все работает. Попробуй так:

Код:

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

 (setq ss (ssget "_X" '((0 . "REGION"))))
(command-s "_EXPLODE" ss)

[===AAA===]

(ssget "X" '((0 . "REGION"))) (command "_.EXPLODE" ss "")

Я надеюсь, в реальности всё же SETQ имеется?
т.е. сперва

(setq ss (ssget "X" '((0 . "REGION"))))

а потом уже разбивка набора.

[Moi Imena]

Спасибо за ответы

Сообщение от name02 В русском автокаде 22 все работает. Попробуй так: Код: [Выделить все] (setq ss (ssget "_X" '((0 . "REGION")))) (command-s "_EXPLODE" ss)

У меня не вышло применить ваш варинат, я в eng autocad работаю поэтому попробовал как с _ там и без _, хотя на сколько понял должно работать итак и так, оба варианта дали ответ nil
Command: (setq ss (ssget "_X" '((0 . "REGION"))))
<Selection set: 81e9>
Command: (command-s "_EXPLODE" ss)
_EXPLODE
Select object: nil
Command: (command-s "EXPLODE" ss "")
EXPLODE
Select object: nil

----- добавлено через ~9 мин. -----

Сообщение от ===AAA=== Я надеюсь, в реальности всё же SETQ имеется? т.е. сперва (setq ss (ssget "X" '((0 . "REGION")))) а потом уже разбивка набора.

Я не смог применить ваш код autocad дал ответ nil (справочно работаю в eng версии autocad)

Подскажите пожалуйста в чем приимущество предворительно определять переменную содержащую набор для простых однострочных участков кода (сейчас определяю переменную содержашую набор при переборе содержимого набора) ?

Вот файлик на котором я тестирую код http://5t.ru/-g6staw
Попробовал вместо эксплоде команду ERASE, из строки ответ:
Command: (command
(_> "ERASE"
(_> LL
(_> ""
(_> )
ERASE
Select objects: 33075 found
Select objects:
Command: nil

Если набрать explode то такой ответ.
Command: (command
(_> "EXPLODE"
(_> LL
(_> ""
(_> )
EXPLODE
Select object:
Command: U
(Lisp Expression) GROUP
Command: nil

В обоих случаях используется одна и та же переменная LL (ss занята) и как видно при explode select objet пустой, потом применяется команда u - undo отмена (как подказал copilot), а потом (Lisp Expression) GROUP (тут copilot потерялся). Мне не понятно две предпоследних записи от куда они взялись, ведь я их не вызывал

[===AAA===]

Я не уверен (проверять лень), что "EXPLODE" умеет расчленять
элементы передаваемого ей набора.

Попробуй "скормить" ей отдельный элемент набора.

Если всё получится, просто организуй цикл для последовательного
расчленения всех элементов набора.

[name02]

Сообщение от Moi Imena Подскажите пожалуйста в чем приимущество предворительно определять переменную содержащую набор для простых однострочных участков кода

Никакого. Такое разделение упрощает отслеживание работы кода.

Сообщение от Moi Imena как с _ там и без _, хотя на сколько понял должно работать

"Родной" язык для автокада - английский. Поэтому для локализованных версий для запуска команд на "родном" языке надо писать "_". Если у тебя английская версия, то наличие и отсутствие знака "_" перед именем команды ни на что не влияет.

Сообщение от Moi Imena Вот файлик на котором я тестирую код

1. Хороший "файлик" - 28 МБ! Выложи что-то полегче - минутами операции выполняются.
2. Я-таки выделил все в чертеже, но не обнаружил объектов типа REGION - только вхождение блока и 3D-грань. Какие объекты ты пытаешься обработать?

Выложи файл с тем объектом, который ты хочешь обработать

Как правильно заметил ===ААА===, EXPLODE к набору надо применять через перебор:

Код:

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

 (repeat (setq i (sslength (setq ss (ssget "_X" '((0 . "REGION"))))))
   (command-s "_EXPLODE" (ssname ss (setq i (1- i))))
)

[Moi Imena]

quote="name02;2097684"]1. Хороший "файлик" - 28 МБ! Выложи что-то полегче - минутами операции выполняются.
2. Я-таки выделил все в чертеже, но не обнаружил объектов типа REGION - только вхождение блока и 3D-грань. Какие объекты ты пытаешься обработать?[/quote]
Ой это я напутал, случайно скинул сырой файл, перезалил его на на этапе расчленния объектов типа region http://5t.ru/-0fkfrh
Хорошо если ничего не выйдет то попробую перебором, у вас получилось на ru версии autocad ?

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

Если честно, не очень понимаю, зачем вообще использовать командные методы для такой несложной операции.

----- добавлено через ~2 мин. -----
И да, файл в 13 метров, это, конечно, нечто

[name02]

Сообщение от Moi Imena перезалил его на на этапе расчленния

На русском автокаде 22 работает.

Сообщение от Кулик Алексей aka kpblc зачем вообще использовать командные методы для такой несложной операции

Согласен, но автору так хотелось.

Код:

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

   (repeat (setq i (sslength (setq ss (ssget "_X" '((0 . "REGION"))))))
    (vla-explode
      (vlax-ename->vla-object (ssname ss (setq i (1- i))))
    )
  )

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

name02, практиццки то же самое. Только добавил обработку ошибок на всякий случай:

Код:

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

 (vl-load-com)

(defun c:explode-all-regions (/ adoc selset)
  (if (setq selset (ssget "_X" '((0 . "REGION"))))
    (progn
      (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
      (foreach ent (mapcar (function vlax-ename->vla-object)
                           ((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
                           )
                   ) ;_ end of mapcar
        (if (= (type (vl-catch-all-apply
                       (function
                         (lambda ()
                           (vla-explode ent)
                         ) ;_ end of lambda
                       ) ;_ end of function
                     ) ;_ end of vl-catch-all-apply
               ) ;_ end of type
               'variant
            ) ;_ end of =
          (vla-erase ent)
        ) ;_ end of if
      ) ;_ end of FOREACH
      (vla-endundomark adoc)
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

[===AAA===]

Если честно, не очень понимаю, зачем вообще использовать командные методы для такой несложной операции.

Если память не изменяет - могу ошибаться - (vla-Explode ...) не все элементы расчленять умеет.
Ну и исходный объект - это если верить справке - не удаляется.

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

Не сочтите за рекламу Разницу между explode и vla-explode я расписывал достаточно давно (https://autolisp.ru/2014/07/29/explode-vs-vla-explode/). Вроде бы поведение не менялось.

[koMon]

Сообщение от Moi Imena применить команду EXPLODE к объетам типа REGION

можно попробовать так

Код:

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

 (initcommandversion)
(vl-cmdf "_explode" (ssget "_x" '((0 . "region"))) "")