[МишаИнженер]

Помогите написать команду LISP: Сохранить копию файла в папку
Должно открывать диалоговое окно для сохранения КОПИИ файла чертежа в указанную пользователем папку

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

А где свой код?

[GogMagog]

Если файлы не пакетно надо сохранять, то может быть команда ПБЛОК или -ПБЛОК подойдет?

[МишаИнженер]

Сообщение от Кулик Алексей aka kpblc А где свой код?

Я в ЛИСПЕ не специалист

Сообщение от GogMagog -ПБЛОК подойдет?

Да, спасибо! Эта команда подходит с "черточкой"
Надо только добавить подстановку текущего имени файла в диалоговое окно сохранения файла
Как это можно сделать? Может надо на ЛИСПЕ написать:
(setq FileName (getCurrentFileName))
(command -ПБЛОК FileName)
(princ (strCat "Сохранена копия файла: " FileName))
Надо только в этом коде исправить ошибки.

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

Сообщение от МишаИнженер Я в ЛИСПЕ не специалист

Так, может, стоит обратиться в "Поиск исполнителей"? В этом разделе обычно помогают решить проблемы с кодом, а не пишут под чужие хотелки.

[МишаИнженер]

У меня не сильно сложная задача, чтобы привлекать разработчиков

Подскажите пожалуйста как пишется команда ЛИСП для получения имени файла текущего чертежа?
В моем коде команда getCurrentFileName почему-то не работает

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

Системные переменные dwgprefix, dwgname

[GogMagog]

я думаю, что getCurrentFileName это функция, которую надо самому написать. Попробуй:

Код:

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

 (vl-load-com)
(defun getCurrentFileName()
  (setq getcfn (vla-get-name (vla-get-activedocument(vlax-get-acad-object))))
  )

если полный путь надо vla-get-name замени на vla-get-fullname. в коде обязательно должна быть команда (vl-load-com)

[МишаИнженер]

Мне вроде все немного понятно, а что такое (vl-load-com)?
Команда (setq getcfn (vla-get-name (vla-get-activedocument(vlax-get-acad-object))))
выдает только имя файла, а как получить путь файла или полное имя файла?

----- добавлено через ~24 мин. -----
Следующий код:

Код:

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

 (setq FileName (strCat (getvar "dwgprefix") (getvar "dwgname")))
(command "-ПБЛОК" FileName)

Не открывает диалоговое окно (хотя FILEDIA=1) а предлагает перезаписать текущий файл.
Как мне открыть диалоговое окно записи файла на ЛИСП?

----- добавлено через ~4 ч. -----
Неплохо работает код открытия диалогового окна:

Код:

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

 (setq FileName (strCat (getvar "dwgprefix") (getvar "dwgname")))
(getfiled "Выбери файл" FileName "dwg" 0)

Где можно посмотреть параметры вызова функции getfiled?

[===AAA===]

Сообщение от МишаИнженер Где можно посмотреть параметры вызова функции getfiled?

Да прямо в Автокаде и смотри.
F1 - и вперед.
Это на случай, если в Гугле забанили...

[koMon]

Код:

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

 
(vla-get-path 
	(vlax-get-property 
		(vlax-invoke-method 
			(vla-getinterfaceobject (vlax-get-acad-object) "shell.application") 
			'browseforfolder 
			0 
			"Выберите папку для сохранения копии" 
			528 
			"shell:mycomputerfolder"
		) 
		'Self
	)
)