Как прикрепить базу даных с объкту в автокаде?

nikol · 06.11.2007, 06:56

Задача: необходимо сделать на геологической карте описание шурфов. Возможно ли сделать так, чтоб щелкнув по объекту в автокаде вылазило описание. либо может как-то можно приекрепить .doc или .xls фаил. подскажите в каком направлении нужно двигаться.

ShaggyDoc · 08.11.2007, 21:33

Holon, наличие существующих систем всё усложняет. Это не работа с каким-нибудь отдельным DBF-файлом или БД "настольного" вида наподобие Access.

Системы наверняка работают с SQL-сервером, а это значит, что на сервере реализуется своя бизнес-логика, имеются множество таблиц, отношения между ними, могут быть хранимые процедуры, триггеры, Views и прочее. Вмешиваться во всё это надо очень осторожно. Надо досконально знать структуру баз данных, логику работы.

LISP для этого менее всего подходит (уж лучше VB). Зайдите на сайт, указанный в #7, возьмите библиотеку ADOLisp. Это очень хорошая библиотека (лучше нет), но она как раз продемонстрирует ограниченные возможности. Различия между ней и настоящими системами такие же, как между презентационным макетом автомобиля и промышленным образцом.

Сделать в AutoCAD связку с собственной БД не очень сложно. "Для дома, для семьи".

Вмешиваться в существующую промышленную систему надо на профессиональной основе. Вы же только "открываете" для себя аббревиатуру ADO, только пытаетесь разобраться с SQL, да и в LISP тоже на начальном уровне. Рановато за такую работу браться. Надо много изучать. Одно только "Введение в базы данных", где излагаются основы SQL, имет объём более 1000 страниц.

Удачи!

Holon · 11.11.2007, 15:01

Не притендую на авторские права, это пример кода для подключения к MS SQL серверу и вставку данных в таблицу, с использованием Библиотеки ADOLISP, самое ценное здесь это строка подключения. Библиотеку можно скачать у авторов, URL в 7- ом топике.

Код:

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

(if (not ADOLISP_ConnectToDB)
  (load "ADOLISP_Library.lsp")
)

(defun C:MYADO (/ ConnectionObject Result ConnectString SQLStatement
                  TablesList ColumnsList)
                 )
  (setq ConnectString
"Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=RAFI-75D23D089C\\SQL;Initial  Catalog=Glass")
  (prompt (strcat "\n\nConnecting to the database using \n\""  ConnectString "\"" ))
  (if (not (setq ConnectionObject (ADOLISP_ConnectToDB ConnectString "Ivan" "12345")))
  (progn (prompt "\nConnection failed!")(ADOLISP_ErrorPrinter))
  (prompt "\nResult: succeeded!"))
  ;; If we got a connection ...
  (if ConnectionObject
  (progn (setq SQLStatement
" use Glass
SELECT * FROM MyTable
INSERT INTO MyTable
 (
  [Customer],
  [Number_Mun],
  [Number_Cust],
  [Card_Cust],
  [Adress])
VALUES 
 ('Ivan',
  55555,
  55555,
  55555,
  'Komarovo'
 )")
  (prompt (strcat "\n\nInserting a row:\n\""  SQLStatement  "\""))
  (if (setq Result (ADOLISP_DoSQL ConnectionObject SQLStatement))
  (prompt "\nResult:\nSucceeded!")(progn(prompt "\nFailed!")(ADOLISP_ErrorPrinter)))
  (prompt "\n\nDisconnecting from the database\n")
      (ADOLISP_DisconnectFromDB ConnectionObject)
      (setq ConnectionObject nil)
    )
  )
  (prin1)
)
(prin1)

Кулик Алексей aka kpblc · 11.11.2007, 15:57

В отместку: один из вариантов, которым я пользуюсь (правда, у меня база на Access, но суть ИМХО это мало поменяет - достаточно слегка отредактировать одну (!) функцию. Какую - не скажу, и так понятно

).
Вроде ничего не забыл...

Holon · 11.11.2007, 19:21

Вопрос как сделать выборку с MSSQL вот пример запроса к серверу, проверяем
его работу вначале на самом сервере, а потом из *.lsp кода програмно,

Код:

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

