открой автокадовский файл на своей машине и почисти каталог где он лежит)
и все! дело в шляпе!Программа лежит....
Соня
, 11 октября 2004 в 08:50
#12
Кстати. Твоя программа портит чертежи((( если ты согласен-я вышлю тебе на мыло один из таких сбойных файлов, может это не так страшно. Они конечнооткрываются, но при этом вылетает сообщение об ошибке во время открытия. нехорошо это как то. так вот сделаешьп роект, а потом его "почистишь"%) дл этой цели у меня есть "delete":-)
Random
, 11 октября 2004 в 09:10
#13
Открыл один из чертежей в каталоге, Запустил на чистку этот же самый каталог. Прога в конце работы честно сообщила что открытый файл почистить не смогла, корректно завершив работу.
Соня, чистка производится командой Purge, которая никогда и никому кроме добра ничего не делала. Да и сделана она специально для любителей пользоваться командой delete. Высылайте файл - посмотрим.
З.Ы. Она хоть у кого нить кроме меня работает как надо? :-)
Соня
, 12 октября 2004 в 12:56
#14
Добро добром...ПУРГЕ -отличная команда, но программа открывает изменяет и СОХРАНЯЕТ обратно.. любой сбой и прощай файл.
Николай Барабанщиков
, 12 октября 2004 в 18:07
#15
У нас с Соней – “золотые ручки” программа почему-то не желает закрывать файлы “ReadOnly” так как это задумано у Randomа. Если Маэстро немножко подправить и сделать это так:
(if (= (vlax-get-property ActiveDocument "ReadOnly") :vlax-true)
;если чертеж открыт только для чтения
(progn ;если чертеж нельзя изменять
(setq UnPurged (1+ UnPurged));инкримент счетчика неочищеных файлов
(Setq UnPurgedFileList (strcat "n" (nth Index FileList)UnPurgedFileList))
; добавить строку с путем к файлу
(vlax-invoke-method ActiveDocument "Close" :vlax-false);закрыть чертеж без сохранения
);end progn
(prong ;если чертеж можно изменять
(vlax-invoke-method ActiveDocument "Save"); сохранить
(vlax-invoke-method ActiveDocument "Close");закрыть чертеж
) ;end progn
) ;end if
то все работает без проблем.
Random
, 13 октября 2004 в 09:20
#16
All that you wish :-)
Исправил. А еще подумал нафига пуржить чертеж если его нельзя сохранить. Тоже исправлено. Есть третье изменение, но оно незначительное.
Соня
, 13 октября 2004 в 09:26
#17
Особое почтение за комплимент, Николай;-)
Рандом! а файлы перестали портиться?;-)или я, как всегда, исключение из правил? и портится только у меня?
Соня
, 13 октября 2004 в 09:34
#18
а у товарищей чтото совсем никак теперь не работает(
Соня
, 13 октября 2004 в 09:39
#19
Command: (PurgeSomeFiles) ; Oшu6ka: no function definition: PURGESOMEFILES
Комментарии
Авторизоваться
и все! дело в шляпе!Программа лежит....
Соня, чистка производится командой Purge, которая никогда и никому кроме добра ничего не делала. Да и сделана она специально для любителей пользоваться командой delete. Высылайте файл - посмотрим.
З.Ы. Она хоть у кого нить кроме меня работает как надо? :-)
(if (= (vlax-get-property ActiveDocument "ReadOnly") :vlax-true)
;если чертеж открыт только для чтения
(progn ;если чертеж нельзя изменять
(setq UnPurged (1+ UnPurged));инкримент счетчика неочищеных файлов
(Setq UnPurgedFileList (strcat "n" (nth Index FileList)UnPurgedFileList))
; добавить строку с путем к файлу
(vlax-invoke-method ActiveDocument "Close" :vlax-false);закрыть чертеж без сохранения
);end progn
(prong ;если чертеж можно изменять
(vlax-invoke-method ActiveDocument "Save"); сохранить
(vlax-invoke-method ActiveDocument "Close");закрыть чертеж
) ;end progn
) ;end if
то все работает без проблем.
Исправил. А еще подумал нафига пуржить чертеж если его нельзя сохранить. Тоже исправлено. Есть третье изменение, но оно незначительное.
Рандом! а файлы перестали портиться?;-)или я, как всегда, исключение из правил? и портится только у меня?
(psf)