[acid_bmstu]

Есть набор геометрических объектов объединенных в полилинии
Надо каждый объект сохранить в dxf
Т.е. выделяю объект нажимаю кнопку и он его сохраняет 1.dxf, второй в 2.dxf и так далее
Объекты построены с помощью дуг и прямых
Возможно ли такое?

[Boxa]

Да. Возможно.

[Олег (jr.)]

Сообщение от acid_bmstu Есть набор геометрических объектов объединенных в полилинии Надо каждый объект сохранить в dxf Т.е. выделяю объект нажимаю кнопку и он его сохраняет 1.dxf, второй в 2.dxf и так далее Объекты построены с помощью дуг и прямых Возможно ли такое?

Попробуй на А2010 работает

Код:

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

(defun C:HUH(/ cnt folder pt sset)
(setvar "cmdecho" 0)
  (setvar "expert" 5)
(setq folder (getvar "dwgprefix") cnt 0)
(while (setq sset (ssget "+.:S:L:E")); <-- Для единичных объектов, для всего набора удалить строковую опцию
(command "_.-wblock" (strcat folder (itoa (setq cnt (1+ cnt))) ".dxf") 16 "" (setq pt (getpoint "\nТочка в начале объекта: ")) sset "")
  (command "_oops")
  )
(setvar "cmdecho" 1)
  (setvar "expert" 0)
  (princ)
  )

[hitori]

Сообщение от Олег (jr.) Попробуй на А2010 работает Код: [Выделить все] (defun C:HUH(/ cnt folder pt sset) (setvar "cmdecho" 0) (setvar "expert" 5) (setq folder (getvar "dwgprefix") cnt 0) (while (setq sset (ssget "+.:S:L:E")); <-- Для единичных объектов, для всего набора удалить строковую опцию (command "_.-wblock" (strcat folder (itoa (setq cnt (1+ cnt))) ".dxf") 16 "" (setq pt (getpoint "\nТочка в начале объекта: ")) sset "") (command "_oops") ) (setvar "cmdecho" 1) (setvar "expert" 0) (princ) )

А возможно этот же lisp сделать на autocad 2007? а то у меня пишет "; ошибка: неверная строка режима ssget"

[Alan]

Сообщение от hitori А возможно этот же lisp сделать на autocad 2007?

Наверное Автокад русский? Тогда попробуй через

Код:

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

 (setq sset (ssget "_:S:L:E"))

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

Сообщение от Alan Наверное Автокад русский? Тогда попробуй через Код: [Выделить все] (setq sset (ssget "_:S:L:E"))

Так не сработает. Если не ошибаюсь, надо

Код:

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

(ssget "_+.:S:E:L")

[Alan]

Сообщение от Кулик Алексей aka kpblc Так не сработает. Если не ошибаюсь, надо

Согласен. Не проверил до конца сам выбор, проверял только ключи...

[hitori]

Спасибо большое

[gumel]

Сообщение от Олег (jr.) Попробуй на А2010 работает Код: [Выделить все] (defun C:HUH(/ cnt folder pt sset) (setvar "cmdecho" 0) (setvar "expert" 5) (setq folder (getvar "dwgprefix") cnt 0) (while (setq sset (ssget "+.:S:L:E")); <-- Для единичных объектов, для всего набора удалить строковую опцию (command "_.-wblock" (strcat folder (itoa (setq cnt (1+ cnt))) ".dxf") 16 "" (setq pt (getpoint "\nТочка в начале объекта: ")) sset "") (command "_oops") ) (setvar "cmdecho" 1) (setvar "expert" 0) (princ) )

Отличный способ!
А есть возможность задания версии DXF файла?

---

Отвечу сам себе

перед сохранением сделать:

Код:

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

   (setq FormatSave (getenv "DefaultFormatForSave")) ; запомним текущее значение DefaultFormatForSave    
  (setenv "DefaultFormatForSave" "1") ; 1 - AutoCAD R12 DXF

после сохранения, вернуть как было:

Код:

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

 (setenv "DefaultFormatForSave" FormatSave) ; восстановим значение DefaultFormatForSave

К примеру, значение "64" соответствует формату "AutoCAD 2018 DWG"

[Teftelia]

это наверное для создания деталей на плазму из кучи в отдельные файлы?
хорошая штука если бы еще имя брала из текста рядом, напритер t4-det1

[gumel]

Сообщение от Teftelia это наверное для создания деталей на плазму из кучи в отдельные файлы? хорошая штука если бы еще имя брала из текста рядом, напритер t4-det1

Гляньте это: https://dwg.ru/dnl/15834