(defun C:qqq (/ ConnectionObject Result ConnectString SQLStatement
                  TablesList ColumnsList)                 
  (setq ConnectString
"Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=RAFI-75D23D089C\\SQL;Initial  Catalog=Glass")
  (prompt (strcat "\n\nConnecting to the database using \n\""  ConnectString "\"" ))
  (if (not (setq ConnectionObject (ADOLISP_ConnectToDB ConnectString "Ivan" "12345")))
  (progn (prompt "\nConnection failed!")(ADOLISP_ErrorPrinter))
  (prompt "\nResult: succeeded!"))
  ;; If we got a connection ...
  (if ConnectionObject
  (progn (setq SQLStatement
"USE Glass
SELECT Number_Cust 
FROM MyTable
WHERE Number_Cust > 22223
ORDER BY Card_Cust ASC"
)
  (prompt (strcat "\n\nInserting a row:\n\""  SQLStatement  "\""))
  (if (setq Result (ADOLISP_DoSQL ConnectionObject SQLStatement))
  (prompt "\nResult:\nSucceeded!")(progn(prompt "\nFailed!")(ADOLISP_ErrorPrinter)))
  (prompt "\n\nDisconnecting from the database\n")
      (ADOLISP_DisconnectFromDB ConnectionObject)
      (setq ConnectionObject nil)
    (print Result)
    )
  )
  (prin1)
)
(prin1)

переменная
"Result" возвращает мне "Т"

Код:

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

Command:qqq
Connecting to the database using
"Provider=MSDataShape;Data Provider=SQLOLEDB;Data 
Source=RAFI-75D23D089C\SQL;Initial  Catalog=Glass"
Result: succeeded!

Inserting a row:
"USE Glass
SELECT Number_Cust
FROM MyTable
WHERE Number_Cust > 22223
ORDER BY Card_Cust ASC"
Result:
Succeeded!

Disconnecting from the database

T

Command:

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

Кулик Алексей aka kpblc · 11.11.2007, 19:52

Если установлено соединение с БД, и оно сохранено в переменной conn, и используется вариант из #23, то можно сделать так (естественно, проверить не могу):

Код:

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

(setq result (_kpblc-db-sql-open-connection conn "select Number_Cust from MyTable where ((([Number_Cust])>22223));"))

В переменной result будет нечто типа

Код:

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

'(("Number_Cust")
  (67895)
  (55555)
  (55555)
  (55555)
 )

Первый подсписок - имена полей, дальше списки данных. Но выбирать только по Number_Cust ИМХО недостаточно. Можно попробовать сделать так:

Код:

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

(setq result (_kpblc-db-sql-open-connection conn "select * from MyTable where ((([Number_Cust])>22223));"))

и в переменной result будет полный список полей MyTable. Проходя по записям, можно будет и дальше данные "выцеплять". Ну или сразу построить нормальный SQL-запрос, который и выполнит 90% работы.

ShaggyDoc · 12.11.2007, 06:42

Holon, SQL в СУБД - это примерно как AutoLISP в AutoCAD. SQL-запрос - строка, передаваемая серверу. В ответ может быть получен результат. А может и не быть получен, могут и всякие ошибки быть. Результат обычно надо как-то визуализировать. Да и запрос тоже надо формировать с помощью какого-то построителя, а не путем набора текста.

Представьте, что работаете с Автокадом только через текстовое окно, набирая в нем на клавиатуре LISP-выражения, а графики вообще не видите. Результат будет плачевный.

Приведенный пример - это уровень "Hello, Word". "SELECT * FROM...." может вернуть и миллионы записей. Которые должны прилететь по сети и как-то обработаться. В СУБД так не делается. И не факт, что пользователю, от чьего имени делается запрос это вообще позволено. Там могут и роли быть.

Запрос "INSERT ...." еще опасней. Это изменение БД. Значит должны быть соответствующие права, но ещё должны проводиться какие-то действия и с другими таблицами, индексами и прочим. Иначе будет нарушена целостность БД.

Вот потому и делаются специальные программы. Есть универсальные, которые позволяют работать с любой БД сервера определенного типа. Они предназначены для самих разработчиков СУБД. В таких программах есть всегда и окно SQL. Только с SQL работают опытные разработчики. При работе из LISP вы даже этого окна не увидите, а будете действовать полностью вслепую.

