[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

_____________________________________________________________________________________________________________

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

[Moi Imena]

Сообщение от ===AAA=== Я не уверен (проверять лень), что "EXPLODE" умеет расчленять элементы передаваемого ей набора. Попробуй "скормить" ей отдельный элемент набора. Если всё получится, просто организуй цикл для последовательного расчленения всех элементов набора.

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

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

Сообщение от koMon можно попробовать так Код: [Выделить все] (initcommandversion) (vl-cmdf "_explode" (ssget "_x" '((0 . "region"))) "")

к сожалению на eng autocad не сработало, вот полученный ответ

Command: (vl-cmdf "EXPLODE" ss "")
EXPLODE
Select object:
Command: U
(Lisp Expression) GROUP
Command: T

для сравнение erase вместо explode

Command: (vl-cmdf "ERASE" SS "")
ERASE
Select objects: 70756 found
Select objects:
Command: T
Command: _u (Lisp Expression) GROUP

[koMon]

Сообщение от Moi Imena к сожалению на eng autocad не сработало, вот полученный ответ

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

Код:

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

 
(setq count 0)
(vlax-map-collection
	(vla-get-modelspace (vla-get-database (vla-get-activedocument (vlax-get-acad-object))))
   '(lambda (object)
		(and
			(= (vla-get-objectname object) "AcDbRegion")
			(vla-explode object)
			(princ (strcat "\r"(itoa (setq count (1+ count))) " regions exploded"))
			(vla-erase object)
		)
	)
)
(princ)