| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Сохранить как - средствами Autolisp

Сохранить как - средствами Autolisp

Ответ
Поиск в этой теме
Непрочитано 30.01.2016, 12:31 #1
Сохранить как - средствами Autolisp
granit201z
 
Проектировщик
 
Камышин
Регистрация: 17.08.2014
Сообщений: 118

Следующая проблема. Хотел создать некоторую ф-ю, которая выполняла бы команду "Сохранить как" с заранее заданными параметрами. То есть на Lispe это должно было выглядеть так:

Код:
[Выделить все]
 (vl-cmdf "_-saveas" A B C)
где A, B, C некоторые параметры, необходимые для "Сохранить как", но определенные не в окошке сохранения, которое всегда выскакивает при вводе команды saveas, а программой на основании некоторых исходных данных. Короче, нужно чтобы это окошко не выскакивало, а "Сохранить как" проходило тихо и мирно не отвлекая пользователя на однообразные действия.

Но не тут то было. Оказалось, что команды _-saveas, т.е. в безоконном режиме, не бывает. Может есть какие то другие методы решения этой проблемы
Просмотров: 2351
 
Непрочитано 30.01.2016, 13:21
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


(vla-saveas (vla-get-activedocument (vlax-get-acad-object)) FileName [FileType [SecurityParams]])
Подробнее см.в справке
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 30.01.2016, 14:08
#3
Puroshev


 
Регистрация: 22.10.2008
Сообщений: 73
Отправить сообщение для Puroshev с помощью Skype™


Установи FILEDIA в 0 (setvar "FILEDIA" 0). А после Saveas... верни (setvar "FILEDIA" 1)
Puroshev вне форума  
 
Автор темы   Непрочитано 30.01.2016, 14:32
#4
granit201z

Проектировщик
 
Регистрация: 17.08.2014
Камышин
Сообщений: 118


Код:
[Выделить все]
 (defun c:cg ( / )


  (vl-load-com) ; загружаем Актив-Х без нее все актив-х функции работать не будут

  (setq actdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq obj (vla-get-ModelSpace actdoc))

(setq papka_details (vl-mkdir (strcat (getvar 'dwgprefix) "Details")))
(setq papka_details_A (vl-mkdir (strcat (getvar 'dwgprefix) "Details\\A")))
(setq papka_details_B (vl-mkdir (strcat (getvar 'dwgprefix) "Details\\B")))
(setq papka_details_C (vl-mkdir (strcat (getvar 'dwgprefix) "Details\\C")))
(setq papka_details_D (vl-mkdir (strcat (getvar 'dwgprefix) "Details\\D")))
(setq papka_details_E (vl-mkdir (strcat (getvar 'dwgprefix) "Details\\E")))
(setq papka_details_F (vl-mkdir (strcat (getvar 'dwgprefix) "Details\\F")))
(setq papka_details_bG (vl-mkdir (strcat (getvar 'dwgprefix) "Details\\bG")))
(setq papka_details_cG (vl-mkdir (strcat (getvar 'dwgprefix) "Details\\cG")))
(setq papka_details_dG (vl-mkdir (strcat (getvar 'dwgprefix) "Details\\dG")))
(setq papka_details_eG (vl-mkdir (strcat (getvar 'dwgprefix) "Details\\eG")))
(setq papka_details_fG (vl-mkdir (strcat (getvar 'dwgprefix) "Details\\fG")))

(vla-SaveAs actdoc   (strcat "M:/Адфыр/1/" "Details/fG")       ac2008_dxf)

)

Почему то выдает ошибку:

Цитата:
Команда: CG
; ошибка: Ошибка Automation. Недопустимое имя файла
может надо двойной слеш?

----- добавлено через ~2 мин. -----
не помогло

----- добавлено через ~5 мин. -----
Цитата:
Подробнее см.в справке
Простите, в справке к чему?

Последний раз редактировалось granit201z, 30.01.2016 в 14:35. Причина: осенило
granit201z вне форума  
 
Непрочитано 31.01.2016, 04:16
#5
roaa

ОПС
 
Регистрация: 29.03.2012
Kazakhstan
Сообщений: 128


Взгляни здесь
http://http://forum.dwg.ru/showthread.php?p=898998&#post898998
roaa вне форума  
 
Непрочитано 31.01.2016, 18:10
#6
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Цитата:
Сообщение от granit201z Посмотреть сообщение
Короче, нужно чтобы это окошко не выскакивало, а "Сохранить как" проходило тихо и мирно не отвлекая пользователя на однообразные действия.
Не выскакивает.
Код:
[Выделить все]
(setvar "expert" 5)
(command "_saveas" "2007" "d:\\1test1.dwg")
Хочешь узнать другие опции - сделай как посоветовали в #3
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 31.01.2016, 18:16
#7
granit201z

Проектировщик
 
Регистрация: 17.08.2014
Камышин
Сообщений: 118


спасибо
granit201z вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Сохранить как - средствами Autolisp

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Автокад. Редактирование объектов входящих в блок средствами Autolisp или VisualLisp. rozine04 LISP 2 02.09.2015 10:06
Как программно (AutoLisp, VLisp) определить материал трубопровода, построенного средствами AutoCAD MEP? Громов Владимир Вертикальные решения на базе AutoCAD 3 27.03.2015 09:55
Вставка внешней ссылки в чертежи средствами AutoLisp или VBA kolya161 LISP 2 13.12.2013 19:40
Как узнать площадь штриховки средствами Autolisp Mozgunov LISP 4 14.06.2012 17:32
Реализация алгоритма шифрования AES средствами AutoLisp gomer LISP 20 09.09.2010 11:55