Нужен лисп: открытие всех файлов в данной директории

Torino · 25.04.2005, 14:23

И вновь требуется помощь наших спецов:
нужен лисп, который откроет в текущей сессии Акада все файлы .dwg из указанной директории, включая поддиректории.

{Smirnoff} · 25.04.2005, 14:44

А компостер у тебя не заклинит :?:

Лови. Файлы "doslib15.arx" и "doslib16.arx" которые ты должен закинуть в Support (в зависимости от версии Автокада) чтобы это работало сейчас скину тебе по мейлу.

Код:

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

(defun c:diropen(/ pathList scFactor docColl curDoc errList errCount sucCount
		allSet layCol layerState selSets newSet)
 
  (defun asmi-doslib-load (/)
    (cond
      ((=(substr(getvar "ACADVER")1 2) "15")
       (progn
  (if(not(member "doslib15.arx" (arx)))
      (arxload "doslib15.arx" "File doslib15.arx.arx not found! ")
    ); end if
  );end progn
       )
      ((=(substr(getvar "ACADVER")1 2) "16")
       (progn
  (if(not(member "doslib16.arx" (arx)))
       (arxload "doslib16.arx" "File doslib16.arx.arx not found! ")
    ); end if
  );end progn
       )
       ); end cond
    (if(or
       (member "doslib15.arx" (arx))
       (member "doslib16.arx" (arx))
       ); end or
      T
      ); end if
  ); end of asmi-doslib-load


 

  (defun asmi-all-folder-dwgs (/ rootDir dirList newFiles fileList)
  (if
  (setq
    rootDir(dos_getdir "Folder to select DWG's " "C:\\" "Select folder select DWG's")
   ); end setq
  (progn
   (setq dirList(dos_dirtree rootDir)
    fileList '()
   ); end setq
  (foreach dir dirList
    (if
      (setq newFiles(dos_dir(strcat dir "*.dwg")0))
      (progn
   (setq newFiles(mapcar '(lambda (x)(strcat dir x))newFiles)
              fileList(append fileList newFiles)
   ); end setq
       ); end progn
      ); end if
    ); end foreach
  fileList
   ); end progn
  ); end if
); end of asmi-all-folder-dwgs


 
  (if(asmi-doslib-load)
    (progn
      (if
       (setq pathList(asmi-all-folder-dwgs))
        (progn
          (setq docColl(vla-get-Documents(vlax-get-acad-object))
           errList '()
      errCount 0
      sucCount 0
          ); end setq
  (foreach path pathList
   (if
        (vl-catch-all-error-p
         (setq curDoc
          (vl-catch-all-apply 'vla-open(list docColl path))))
     (progn
     (setq errList(append errList(list path)))
     (setq errCount(1+ errCount))
     ); end progn
     (setq sucCount(1+ sucCount))
   ); end if
	 ); end progn
     ); end if
      ); end foreach
    ); end progn
       (princ "\n!!! *.DWG FILES NOT FOUND IN SELECTED DIRECTORY AND SUBDIRECTORIES !!! ")
   ); end if
      
  (if(/= 0 errCount)
    (progn
      (princ "\n!!! ISN'T OPENED FILES !!!")
      (princ "\n------------------------------------------------")
      (foreach file errList
   (princ(strcat "\n" file))
   ); end foreach
      (princ "\n------------------------------------------------")
      (princ(strcat "\n!!! TOTAL ISN'T OPENED FILES: " (itoa errCount) " !!! \n"))
       ); end progn
      ); end if
    (if(/= 0 sucCount)
    (princ(strcat "\n*** " (itoa sucCount) " FILES WAS OPENED *** "))
    (princ "\n*** NO FILES WAS OPENED! ***")
      ); end if
    (textscr)
(princ)
); end of c:mscale

(vl-load-com)

Pilot · 25.04.2005, 15:31

Глупый вопрос: а почему нельзя в проводнике эти файлы выделить, потом кликнуть правой мышкой и сказать "открыть" ?
Хотя подозреваю, что заказанная прога куда-то еще как подпрограмма внедряться будет.

Torino · 25.04.2005, 15:33

Это программа нужна, чтобы у меня не возникло туннельного эффекта

От открывания большого количества чертежей, раскиданных по папкам.
Дослиб имеется.
Так что программа сразу запустилась и выполнила именно то, что надо было.
Спасибо большое!
(ПС: А компостер у меня последнего поколения. Из титанового сплава. Так что не заклинит

)

>>Pilot
Проблема в том, что в файлы находятся во вложенных папках.
Поэтому в проводнике их все выделить махом не получится.
А внедрять никуда не планирую (автора я спрошу об этом в первую очередь).

{Smirnoff} · 25.04.2005, 15:55

>Torino

Смотри рекомендации Kryker по профилактике туннельного эффекта в теме Глаза.

Torino · 25.04.2005, 16:10

Кто-нибудь видел подобное?
Я в первый раз

[ATTACH]1114431011.jpg[/ATTACH]

Pilot · 25.04.2005, 16:33

2 Torino
Со вложенными папками легко справляется Тотал-Коммандер по комбинации Ctrl+B. Все файлы в подпапках становятся как бы в одной. Только я не пробовал таким образом файлы оптом открывать. Но попробую.

Torino · 25.04.2005, 17:02

>>Pilot
Попробовал - получилось!
Надо бы изучить TC подробнее.
Спасибо.

Salo65 · 05.05.2011, 16:58

Спасибо!!!
Респект и уважуха!!!

Наткнулся на сие когда надо было одновременно открыть для редактирования 8 сотен файлов в 92-х директориях с кучей поддиректорий...
СУПЕР!!!

Александр Ривилис · 06.05.2011, 16:43

Цитата:

Сообщение от Salo65

Наткнулся на сие когда надо было одновременно открыть для редактирования 8 сотен файлов в 92-х директориях с кучей поддиректорий...

И что AutoCAD не выпал в осадок?

Salo65 · 06.05.2011, 17:06

да нет, у меня харда моцная стоит....

Пробовал сие чудо сегодня на ноуте - тот естессно ушёл в фатал еррор - недостаточно памяти...
А стационар - нормально съел...

hwd · 06.05.2011, 20:51

Цитата:

Сообщение от Salo65

надо было одновременно открыть для редактирования 8 сотен файлов

Это яркий пример того, о чём написано у меня в подписи...

Salo65 · 07.05.2011, 13:21

8 сотен файлов - это 95 типовых проектов, в которых содержится указанное кол-во файлов автоГада.
Подрядчик, под чью контору (де-юре) выпускаются проекты уволил парочку человек, на их место взял новых. Пришлось заняться маразмом и поменять фамилии в штампах всего пакета документов.
Чтобы не сойти с ума - открыл всё вместе, заменил необходимое в первом файле, а потом - копи-паст-сейв-альт+таб, копи-паст-сейв-альт+таб, копи-паст-сейв--альт+таб...клоуз,... Game over!!!

hwd · 07.05.2011, 13:51

Главное, что тебе такой вариант решения подходит. Устраивает - и ладно...

gomer · 07.05.2011, 14:25

Цитата:

Сообщение от Salo65

8 сотен файлов - это 95 типовых проектов, в которых содержится указанное кол-во файлов автоГада.
Подрядчик, под чью контору (де-юре) выпускаются проекты уволил парочку человек, на их место взял новых. Пришлось заняться маразмом и поменять фамилии в штампах всего пакета документов.
Чтобы не сойти с ума - открыл всё вместе, заменил необходимое в первом файле, а потом - копи-паст-сейв-альт+таб, копи-паст-сейв-альт+таб, копи-паст-сейв--альт+таб...клоуз,... Game over!!!

один раз сделал не правильно... потом 800 раз исправлять... скупой и глупый платит дважды... но тут...

Nike · 07.05.2011, 14:39

Цитата:

Сообщение от Salo65

копи-паст-сейв-альт+таб, копи-паст-сейв-альт+таб, копи-паст-сейв--альт+таб...клоуз,... Game over!!!

пока "копи-паст-сейв-альт+таб, копи-паст-сейв-альт+таб, копи-паст-сейв--альт+таб" хоть хоккей посмотреть..
Сколько времени на это ушло, если не секрет?

gomer · 07.05.2011, 14:57

дело в том что лисп или даже сценарий написать не сложно... но 800 файлов достаточно много... если что пошло не так... хрен проверишь...

Кулик Алексей aka kpblc · 07.05.2011, 16:48

Подшивка - мимо?

таи · 07.05.2011, 18:07

Offtop:
Цитата:

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

Подшивка - мимо?

А что такое подшивка? И какие проблемы при черчениии можно решить с помощью лиспа?
Ну мамой клянусь - не знаю.
Буду благодарен за объяснения в общих чертах проблемы.

hwd · 07.05.2011, 21:29

Цитата:

Сообщение от таи

А что такое подшивка?

подшивки:
тынц,
тынц.

Цитата:

Сообщение от таи

какие проблемы при черчениии можно решить с помощью лиспа?

странный вопрос... А какие проблемы вообще решают с помощью языков программирования? За кефиром они точно не бегают...

таи · 07.05.2011, 22:54

Offtop:

Цитата:

Сообщение от hwd

странный вопрос...

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

Спасибо.

hwd · 07.05.2011, 22:56

Цитата:

Сообщение от таи

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

Да вроде как по форуму полно информации на эту тему. Или то, что имеется - не убедительно?
Есть целая ветка на эту тему: тынц.

таи · 07.05.2011, 23:12

Цитата:

Сообщение от hwd

Да вроде как по форуму полно информации на эту тему. Или то, что имеется - не убедительно?

Да все убедительно. Но пару строчек черкнуть для дилетанта трудно?
Верят личному примеру.
Не совсем понимаю, как лисп может мне помочь при черчении каждый раз нового объекта - в чем фишка?
Предположим, что я - самый что ни на есть Профан. Если трудно ответить пошлите на ссылку.

Я не прошу мне что-то писать- мне не понятен принцип использования лиспа - что это дает?
Хворобьев восхищался лиспописателями- я не понимаю этого процесса.
Просто двумя словами - что я не ловлю в данном вопросе?
От Вашего мастерства ничего не убудет, если объясните в двух словах.

hwd · 07.05.2011, 23:19

Я же указал ссылку на целую ветку... Каждый её топик содержит решение той или иной проблемы со всеми исходниками, написанными преимущественно на лиспе...
Offtop:

похоже, что пациент безнадёжен

Sleekka · 07.05.2011, 23:26

Цитата:

Да все убедительно. Но пару строчек черкнуть для дилетанта трудно?
Верят личному примеру.
Не совсем понимаю, как лисп может мне помочь при черчении каждый раз нового объекта - в чем фишка?
Предположим, что я - самый что ни на есть Профан. Если трудно ответить пошлите на ссылку.
Я не прошу мне что-то писать- мне не понятен принцип использования лиспа - что это дает?
Хворобьев восхищался лиспописателями- я не понимаю этого процесса.
Просто двумя словами - что я не ловлю в данном вопросе?

Я лиспописатель, и когда мы проектировали микрорайон, мы не открывали 800 файлов чтобы там менять фамилии и сохранять, все было залинковано в бд автоматом изначально + хref = грамотная орагнизация процесса дает возможность делать ту же работу за меньшее время.
Так понятно?

Кулик Алексей aka kpblc · 07.05.2011, 23:26

таи, напиши задачу, которая решается только в AutoCAD, занимает немного времени, но достаточно много кликов по разным диалоговым окнам. Вот тебе и проблема, которую наверняка можно решить либо лиспом, либо иным другим языком программирования.

таи · 07.05.2011, 23:46

Цитата:

Сообщение от hwd

похоже, что пациент безнадёжен

Да, Вы, правы, в инженерных задачах - я говорю аналогичное.
Но, спасибо, что указали на мою бездарность.

Ка бы лиспы были так важны при решении инженерных задач - я человек достигший нижнего понимания Code-Aster Offtop: (как же там без программирования исходной задачи) и умеющий что-то Offtop: "пролепетать" в екселе - то кинулся бы изучать эту систему, но пока не понимаю важность ее.
В общем - жестко, но справедливо.
Учту, Ваше замечание.

Salo65 · 08.05.2011, 13:30

Цитата:

Сообщение от Nike

Сколько времени на это ушло, если не секрет?

Немногим менее 7-ми часов

Создавать базу данных физически некогда, ибо работы - как в том анекдоте про курицу несушку - "ты чего такая неухоженная? - Да некогда мне - я то несуся, то ...."

Salo65 · 28.11.2020, 10:14

Апну тему по причине:

- McNeel удалил со своих серверов библиотеку DOSlib для AutoCAD 2006.
В Сети не нашёл, все ссылки ведут на ftp всё того же McNeel, но там "Page 404"

Не завалялось ли у кого архива?

Заранее благодарен!

frostmourn · 28.11.2020, 15:25

Это подойдёт? Или какая там версия для 2006-го нужна?

Salo65 · 28.11.2020, 15:51

Цитата:

Сообщение от frostmourn

Это подойдёт? Или какая там версия для 2006-го нужна?

Всё ОК, работает!

Спасибо ОГРОМНЕЙШЕЕ!!!

25.04.2005, 14:23		#1
Нужен лисп: открытие всех файлов в данной директории Torino Штаб Регистрация: 21.08.2003 Сообщений: 943 И вновь требуется помощь наших спецов: нужен лисп, который откроет в текущей сессии Акада все файлы .dwg из указанной директории, включая поддиректории.
Просмотров: 10339