Для конечных пользователей делаются специальные приложения ("Маркетинг", "Бухучет"). Юзер там не видит никакого SQL. Он выбирает из списков, заполняет формы, видит результаты. SQL работает, но скрыт в программе. На LISP подобные, чуть сложнее HelloWord, приложения не написать.

Но специализированная программа ничего не может сделать в AutoCAD. И если результатом её работы должна быть, например, вставка блока, имя которого хранится в БД, то надо и делать так, чтобы саму вставку делал LISP. А имя этого блока можно получить разными способами, например, через файл. Не исключен вариант, что в БД может быть создана специальная временная таблица для обмена данными с LISP.

Кстати, это форум - пример такой программы. Есть сервер MySQL, есть БД, в ней 95 (!) таблиц. И когда мы смотрим эту ветку, то выполняем запрос наподобие SELECT * FROM VB3_POST WHERE POSTID=14765

Но видим-то мы не сами результаты, а результаты, преобразованные в формат HTML. При этом не только из таблицы, где хранятся тексты постов, а и из множества других таблиц. Такую возможность предоставляет скрипт форума - огромное количество программ, написанных на PHP. Это специальный язык, заточенный на формирование WEB-страниц и на работу с БД.

А теперь представтьте, что всё это надо нарисовать с помощью LISP в AutoCAD...

nikol · Регистрация: 31.03.2007

Цитата:

Сообщение от ShaggyDoc

Excel нельзя. Можно DBF и Access.
При сохранении таблицы выбрать тип файла БД Microsoft Access (tab)
Файл таблицы TAB это текстовый файл, в нем описание структуры. Но формат MDB поддерживается ограниченно.

1. Таблица Access должна содержать колонку типа счетчик. В противном случае MapInfo добавит такую колонку.
2. Таблица Access, переносимая в MapInfo, должна иметь простую структуру, т.е. не должна содержать поля, указывающие на данные другой таблицы Access.
3. Поля типа Memo, OLE, и Replication ID из таблицы Access не переносятся в MapInfo.
4. Текстовые поля не могут быть длиннее 2047 символов. Если длина поля превышает предел в 2047 символов, поле открывается в режиме только для чтения.
Самого вкусного и нет.

Окно Карта, контекстное меню, Управление слоями, кнопка Геолинк

сохранил фаил ТАВ в формате файла БД Microsoft Access (tab)
открываю его в аксесе. добавляю столбец/строку, но при открытии в мапинфо он выдает ошибку и открывать измененую таблицу не желает.

ShaggyDoc · 12.11.2007, 07:39

Цитата:

Сообщение от nikol

сохранил фаил ТАВ в формате файла БД Microsoft Access (tab)
открываю его в аксесе. добавляю столбец/строку, но при открытии в мапинфо он выдает ошибку и открывать измененую таблицу не желает.

TAB - это только ссылка на файл базы данных Access. "его в аксесе" открыть нельзя.

"он выдает ошибку". Кто он? Мапинфо - "она", Access - "она". А файлы ничего не выдают, они лежат себе и никого не трогают. Ошибка обычно сопровождается пояснением.

Mapinfo - настольная однопользовательская программа. Открыть файл одновременно в Mapinfo и Access не получится. И не надо - Mapinfo работает с MDB прямым доступом, с учетом ограничений, и запросто испортит объекты Access, если они там есть.

nikol · 12.11.2007, 10:05

Я не правильно выразился, сори. Как все таки мне присоединить таблицу с 5 ячейками и 5 колонками в MapInfo? Подскажите пожалуйста простым понятным любому пользователю языком. Заранее очень благодарен

Holon · 12.11.2007, 10:42

Ув. ShaggyDoc вы меня наверное неправильно поняли, я несобираюсь писать
программы на LISP для "Менеджеров", "Бух. учета" и т.д. я лишь хочу передовать в отдельную таблицу сведения о кол-ве и типе "Расходного материала" потраченных на
определенного "Клиента", а потом уже специалисты и админы свяжут мои данные с
их хитрозапутанными таблицами и данными в их "Апликациях".

-> Кулик Алексей aka kpblc мой код заработал, я только поменял строку запроса и сделал ее как у тебя, хотя очень странно ведь свой предыдущий запрос я проверял на самом сервере и он работал, я даже картинку выставил в 24-ом топике с этим запросом, получается запрос сделанный на сервере и в LISP имеет различный синтаксис

вот мой пример с твоим запросом

