[s_anse_y]

Мне очень часто приходится загружать в автокад много файлов в jpeg формате чтобы обрисовывать их. Ктонибудь знает как это можно упростить чтобы выделить например 50 картинок и в один клик загрузить их все в автокад одну за одной я нашел лисп, но не знаю как сделать чтобы он работал

(setq loc "C:/my_directory_of_images")
(foreach
  item
  (vl-directory-files loc "*.jpg" 1)
  (command
    "._image"
    "_A"
    (strcat loc "/" item)
    (list 0.0 0.0 0.0)
    1.0
    0.0
  )
)

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

Чтобы лисп работал - см. dwg.ru/art/8

[Profan]

А тебя устроит, что все картинки вставятся в 1 точку и налезут друг на друга?

[s_anse_y]

Не, нужно чтобы желательно одна за одной, а то мне иногда по несколько сотен картинок надо загружать

[Profan]

Следовательно, придется для каждого растра указывать точку вставки и за 1 клик сделать это не удастся...

[s_anse_y]

ну я готов чтобы указывать точку вставки, главное чтобы по сто раз окна не переключать,
Есть функция чтобы из pdf файла вставлять страницы одну за одной, но я проповал несколько раз, это очень тормозит компьютер

[Disney]

Сообщение от Profan Следовательно, придется для каждого растра указывать точку вставки и за 1 клик сделать это не удастся...

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

Код:

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

(defun c:test (/ loc i koord image_ width_ height_ max_Height)
(vl-load-com)
  (setq	loc	(vl-list->string
		  (reverse
		    (cdr (member
			   92
			   (reverse (vl-string->list (getfiled "Любой файл (чтоб путь к папке получить)" "" "jpg" 16)))
			 )
		    )
		  )
		)
	i	0
	koord_V	(getpoint "\nБазовая точка: ")
	shtuk	(getint "\nКоличество картинок в ряд <10>: ")
	shtuk	(if shtuk
		  shtuk
		  10
		)
	koord	koord_V
  )
  (foreach
	    item
		(vl-directory-files loc "*.jpg" 1)
    (VL-CMDF
      "._image"
      "_A"
      (strcat loc "/" item)
      "_non"
      koord
      1.0
      0.0
    )
    (setq image_     (vlax-ename->vla-object (entlast))
	  width_     (vla-get-imagewidth image_)
	  height_    (vla-get-imageheight image_)
	  max_Height (if (> height_ max_Height)
		       height_
		       max_Height
		     )
	  koord	     (list (+ (car koord) width_) (cadr koord) (caddr koord))
    )
    (if	(eq (rem (setq i (1+ I)) shtuk) 0)
      (setq koord      (list (car koord_V)
			     (+ (cadr koord) max_Height)
			     (caddr koord_V)
		       )
	    max_Height 0
      )
    )
  )
)

[Profan]

Offtop:
Они стояли молча в ряд, их было восемь...

[s_anse_y]

Сообщение от Disney Не обязательно, запрашиваем базовую точку и число картинок в ряд...

Обалдеть, именно то что мне надо, Спасибо большое!!!
Капец, прям колдовство какоето!!! все работает круто!!!

[sasha_lif]

Мне очень часто приходится загружать в автокад много файлов в jpeg формате чтобы обрисовывать их

а попробуй программу Aide , это конвертер pdf to dxf
но правда , у тебя jpeg, но может их в pdf, а потом прогой в акад закидывать
ОБводить картинки уже не надо будет

[s_anse_y]

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

[s_anse_y]

ктонибудь знает почему этот код работает на 2007 а на 2010 не работает, очень нужно

Сообщение от Disney Не обязательно, запрашиваем базовую точку и число картинок в ряд... Код: [Выделить все] (defun c:test (/ loc i koord image_ width_ height_ max_Height) (setq loc (vl-list->string (reverse (cdr (member 92 (reverse (vl-string->list (getfiled "Любой файл (чтоб путь к папке получить)" "" "jpg" 16))) ) ) ) ) i 0 koord_V (getpoint "\nБазовая точка: ") shtuk (getint "\nКоличество картинок в ряд <10>: ") shtuk (if shtuk shtuk 10 ) koord koord_V ) (foreach item (vl-directory-files loc "*.jpg" 1) (VL-CMDF "._image" "_A" (strcat loc "/" item) "_non" koord 1.0 0.0 ) (setq image_ (vlax-ename->vla-object (entlast)) width_ (vla-get-imagewidth image_) height_ (vla-get-imageheight image_) max_Height (if (> height_ max_Height) height_ max_Height ) koord (list (+ (car koord) width_) (cadr koord) (caddr koord)) ) (if (eq (rem (setq i (1+ I)) shtuk) 0) (setq koord (list (car koord_V) (+ (cadr koord) max_Height) (caddr koord_V) ) max_Height 0 ) ) ) )

[Disney]

Сообщение от s_anse_y на 2010 не работает

Если так ругается

Код:

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

Команда: ; ошибка: no function definition: VLAX-ENAME->VLA-OBJECT

то исправил