[_Eugene]

Нужно подключать в *.dwg большое количество растровых файлов попадающих в область, заданную прямоугольником (не объектом). Параметры растров (имя файла, координаты, масштаб, угол поворота) записаны в файл (текстовый любого вида).
Версия CADа 2006. (Для 2000/2002 есть rmin15.arx)

[b_anton]

Благодарю! то что надо!

[Vict0r]

Сообщение от Donhuan Функция вставляет рисунки и подрезает их заданной рамкой.

Возвращает: "; ошибка: Ошибка Automation. Ошибка при доступе к файлу"
Что делал:
1. Добавил в код две строки:
...
(defun iim:insert_images (file_path point_1 point_2 / file_ds string_file count_str
vla_image point_3 point_4
point_1_image point_2_image point_3_image point_4_image
path_image list_in_bound list_in_image)
(setq file_path "c:\\proba\\test.txt")
(setq point_2 (getcorner (setq point_1 (getpoint))))
(setq point_3 (list (max (car point_1) (car point_2)) (min (cadr point_1) (cadr point_2)))
point_4 (list (min (car point_1) (car point_2)) (max (cadr point_1) (cadr point_2)))
)
...
2. Сохранил в "c:\proba\rminx.lsp"
3. Создал файл "c:\proba\test.txt" с текстом вида:
c:\OPP\32-02_01-0-8.tif=2154163.799,489028.566,2154863.866,489728.634
c:\OPP\32-02_01-0-9.tif=2154163.799,488328.499,2154863.866,489028.566
c:\OPP\32-02_01-0-10.tif=2154163.799,487628.432,2154863.866,488328.499
c:\OPP\32-02_01-0-11.tif=2154163.799,486928.365,2154863.866,487628.432
(tif-ы по этому пути есть)
4. Команда: (load "c:\proba\rminx.lsp")
5. Команда: (iim:insert_images file_path point_1 point_2) Возвращает: "; ошибка: Ошибка Automation. Ошибка при доступе к файлу"

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

(load "c:\proba\rminx.lsp") - а тут слеши случайно не должны быть двойными?
Возможно, файл либо не сохранен, либо к нему действительно нет доступа. Ну или заменить

Код:

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

 (setq file_path "c:\\proba\\test.txt")

на

Код:

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

 (setq file_path (getfiled "source file" "txt" "" 4))