Код:

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

(defun C:qqq (/ ConnectionObject Result ConnectString SQLStatement
                  TablesList ColumnsList)                 
  (setq ConnectString
"Provider=MSDataShape;Data Provider=SQLOLEDB;Data Source=RAFI-75D23D089C\\SQL;Initial  Catalog=Glass")
  (prompt (strcat "\n\nConnecting to the database using \n\""  ConnectString "\"" ))
  (if (not (setq ConnectionObject (ADOLISP_ConnectToDB ConnectString "Ivan" "12345")))
  (progn (prompt "\nConnection failed!")(ADOLISP_ErrorPrinter))
  (prompt "\nResult: succeeded!"))
  ;; If we got a connection ...
  (if ConnectionObject
  (progn (setq SQLStatement
;;;"USE Glass
;;;SELECT Number_Cust 
;;;FROM MyTable
;;;WHERE Number_Cust > 22223
;;;ORDER BY Card_Cust ASC"
"select Number_Cust from MyTable where ((([Number_Cust])>22223));"		
)
  (prompt (strcat "\n\nInserting a row:\n\""  SQLStatement  "\""))
  (if (setq Result (ADOLISP_DoSQL ConnectionObject SQLStatement))
  (prompt "\nResult:\nSucceeded!")(progn(prompt "\nFailed!")(ADOLISP_ErrorPrinter)))
  (prompt "\n\nDisconnecting from the database\n")
      (ADOLISP_DisconnectFromDB ConnectionObject)
      (setq ConnectionObject nil)
    (print Result)

    )
  )
  (prin1)
)
(prin1)

А вот результат:

Код:

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

Command: qqq


Connecting to the database using
"Provider=MSDataShape;Data Provider=SQLOLEDB;Data 
Source=RAFI-75D23D089C\SQL;Initial  Catalog=Glass"
Result: succeeded!

Inserting a row:
"select Number_Cust from MyTable where ((([Number_Cust])>22223));"
Result:
Succeeded!

Disconnecting from the database

(("Number_Cust") ("67895     ") ("55555     ") ("55555     ") ("66666     "))

Command:

Кулик Алексей aka kpblc · 12.11.2007, 11:18

У тебя в поле Number_Cust какой тип данных? REAL или CHAR? Потому что я-то строил SQL-запрос для REAL-значений.
P.S. Я бы твою команду переделал как функцию все же, с передачей строки соединения, логина и пароля пользователя (возможно, шифрованного, с последующей "дешфрацией"). Ну или Data Source, логин и пароль.

Holon · 12.11.2007, 11:29

Тип данных в поле Number_Cust (nchar(10),nil) 10-знаков и возможен "НИЛ"

ShaggyDoc · 12.11.2007, 11:33

Цитата:

Сообщение от nikol

Я не правильно выразился, сори. Как все таки мне присоединить таблицу с 5 ячейками и 5 колонками в MapInfo? Подскажите пожалуйста простым понятным любому пользователю языком. Заранее очень благодарен

В таблице нет "ячеек". Имеются записи (строки) и поля (колонки). Записей может быть сколько угодно, а полей столько, сколько задано в структуре таблицы.

"Присоединить" к чему? Таблица создается в Mapinfo Файл-Новая таблица. Далее в диалоге вводите требуемый набор полей. Что неясно - жмете кнопку Справка.

Если к таблице понадобится присоединять географическую информацию, надо включить флажок Можно присоединять географические объекты, а также щелкнуть кнопку Проекция и задать проекцию карты, в которой будут отображаться географические объекты.

Вообще лучше сначал прочитать документацию - там все разжевано очень подробно. Также работает клавиша F1.

Цитата:

Ув. ShaggyDoc вы меня наверное неправильно поняли, я несобираюсь писать программы на LISP для "Менеджеров", "Бух. учета" и т.д. я лишь хочу передовать в отдельную таблицу сведения о кол-ве и типе "Расходного материала" потраченных на
определенного "Клиента",

Я очень хорошо понял. Я предупредил, что в БД, с которой работают другие программы, могут быть сложности с передачей данных даже в отдельную таблицу.

К тому же ранее было написано:

Цитата:

лиш хочу считывать информацию с баз данных и вставлять ее в формы ввиде блоков с атрибутами, да и возможно менять некоторые данные с помощью простых запросов

