[dallaskassel]

Добрый день.
Очень нужен макрос, разбивающий проект на составляющие и чистящий чертёж после этого. Почистить - не проблема, многократный purge, это вопросов не вызывает. Вопрос в разбиении, а именно: в приложении есть однолинейная схема, в ней номера отходящих линий выставлены атрибутами, атрибуты зависят от положения. _burst не помогает, также на форуме были выложены другие программы по глубокому разрушению блоков - также не удавалось разбить так, чтобы нумерация не изменилась. И нужно, чтобы разбивались все листы проекта. А то этих листов и сотня бывает.
Надеюсь на понимание, спасибо.

[VVA]

Атрибуты здесь ни при чем. У тебя в блоке есть мтекст с полями.
1. Применяешь команду CFT отсюда: Как все поля чертежа сразу преобразовать в текст?
2. Потом можно и Burst, лучше BGBLEXP отсюда

[dallaskassel]

CFT - круть! Спасибо!
а как применить BGBLEXP сразу ко всем листам?

[VVA]

Сообщение от dallaskassel а как применить BGBLEXP сразу ко всем листам?

Пробуй так. bgtools должны быть загружены!!! А еще лучше добавь это к bgtools.lsp

Код:

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

(defun C:BGBLLAYEXP ( / i ss blk count xcount tmp lay itm ctb)
  ;;; BGBLLAYEXP - explode block on alll layouts
  (vl-load-com)
  (setq count 0 xcount 0 ctb (getvar "CTAB"))
  (command "_.UNDO" "_Mark")
  (foreach lay (layoutlist)
    (setq i '-1)
    (setvar "CTAB" lay)
  (if (setq ss nil ss (ssget "_X" (list '(0 . "INSERT")(cons 410 (getvar "CTAB")))))
    (progn
      (vla-StartUndoMark (vla-get-activedocument (vlax-get-acad-object)))
      (repeat (sslength ss)
	(if (and (setq blk (ssname ss (setq i (1+ i))))
	         (setq tmp(bg:block-GetXclip (vlax-ename->vla-object blk)))
		 (= 1 (cdr(assoc 71 tmp)))
		 )
	  (setq xcount (1+ xcount))
	  (progn
	    (if (vlax-write-enabled-p (vlax-ename->vla-object blk))
	      (bg:explode-block blk t)
	      )
	    (setq count (1+ count))
	    )
	  )
	)
      (vla-EndUndoMark (vla-get-activedocument (vlax-get-acad-object)))
      )
    )
    )
  (setvar "CTAB" ctb)
  (princ "\nExploded ")
  (princ count)
  (princ " blocks. Found ")
  (princ xcount)
  (princ " blocks has xclip boundary.")
  (if(not(zerop count))(princ "\n*** Command _.UNDO _Back restore your drawing"))
  (princ)
  )

[dallaskassel]

Работает. осталась мелочь: хотел бы, чтобы CFT не задавал вопросов, а просто запускался, и чтобы разбивался и Мтекст в том числе. а так - клёво!

[VVA]

Сообщение от dallaskassel чтобы CFT не задавал вопросов, а просто запускался,

Обновил. см. ссылку в посте #2

[dallaskassel]

ещё раз - большое спасибо! похоже, надо разобраться самому, потому, что есть ещё маленькие вопросики. добью, чтобы ещё mtext расчленялся. за недельку разберусь.