|
||
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
21.06.2005, 08:24 | #1 | |
лисп для открытия *.dwg файла
Регистрация: 15.06.2005
Сообщений: 184
|
||
Просмотров: 8814
|
|
||||
Регистрация: 15.06.2005
Сообщений: 184
|
Что-то не получается выдает ошибку Error:no function definition: ЎЛЎ®¤_color
Цвет объектов по умолчанию <ПОСЛОЮ>: Команда: _layer Текущий слой: "0" Задайте опцию [?/Создать/Установить/Новый/Вкл/Откл/Цвет/Тип линий/вЕс линий/пеЧать/Заморозить/Разморозить/Блок/рАзблок/Конфигурация]: _s Имя слоя для установки текущим или <выбрать объект>: Задайте опцию [?/Создать/Установить/Новый/Вкл/Откл/Цвет/Тип линий/вЕс линий/пеЧать/Заморозить/Разморозить/Блок/рАзблок/Конфигурация]: Команда: ; ошибка: В функции *error* возникла ошибкаНастройка переменной AutoCAD отвергнута: "CMDECHO" nil как только я его уже не пробовал открывать: (command "vbastmt" "AcadApplication.Documents.Open \"C:\\temp.dwg\"") - все равно выдает ошибку... :cry: |
|||
|
||||
Регистрация: 15.06.2005
Сообщений: 184
|
Ввсем большое спасибо за помощь, решил я свою проблемку очень просто. если кому интересно напишу.
в автокаде в командной строке вводим команду sdi и присваиваем значение 1, после этого можно будет файл *.dwg открыть командой _open т.е. ^С^С_open c:/Имяфайла.dwg и все!!! |
|||
|
||||
сисадмин Регистрация: 26.08.2003
Самара
Сообщений: 1,022
|
Ты же сам написал
Цитата:
Цитата:
|
|||
|
||||
Регистрация: 15.06.2005
Сообщений: 184
|
у меня автокад 2002.
а лиспы загружаю так: пробовал по разному даже просто копировал один из лиспов например первый (defun ru-dwg-open-file (dwg_file / n) ;;; Пример: (ru-dwg-open-file "c:\\.ru\\cad\\samples\\dwg\\Dim_test.dwg") (if (= 0 (getvar "SDI")) ;; Для многодокументного режима (SDI=0) открываем новый документ ;; в новом окне. Сохранять открытые не нужно (vla-activate (vla-open (ru-obj-get-docs-collection) dwg_file ) ) (progn ;; для однодокументного режима (if (not (equal 2 (logand 2 (getvar "QAFLAGS")))) (setvar "QAFLAGS" (+ (getvar "QAFLAGS") 2)) ) (if (not (equal 4 (logand 4 (getvar "QAFLAGS")))) (setvar "QAFLAGS" (+ (getvar "QAFLAGS") 4)) ) (command "_.OPEN") ;; Проверяем, не изменялся ли текущий рисунок (if (not (equal 0 (getvar "DBMOD"))) ;; и, если изменялся - передаем опцию "Yes", дескать, сохраняй (command "_y") ) (command dwg_file) (setq n 0) ;; и теперь, пока работает команда OPEN (while (and (< n 4) (wcmatch (getvar "CMDNAMES") "*OPEN*") ) (t ;; на все возможные запросы даем пустой ответ (command "") ) (setq n (+ n 1)) ) (setvar "QAFLAGS" 0) ) ) ) создаю текстовый файл (например openf.lsp) в автокаде захожу в сервис загружаю приложение openf.lsp после чего автокад выдает ошибку: Error:неверная функция: 1_color Цвет объектов по умолчанию <ПОСЛОЮ>: Команда: _layer Текущий слой: "0" Задайте опцию [?/Создать/Установить/Новый/Вкл/Откл/Цвет/Тип линий/вЕс линий/пеЧать/Заморозить/Разморозить/Блок/рАзблок/Конфигурация]: _s Имя слоя для установки текущим или <выбрать объект>: Задайте опцию [?/Создать/Установить/Новый/Вкл/Откл/Цвет/Тип линий/вЕс линий/пеЧать/Заморозить/Разморозить/Блок/рАзблок/Конфигурация]: Команда: ; ошибка: В функции *error* возникла ошибкаНастройка переменной AutoCAD отвергнута: "CMDECHO" nil тоже самое происходит и со вторым лиспом. |
|||
|
||||
Регистрация: 15.06.2005
Сообщений: 184
|
а мне то поможет кто? я уже все форумы просмотрел.
как сделать так чтобы при нажатии одной кнопочки открылся нужный файл, при этом уже открытый не закрылся, т.е. для многодокументального режима работы (sdi=0) можно вообще такое сделать в 2002 автокаде, может не на лиспе а еще как - главное чтобы работало... очень надо, да и не мне одному, судя по вопровам обсуждаемым на форумах |
|||
|
||||
Регистрация: 20.06.2005
Иркутск
Сообщений: 57
|
Цитата:
|
|||
|
||||
Project Engineer Регистрация: 05.01.2005
Лос Анджелес
Сообщений: 1,392
|
Цитата:
|
|||
|
||||
Регистрация: 11.10.2004
e•burg
Сообщений: 755
|
Цитата:
Код:
Код:
|
|||