[Terzi Ilia]

Здравствуйте!
У меня возникла следующая проблема, которую я хотел бы решить программно. В папке у меня находятся более 100 файло в формате SAT полученных от клиента. Мне нужно импортировать их в Автокад и сохранить в отдельный DWG с именем файла SAT.

Я набросал код, но никак не могу заставить лисп открывать по очереди SAT файлы и сохранять DWG:

Код:

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

 (defun c:sat ()
   (setq spisok_sat (getfiled "Vyberite spisok failov SAT" "" "txt" 8)
	  
       (foreach txt spisok_sat
	     (command "_acisin" lista_files))
  (setvar "filedia" 0)
  (command "_save")
)

Подскажите где рыть? Заранее благодарен!

[Олег (jr.)]

Что нибудь вроде, сначала читаем список файлов,
сохраненных в выбранном файле и добавляем их
в текстовый список, закрываем файл и проводим
вставку объектов из каждого sat файла в рисунок
Команду SAVE лучше выполнить вручную
Без проверки:

Код:

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

(defun c:sat (/ file file_list fn spisok_sat)
   (setq spisok_sat (getfiled "Vyberite spisok failov SAT" "" "txt" 8))
	  (setq fn (open (findfile spisok_sat) "R"))
   (while (setq file (read-line fn))
     (setq file_list (cons file file_list))
     )
   (close fn)
   (setvar "filedia" 0)
       (foreach file file_list
	     (command "_acisin" file "")
	 )
  (setvar "filedia" 0)
   (setvar "cmdecho" 0)
  (command "_qsave")
   (princ)
)

[Terzi Ilia]

Спасибо, Олег!
Попробовал скрипт, но он импортирует все SAT из списка в один DWG и в конце предлагает сохранить как Drawing1.

Я бы хотел чтобы скрипт импортировал SAT из списка в пустой DWG и сохранял этот DWG и именем импортированного SAT. Потом переходил к следующему.

Я слегка изменил твой код, но в этом случае скрипт сохраняет только один DWG и кидает в папку, хранящейся в переменной tempprefix:

(defun c:sat (/ file file_list fn spisok_sat)
(setq spisok_sat (getfiled "Vyberite spisok failov SAT" "" "txt" 8))
(setq fn (open (findfile spisok_sat) "R"))
(while (setq file (read-line fn))
(setq file_list (cons file file_list))
)
(close fn)
(setvar "filedia" 0)
(foreach file file_list
(command "_acisin" file "")
(command "_qsave" file "")
)
(princ)
)

Можно сделать чтобы код переходил сохранял DWG по одному и кидал в ту же папку где сохранены SAT?

[Олег (jr.)]

Нужно тестировать у меня времени нет
навскидку после каждого файла попробуй команду _SAVEAS и тд...
Завтра попробую в Автокаде

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

Terzi Ilia, существуют специальные тэги [code][lisp][/lisp][/code]. Пользуйся ими.

[Terzi Ilia]

Извиняюсь, не знал. Постараюсь исправиться!

[Олег (jr.)]

Пробуй только не пытайся все делать програмно,
закрывай файл .dwt вручную

Код:

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

(defun c:trsat (/ acapp acdocs adoc file file_list fn newdoc sat_list tmpdoc tmppath)
     (setq sat_list (getfiled "Vyberite spisok failov SAT" "" "txt" 8))
	  (setq fn (open (findfile sat_list) "R"))
   (while (setq file (read-line fn))
     (setq file_list (cons (findfile  file) file_list))
     )
   (close fn)
  (setvar "sdi" 0)
(setq acapp  (vlax-get-acad-object)
      adoc   (vla-get-activedocument acapp)
      acdocs (vla-get-documents acapp))
     (setq tmppath (vla-get-templatedwgpath
		     (vla-get-files (vla-get-preferences acapp)))
	   tmpdoc  (findfile (strcat tmppath "\\acadiso.dwt"));; might be "acad.dwt" or other as well
	   newdoc  (vla-add acdocs tmpdoc))
(setq newdoc (vla-get-activedocument acapp))
    (foreach file file_list
	     (vl-cmdf "_acisin" file )
	 )
            (vla-saveAs newdoc (strcat (getvar "dwgprefix") "ImportSat.dwg"));; set a fullname of the new file to save
  (princ)
  )