"Лишь считывать", "лишь передавать", "возможно менять" - очень разные вещи. "Вставлять её в формы в виде блоков с атрибутами" - тоже надо определяться. Есть в БД блоки с атрибутами? Что такое "формы"? Бумажные отчеты? Окно программы? SHAPE в AutoCAD? Это ведь всё "формы".

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

Holon · 12.11.2007, 22:44

Вопрос может показаться смешным, но после создания подключения в "dbconnect" невозмозно удалить, ранее созданные ненужные "соединения", на картинке список соединений, как например удалить "Connect1",
или это "БАГ" ACada?

nikol · 13.11.2007, 06:42

Уважаемый ShaggyDoc. вот таблица которую необходимо привязать к объекту в MapInfo. каким образом можно это сделать?

ShaggyDoc · 13.11.2007, 08:45

Цитата:

Сообщение от nikol

Уважаемый ShaggyDoc. вот таблица которую необходимо привязать к объекту в MapInfo. каким образом можно это сделать?

Как привязать?

1. Такую таблицу (сразу несколько строк) к каждому объекту, например, к скважине?

2. Или каждая строка такой таблицы из 26 колонок - самостоятельный объект?

В первом варианте создаете таблицу, в которой, кроме прочих полей, есть какое-то строковое поле с именем, например, "Документация". Затем с помощью Геолинк заносите в это поле ссылку на файл документации. Возможно, один и тот же файл будет и для разных объектов.

Во втором варианте создаете таблицу Mapinfo с 26 полями. Учтите, что имена полей должны быть короткими и однословными. "[FONT='Arial CYR']Относительная просадочность при ρ = кг/см3" - недопустимое имя. Придется давать маловразумительные имена, например "Просад_01".[/FONT]

[FONT='Arial CYR']Теперь, создавая объект, надо заносить в его атрибуты, т.е. в соответствующие поля, требуемые данные. Каждая точка, линия, полигон будут связаны с записью таблицы.[/FONT]

Holon · 21.11.2007, 09:29

То что мне нужно было, как всегда придумали за меня, вчера только узнал о существовании продукта Autodesk Vault он поставляется с "Инвентором" и "Механикл", это пример использования возможностей сервера SQL для создания
архивов, причем сами чертежи хранятся в отдельной директории, а управление по именам и версиям чертежей, производится "БД" на "Сервере SQL".

Кулик Алексей aka kpblc · 21.11.2007, 09:45

Ага, только Vault (также как и ProjectStream) максимально заточен под машиностроение и не всегда он "самое то" для смежных отраслей; Vault требует отдельного выделенного сервера с развернутым на нем MS SQL Server 2000 (2005 и 2005 Express работает не всегда корректно); теоретически Vault интегрирован в Inventor и Civil, опять же теоретически позволяется его интегрировать и с AutoCAD 2007, но как это выглядит на практике - лично я не знаю.
И, наконец, самое главное: Vault в твоей задаче (как она звучала в самом начале) вряд ли поможет. Хотел бы я ошибаться...

Holon · 21.11.2007, 11:27

Я действительно незнаком с этим продуктом, я хочу изучить его, прежде чем создавать что-то, возмозно взять на вооружение какие-либо идеи.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
как отключить в автокаде привязки к штриховкам?	RA	AutoCAD	18	21.03.2017 13:31
как отрегулировать фокус перспективы в автокаде 2004???	kalcha	AutoCAD	5	09.08.2007 02:08
Как создать резьбу в 3Д в Автокаде?	Нико	AutoCAD	2	27.09.2004 19:17
Как в Автокаде в VBA делать паузу на некоторое время	Саша	AutoCAD	2	08.09.2004 19:06
Как в Автокаде в VBA указать окно просмотра (Window)	Саша	AutoCAD	1	06.09.2004 21:40

06.11.2007, 06:56
Как прикрепить базу даных с объкту в автокаде? nikol ГИС, картография Регистрация: 31.03.2007 Сообщений: 51 Задача: необходимо сделать на геологической карте описание шурфов. Возможно ли сделать так, чтоб щелкнув по объекту в автокаде вылазило описание. либо может как-то можно приекрепить .doc или .xls фаил. подскажите в каком направлении нужно двигаться. __________________ кроме любви возбуждать могут только деньги!
Просмотров: 10430

	Реклама i