Как сделать кнопку открытия и "Сохранения как" конкретного файла? (Страница 1 из 2)

> septima
Если не предполагается рисунок редактировать, то на кой его открывать? Скопировать в проводнике, любом файловом менеджере...

В том то и дело, что файл 11.dwg - шаблон,исходник для последующей обработки. Его надо открыть, "Сохранить как" в папку <11> под другим именем и отредактировать под текущий проект. Спасибо VVA за полезный алгоритм, но ,похоже, я сам виноват: не совсем корректно описал вопрос.

Если непременно надо с открытием в Автокаде

(setq from "D:\\11.dwg")
(setq to "11a.dwg")
(setq dest (strcat (VL-FILENAME-DIRECTORY from)(VL-FILENAME-BASE from)))
(vl-mkdir dest)
(setq dest (strcat dest "\\" to))
(setq File (vla-open (vla-get-documents(vlax-get-acad-object))  from))
(vla-saveas File dest ac2004_dwg)
(vla-close File)
(vlax-release-object File)

Без проверок, что файл м.б. открыт и не доступен. С проверками см.
https://www.caduser.ru/forum/topic29668.html и здесь
https://www.caduser.ru/forum/topic28268.html

> septima
Нереально. Потому как в программном режиме (по крайней мере лисповом) после активизации другого документа выполнение функции прерывается. В общем, некорректно оно себя вести начинает

Опять, непонятно что значит "кое-что в нем изменить"? Если просто открыть->сохранить как, то сохраняешь этот код под именем
C11.lsp

(defun C:C11 ( / from to dest File )
(setq from "D:\\11.dwg")
(setq to "11a.dwg")
(setq dest (strcat (VL-FILENAME-DIRECTORY from)(VL-FILENAME-BASE from)))
(vl-mkdir dest)
(setq dest (strcat dest "\\" to))
(setq File (vla-open (vla-get-documents(vlax-get-acad-object))  from))
(vla-saveas File dest ac2004_dwg)
(vla-close File)
(vlax-release-object File)
(princ)
)

Файл кладешь в доступное для автокада место.
Кнопка

^C^C(if (null C:C11)(load "c11.lsp"));C11;

Как загрузить файл https://www.caduser.ru/oldlink/faq/?part=23 Как сохранить программный код на своем компьютере?

Уважаемый VVA, Безграничная благодарность за помощь! Только не работает ничего. Выдает ошибку No function definition: VLAX-GET-ACAD-OBJECT. Сохранил код в папке Support ACADa под именем C11.lsp. Что я не стак сделал?
   И уважаемый Владимир Громов, я не пытаюсь начать рисовать линию в одном файле, и закончить ее в другом. Если подробно и в именах, то речь о следующем: Есть некий рабочий файл RS.00.dwg, где, собственно, и проходит весь процесс. И есть файлы - заготовки (шаблоны) с отдельными узлами. Постоянно приходится,переключаясь с работы в RS.00.dwg, открывать тот или иной шаблон (к примеру файл D:/11.dwg), чтобы не менять исходник, "сохранять его как" в папку D:/11 (чтобы получилось D:/11/11.dwg), и теперь уже работать в нем. Затем сохранить и вернуться к работе в D:/RS.00. Вот и была задумка весь процесс открытия-сохранения как повесить на одну кнопку. То есть при нажатии не кнопку открывается файл D:/11.dwg и "сохраняется как" в D:/11/11.dwg. Теперь работаем в этом файле, а RS.00 ждет своей очереди.

> septima
Для загрузки vla ф-ций надо добавить (vl-load-com)

 (defun C:C11 ( / from to dest File )
(vl-load-com)
(setq from "D:\\11.dwg")
(setq to "11a.dwg")
(setq dest (strcat (VL-FILENAME-DIRECTORY from)(VL-FILENAME-BASE from)))
(vl-mkdir dest)
(setq dest (strcat dest "\\" to))
(setq File (vla-open (vla-get-documents(vlax-get-acad-object))  from))
(vla-saveas File dest ac2004_dwg)
(vla-close File)
(vlax-release-object File)
(princ)
)

Чтобы файл не выгружался, надо закоментировать строку

(vla-close File)

Чтобы он стал активным добавить строку

(vla-put-ActiveDocument  (vlax-get-acad-object) File)

Получится прерно следующее

(defun C:C11 ( / from to dest File )
(vl-load-com)
(setq from "D:\\11.dwg")
(setq to "11a.dwg")
(setq dest (strcat (VL-FILENAME-DIRECTORY from)(VL-FILENAME-BASE from)))
(vl-mkdir dest)
(setq dest (strcat dest "\\" to))
(setq File (vla-open (vla-get-documents(vlax-get-acad-object))  from))
(vla-saveas File dest ac2004_dwg)
(vla-put-ActiveDocument  (vlax-get-acad-object) File)
;(vla-close File)
(vlax-release-object File)
(princ)
)

Короче так. Постановка задачи такая.
Есть некий файл-шаблон. Его имя задается явно.
На том же диске, создается папка с именем=имени шаблона. Запрашивается имя файла для сохранения, шаблон сохраняется как и становится текущим документом.
Реализация

(defun C:C11 ( / from to dest File )
(vl-load-com)
(setq from "D:\\11.dwg")
(setq dest (strcat (VL-FILENAME-DIRECTORY from)(VL-FILENAME-BASE from)))
(vl-mkdir dest)
(setq dest (strcat dest "\\"))
(setq to (getfiled "Файл для сохранения проекта" dest "dwg" 17))
(if to
  (progn
    (setq File (vla-open (vla-get-documents(vlax-get-acad-object))  from))
    (vla-saveas File to ac2004_dwg)
    (vla-put-ActiveDocument  (vlax-get-acad-object) File)
    ;(vla-close File)
    (vlax-release-object File)
    )
  )
(princ)
)

Господа, Всем огромное человеческое Спасибо!! Все работает!! Помогли сэкономить кучу времени!!!

Закоментарь (vl-mkdir dest) вот так

;;;(vl-mkdir dest)

И вместо (setq to (getfiled "Файл для сохранения проекта" dest "dwg" 17)

(setq to (getfiled "Файл для сохранения проекта""D:\\" "dwg" 17))