[mvart]

Если в файле много блоков с закрытыми установками для расчленения ,как создать кнопку выполняющую функцию "Разрешить расчленение блока" выполняющую для всех блоков в файле ?

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

Руками - никак. Только если программу писать.

[mvart]

Сообщение от Кулик Алексей aka kpblc Руками - никак. Только если программу писать.

1 Спасибо за ответ .
2 Кто бы взялся за написание

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

Без проверок:

Код:

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

 (vl-load-com)

(defun c:make-explodeable (/ adoc selset err err_lst)

  (defun _kpblc-conv-selset-to-ename (selset / tab item)
                                     ;|
*    Преобразование набора, полученного через ssget, в список ename-представлени
* примитивов.
*    Параметры вызова:
	selset	набор примитивов
*    Примеры вызова:
(_kpblc-conv-selset-to-ename (ssget))
|;
    (cond
      ((not selset) nil)
      ((= (type selset) 'pickset)
       (repeat (setq tab  nil
                     item (sslength selset)
                     ) ;_ end setq
         (setq tab (cons (ssname selset (setq item (1- item))) tab))
         ) ;_ end repeat
       )
      ((= (type selset) 'vla-object)
       (_kpblc-conv-vla-to-list selset)
       )
      ((listp selset) selset)
      ) ;_ end of cond
    ) ;_ end of defun

  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (= (type (setq selset (vl-catch-all-apply
                              (function
                                (lambda ()
                                  (ssget '((0 . "INSERT")))
                                  ) ;_ end of lambda
                                ) ;_ end of function
                              ) ;_ end of vl-catch-all-apply
                     ) ;_ end of setq
               ) ;_ end of type
         'pickset
         ) ;_ end of =
    (progn
      (foreach item (mapcar
                      (function
                        (lambda (x)
                          (vla-item (vla-get-blocks adoc) x)
                          ) ;_ end of LAMBDA
                        ) ;_ end of function
                      ((lambda (/ name_lst name)
                         (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 of repeat
                                                 tab
                                                 ) ;_ end of lambda
                                               )
                                              ) ;_ end of mapcar
                           (if (not (member (setq name (strcase (vla-get-name ent))) name_lst))
                             (setq name_lst (cons name name_lst))
                             ) ;_ end of if
                           ) ;_ end of foreach
                         ) ;_ end of lambda
                       )
                      ) ;_ end of mapcar
        (if (vl-catch-all-error-p (setq err (vl-catch-all-apply
                                              (function
                                                (lambda ()
                                                  (vla-put-explodable item :vlax-true)
                                                  ) ;_ end of lambda
                                                ) ;_ end of function
                                              ) ;_ end of VL-CATCH-ALL-APPLY
                                        ) ;_ end of setq
                                  ) ;_ end of VL-CATCH-ALL-ERROR-P
          (setq err_lst (cons (vla-get-name item) (vl-catch-all-error-message err)))
          ) ;_ end of if
        ) ;_ end of foreach
      (if err_lst
        (princ (strcat "При обработке были обнаружены ошибки:"
                       (apply (function strcat)
                              (mapcar
                                (function
                                  (lambda (x)
                                    (strcat "\n" (car x) "\t: " (cdr x))
                                    ) ;_ end of lambda
                                  ) ;_ end of function
                                err_lst
                                ) ;_ end of mapcar
                              ) ;_ end of apply
                       ) ;_ end of strcat
               ) ;_ end of princ
        ) ;_ end of if
      ) ;_ end of progn
    ) ;_ end of if
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

Тема перемещена в программирование

[Дима_]

Сообщение от mvart выполняющую для всех блоков в файле ?

ну если всех то можно и проще:

Код:

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

 (vl-load-com)
(vlax-for block
 (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
 (vla-put-explodable block :vlax-true))

[mvart]

Сообщение от Дима_ 1 (vl-load-com) 2 (vlax-for block 3 (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) 4 (vla-put-explodable block :vlax-true))

Это весь Лисп код ?

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

Сообщение от mvart Это весь Лисп код ?

Этого достаточно, если обрабатывать ВСЕ блоки.

[mvart]

прошу прощения но сохранив в ЛИСП
(vl-load-com)
(vlax-for block
(vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(vla-put-explodable block :vlax-true))

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

[Дима_]

Не поверишь - но это и есть команда на исполнение. Можешь завернуть ее в (defun c:имя_команды() текст из №5 ) и вызывать соответственно как назвал.

[mvart]

Сообщение от Дима_ Не поверишь - но это и есть команда на исполнение. Можешь завернуть ее в (defun c:имя_команды() текст из №5 ) и вызывать соответственно как назвал.

(defun c:raz(raz)
(vl-load-com)
(vlax-for block
(vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(vla-put-explodable block :vlax-true))

при вызове получил:

Команда: _appload raz2.lsp успешно загружено.
Команда: ; ошибка: неверно сформированный список на входе
Команда:

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

Закрывающую скобку забыл.

Код:

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

 (defun c:raz (raz)
  (vl-load-com)
  (vlax-for block
                  (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
    (vla-put-explodable block :vlax-true)
    ) ;_ end of vlax-for
  ) ;_ end of defun

[mvart]

[quote=Кулик Алексей aka kpblc;925108]Закрывающую скобку забыл.
Код:
[Выделить все]

(defun c:raz (raz)
(vl-load-com)
(vlax-for block
(vla-get-blocks (vla-get-activedocument (vlax-get-acad-object)))
(vla-put-explodable block :vlax-true)
) ;_ end of vlax-for
) ;_ end of defun

--------------

Спасибо. Но теперь в ответ получаю

Команда: raz
; ошибка: слишком мало аргументов
Команда:

Может из - за того что команда не в модели выполняется а в компоновке листа ?

[TararykovDG]

Сообщение от mvart Может из - за того что команда не в модели выполняется а в компоновке листа ?

Нет, вместо c:raz(raz) напиши c:raz()

[mvart]

Сообщение от TararykovDG Нет, вместо c:raz(raz) напиши c:raz()

СПАСИБО

[VVA]

Сообщение от mvart Кто бы взялся за написание

Уже все давно написано. Non Exploding Blocks
Один из вариантов

Код:

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

(defun c:Expload  (/ Flag BlockObjects Ent)
(initget "Yes No")
(setq Flag (cond
           ((getkword "\Make All Explodable-Nonexplodable (Blocks+Xrefs) [Yes/No] <YES>: ") ) ( "Yes" )))
(setq BlockObjects (tblnext "BLOCK" T))
      (while BlockObjects
            (cond ((and
	          (setq Ent (entget (cdr (assoc -2 BlockObjects)))
		        Ent (entget (cdr (assoc 330 Ent))))
		(entmod (subst (cons 280  (if (eq Flag "Yes") 1 0))
                               (assoc 280 Ent) Ent)))
                   )
            )
            (setq BlockObjects (tblnext "BLOCK"))
      )
(princ)      
)

[Do$]

Еще есть код из первого сообщения популярной темы http://forum.dwg.ru/showthread.php?t=22894