Schöck
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Подключение растровых изображений ...

Подключение растровых изображений ...

Ответ
Поиск в этой теме
Непрочитано 07.07.2008, 16:28
Подключение растровых изображений ...
_Eugene
 
Регистрация: 07.07.2008
Сообщений: 13

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

Конструктор
 
Регистрация: 19.06.2008
Омск
Сообщений: 35


Благодарю! то что надо!
b_anton вне форума  
 
Непрочитано 12.02.2020, 19:07
#22
Vict0r

Инвентаризация з/у
 
Регистрация: 30.03.2006
Брянск
Сообщений: 16


Цитата:
Сообщение от 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. Ошибка при доступе к файлу"
Vict0r вне форума  
 
Непрочитано 12.02.2020, 19:39
#23
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 37,227


(load "c:\proba\rminx.lsp") - а тут слеши случайно не должны быть двойными?
Возможно, файл либо не сохранен, либо к нему действительно нет доступа. Ну или заменить
Код:
[Выделить все]
 (setq file_path "c:\\proba\\test.txt")
на
Код:
[Выделить все]
 (setq file_path (getfiled "source file" "txt" "" 4))
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Подключение растровых изображений ...

Инженерная школа
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Часть цветных растровых изображений печатается ч/б Dimm_ka AutoCAD 20 10.07.2008 09:32
Редактирование растровых изображений Малюк Разное 31 01.02.2008 00:44
Помогите сшить куски растровых изображений карт Madlenn Прочее. Программное обеспечение 10 08.05.2007 07:01
Редактор растровых изображений Runa AutoCAD 29 27.04.2007 17:56
ZOOM и PAN растровых изображений ытя AutoCAD 9 23.12.2005 12:00