|
||
| Правила | Регистрация | Пользователи | Сообщения за день | | Поиск | | Справка по форуму | Файлообменник | |
|
Поиск в этой теме |
|
||||
Регистрация: 10.12.2008
Сообщений: 122
|
пишет
Enter a number bur: 427 Connecting to the database using "Provider=SQLOLEDB.1;Data Source=MAXIM;Initial Catalog=basa" Result: succeeded! Inserting a row: "SELECT YY FROM bur31 WHERE ((([BUR]) = 427));SELECT XX FROM bur31 WHERE ((([BUR]) = 427));SELECT GL FROM bur31 WHERE ((([BUR]) = 427));" Result: Succeeded! Disconnecting from the database ; error: no function definition: RESULT->POINT |
|||
|
||||
Регистрация: 10.12.2008
Сообщений: 122
|
я поменял значения YY на 1014.5 и XX на 1761.0 теперь нарисовал, как то нужно к координатам AutoCad привязать, а то программа не видит линию на выходе при больших значениях X и Y. При открытии Autocad у меня max значение по X - 2900, а по Y - 1100
|
|||
|
||||
Регистрация: 10.12.2008
Сообщений: 122
|
все работает, пишет
Команда: (if(setq bur (getint "Enter a number bur: "))(qqq bur)) Enter a number bur: 763 Connecting to the database using "Provider=SQLOLEDB.1;Data Source=MAXIM;Initial Catalog=basa" Result: succeeded! Inserting a row: "SELECT YY FROM bur31 WHERE ((([BUR]) = 763));SELECT XX FROM bur31 WHERE ((([BUR]) = 763));SELECT GL FROM bur31 WHERE ((([BUR]) = 763));" Result: Succeeded! Disconnecting from the database Select point by BUR <Quit> : _LINE Укажите первую точку: Укажите следующую точку или [Undo]: Укажите следующую точку или [Undo]: после этого я нашел на чертеже эту линию, сейчас главное чтобы она была видна сразу на чертеже, и скажи, пожалуйста, можно сделать так, чтобы программа сразу рисовала линию, не ставив точку на чертеже, т.е. опускала перпендикуляр от точки (XX,YY) на расстояние GL |
|||
|
||||
Регистрация: 10.12.2008
Сообщений: 122
|
zoom работает, линию нарисовал прямо на чертеже, пишет
Команда: test Select point by BUR <Quit> : _LINE Укажите первую точку: Укажите следующую точку или [Undo]: Укажите следующую точку или [Undo]: Команда: ZOOM Specify corner of window, enter a scale factor (nX or nXP), or [All/Center/Dynamic/Extents/Previous/Scale/Window/Object] <real time>: _w Укажите первый угол: Укажите противоположный угол: Regenerating model. Команда: nil теперь как обойтись без перехода на чертеж, чтобы линия была нарисована как перпендикуляр от точки (XX,YY) на расстоянии GL |
|||
|
||||
Регистрация: 10.12.2008
Сообщений: 122
|
перпендикуляр нарисовался. теперь задача усложняется. в БД есть координата по Z (4-й столбец - "ZZ"). нужно нарисовать в координатной плоскости (X,Y) окружность с центром в точке (XX,YY) - рисунок ris1.jpg, а при переходе в координатную плоскость (X,Z) цилиндр с двумя окружностями, соединенными линиями, на расстоянии GL - рисунок ris2.jpg.
|
|||
|
||||
Регистрация: 10.12.2008
Сообщений: 122
|
Добрый день. Есть приложение на AutoLisp, которое рисует линию с координатами, взятыми из БД sql-сервера. Но оно рисует только одну линию по запросу номера линии. Нужно чтобы оно рисовало множество линий, сколько запросишь, и номер, который запросишь. Помогите, пожалуйста, вот листинг этого приложения.
Код:
|
|||
|
||||
Moderator
LISP, C# (ACAD 200[9,12,13,14]) Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,846
|
Макс_Кунгур, во-первых, теги не забывай проставлять
Во-вторых, нефиг плодить темы. Я их объединил.
__________________
Моя библиотека lisp-функций --- Обращение ко мне - на "ты". Все, что сказано - личное мнение. |
|||
|
||||
Регистрация: 16.10.2013
Сообщений: 19
|
Тут http://allforproject.ru/primer-raboty-koda-lisp-s-subd/ можно посмотреть
|
|||
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
База данных Лира | Koker | Лира / Лира-САПР | 4 | 28.08.2006 15:47 |
База данных площадей помещений с привязкой к замкн. контуру. | elena_din | AutoCAD | 19 | 19.08.2005 13:40 |
база данных программы Autodesk Building Systems 2005 | Angel80 | Прочее. Программное обеспечение | 3 | 06.10.2004 06:28 |