Геоинформационные системы (ГИС) и Дистанционное зондирование Земли
https://gis-lab.info/forum/
Код: Выделить всё
(defun C:SetWGS ()
(setvar "CMDDIA" 0)
(command "ADESETCRDSYS" "_ses" "LL84" "_ex")
(setvar "CMDDIA" 1)
(princ)
) можноМожно назначить сразу целому множеству уже существующих файлов dwg нужную СК.
Нужно только всё в "3_трансформация_координат_из_dwg_в_dwg" записать как скрипт...создать другие dwg-файлы с другой СК
Это был не вопрос, а утверждениеАлексЮстасу писал(а):Можно назначить сразу целому множеству уже существующих файлов dwg нужную СК.
Т.е. в самом Map такой сервис сейчас не реализован?АлексЮстасу писал(а):Нужно только всё в "3_трансформация_координат_из_dwg_в_dwg" записать как скрипт...
А я, только сегодня заметилЭто был не вопрос, а утверждение
Код: Выделить всё
-MapImport
MAPINFO
имя файла
Нет
С
У
Гидротехн_t
Д
С
С
Д
Код
В
ВС Вашей бесценной подачиtrir писал(а):сохраняешь как текстовый файл с расширением .scr и выполняешь командой "Пакет"
уперся, потерял очередную кучку нервов, но накропал:
Код: Выделить всё
CMDDIA
0
FILEDIA
0
_new
[i]Шаблон для нового файла.dwt[/i]
_MODEL
_ADESETCRDSYS
_s
[i]Код системы координат, в которую нужно трансформировать[/i]
_x
_ADEDRAWINGS
_at
[i]Подключаемый файл, который будет трансформирован.dwg[/i]
_x
_ADEQUERY
_c
_d
_l
_a
_x
_e
_d
_ADEDRAWINGS
_de
[i]Отключаемый подключенный файл.dwg[/i]
_x
_zoom
_e
_SAVEAS
2004
[i]Сохраняем куда нужно трансформированные данные с новым именем.dwg[/i]
CMDDIA
1
FILEDIA
1сам думаю...А как это сделать пакетно - для каждого файла из указанного их множества?
Код: Выделить всё
CMDDIA
0Код: Выделить всё
(setvar "CMDDIA" 0) Код: Выделить всё
_ADEQUERY
_c
_d
_l
_a
_x
_e
_dКод: Выделить всё
(command "_ADEQUERY" "_c" "_d" "_l" "_a" "_x" "_e" "_d")Код: Выделить всё
(setq Test_dwg "[i]Подключаемый файл, который будет трансформирован.dwg[/i]")
(command "_ADEDRAWINGS" "_at" Test_dwg "_x")Я не владею лиспом. Например, я не в курсе, можно ли "0" в первом лисп-выражении писать без кавычек? (Другие же параметры в кавычках?). И второй финт я пока не в состоянии оценить, и что, как и куда можно "вынести в пакетный файл".trir писал(а):В командной строке АкАд'а можно выполнять lisp-выражения, это же справедливо для пакетных файлов
Это значит, чтоможно заменить наКод: Выделить всё
CMDDIA 0Это улучшает читабельность, а так же позволяет сделать такой финт ушами:Код: Выделить всё
(setvar "CMDDIA" 0)Причём "setq" можно вынести в другой пакетный файл и запускать из него первый...Код: Выделить всё
(setq Test_dwg "[i]Подключаемый файл, который будет трансформирован.dwg[/i]") (command "_ADEDRAWINGS" "_at" Test_dwg "_x")
Код: Выделить всё
_qnew
(command "_ADESETCRDSYS" "с" "Pulkovo42.LL" "вЫход")
(command "-MapImport" "mapinfo" "D:\\work\\process\\objects\\1604\\Ирк._обл.таб\\Т_город_500.TAB" "Нет" "С" "У" "Т_город_500" "С" "Д" "Код" "Д" "С" "В" "В")
(command "_saveas" "2007" "D:\\work\\process\\objects\\1604\\dwg\\label\\Т_город_500.dwg")Код: Выделить всё
(setq layer_name "Т_город_500.TAB")
(setq path1 "D:\\work\\process\\objects\\1604\\Ирк._обл.таб\\")
(setq path2 "D:\\work\\process\\objects\\1604\\dwg\\label\\")
_qnew
(command "_ADESETCRDSYS" "с" "Pulkovo42.LL" "вЫход")
(command "-MapImport" "mapinfo" (strcat path1 layer_name) "Нет" "С" "У" "Т_город_500" "С" "Д" "Код" "Д" "С" "В" "В")
(command "_saveas" "2007" (strcat path2 layer_name))Код: Выделить всё
(defun cr_dwg (layer_name path1 path2 /)
(command "_qnew")
(command "_ADESETCRDSYS" "с" "Pulkovo42.LL" "вЫход")
(command "-MapImport" "mapinfo" (strcat path1 layer_name ".TAB") "Нет" "С" "У" layer_name "С" "Д" "Код" "Д" "С" "В" "В")
(command "_saveas" "2007" (strcat path2 layer_name ".TAB"))
)