CAD БИБЛИОТЕКА
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Программа для отрисовки подшипников в AutoLisp

Программа для отрисовки подшипников в AutoLisp

Ответ
Поиск в этой теме
Непрочитано 26.12.2008, 12:40 #1
Программа для отрисовки подшипников в AutoLisp
IZH
 
Регистрация: 26.12.2008
Сообщений: 12

Здравствуйте!
Есть прога для отрисовки подшипников в AutoLISP.
Такой вопрос: как эту прогу заставить работать в AutoCAD?
Прошу строго не судить, т.к я в этом деле новичок )

Вложения
Тип файла: lsp PDSH5720.lsp (38.8 Кб, 205 просмотров)

Просмотров: 3256
 
Непрочитано 26.12.2008, 13:53
#2
CB

Конструирование в области нефтеразведки
 
Регистрация: 10.02.2006
Гомель
Сообщений: 321


Нет файла vbr_p3.dcl
CB вне форума  
 
Непрочитано 26.12.2008, 14:00
#3
Михаил055

Конструктор
 
Регистрация: 16.01.2006
Москва
Сообщений: 68


Сначала загрузить программу (.lsp файл):
(load "filename")
Запустить функцию (писАть в скобках) или команду, определенную в файле.

Тело функции начинается с:
(defan mame_function

Команда:
(defan c:mame_function

Если это посмотреть и определить по силам, то запустишь, если нет, то давай прогу, глянем, скажем как запустить.


Не заметил, что файл приложен.
Щас посмотрим.
Михаил055 вне форума  
 
Непрочитано 26.12.2008, 14:22
#4
Дима_

Продуман
 
Регистрация: 22.02.2007
Питер
Сообщений: 2,843


По идеее просто взять и затащить файл lsp в окно автокада, затем набрать в ком. строке GOST5720 - но лисп этот к сожалению не рабочий - выдает ошибку, проверять где она сейчас не могу.
__________________
Когда в руках молоток все вокруг кажется гвоздями.
Дима_ вне форума  
 
Непрочитано 26.12.2008, 16:45
#5
Supermax

Руководитель фирмы
 
Регистрация: 28.03.2007
Москва
Сообщений: 1,831
Отправить сообщение для Supermax с помощью Skype™


Код:
[Выделить все]
Тело функции начинается с:
(defan mame_function

Команда:
(defan c:mame_function
Supermax вне форума  
 
Непрочитано 26.12.2008, 23:42
#6
Кулик Алексей aka kpblc
Moderator

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


http://dwg.ru/art/8
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 27.12.2008, 12:34
#7
IZH


 
Регистрация: 26.12.2008
Сообщений: 12


Всё сделал как написанно выше всё равно не работает(
IZH вне форума  
 
Непрочитано 27.12.2008, 12:46
#8
Profan


 
Регистрация: 25.12.2005
Москва
Сообщений: 13,663


СВ написал же выше, что отсутствует файл описания окна диалога vbr_p3.dcl.
Profan вне форума  
 
Автор темы   Непрочитано 27.12.2008, 14:50
#9
IZH


 
Регистрация: 26.12.2008
Сообщений: 12


И где этот файл взять чтоб заработало
IZH вне форума  
 
Непрочитано 27.12.2008, 15:51
#10
Supermax

Руководитель фирмы
 
Регистрация: 28.03.2007
Москва
Сообщений: 1,831
Отправить сообщение для Supermax с помощью Skype™


Написать самому.
Supermax вне форума  
 
Автор темы   Непрочитано 28.12.2008, 04:42
#11
IZH


 
Регистрация: 26.12.2008
Сообщений: 12


Сам я не смогу написать, т.к я плохо разбираюсь в этом, помогите пожалуйста, мне ещё курсач по этой теме надо сдать.
IZH вне форума  
 
Непрочитано 28.12.2008, 10:54
#12
Supermax

Руководитель фирмы
 
Регистрация: 28.03.2007
Москва
Сообщений: 1,831
Отправить сообщение для Supermax с помощью Skype™


А где взял лисп? Колись!
Supermax вне форума  
 
Непрочитано 28.12.2008, 13:08
#13
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,864


IZH
В армию тебе пора парниша
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
 
Автор темы   Непрочитано 07.01.2009, 14:14
#14
IZH


 
Регистрация: 26.12.2008
Сообщений: 12


Всех с Новым Годом и Рождеством!!!

Supermax: Лисп скачал с какого-то сайта уже не помню с какого. Есть прога которая рисует основные подшипники, только она тоже не запускается, если тебе надо могу скинуть.

DEM: В армию я ещё успею ) Как говорится в армию не напасть, лишь бы в армии не пропасть )))

Ну так что, никто не сможет мне помочь запустить эту прогу? )))
IZH вне форума  
 
Непрочитано 07.01.2009, 15:23
#15
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,864


Тебе же сказали на до диалог на DCL написать могем скинуть примеры.
Вот примерчик не большой.
Код:
[Выделить все]
// DEM
proba: dialog {label="Сетка";
:row {label="";  
  :column {label="Тип сетки";   
   :popup_list {label="Тип сетки";key="b1";value="0";list="Тип1 \nТип2 \nТип3 \nТип4";edit_width=6;}
:spacer{height=1;}
  }//end of column 
  :column {label="Номер сетки"; 
    :edit_box{label="Номер сетки";key="ns";edit_width=4;} 
  }//end of column 
:radio_column {label="Шапка спецификации";
:radio_button {label="Да";key="Yes1";value=1;}
:radio_button {label="Нет";key="no1";value=0;}
  }//end of column
  :column {label="";  
  }//end of column
  :column {label="                                               ";  
  }//end of column

  }//end of row
:row {label="Вертикальные стержни";
  :column {label="Арматура"; 
    :popup_list {label="Диаметр V";key="d1";list="\n6 \n8 \n10 \n12 \n14 \n16 \n18 \n20 \n22 \n25 \n28 \n32 \n36 \n40";edit_width=4;}    
    :popup_list {label="Класс";key="class1";list="\nА I \nА III";edit_width=5;} 
  }//end of column 
:column {label="Длина";   
 :edit_box{label="LD1:";value="0";key="LD1";edit_width=5;}
    :button{label="Длина V<";key="mousep2";edit_width=5;}
  }//end of column 
:column {label="Шаг"; 
    :edit_box{label="Основн";key="sh1";edit_width=3;}
    :edit_box{label="Доп";key="s1";edit_width=3;}
  }//end of column
:column {label="Выпуски";
    :edit_box{label="Выпуск1";key="v1";edit_width=4;}   
    :edit_box{label="Выпуск2";key="v2";edit_width=4;} 
  }//end of column 
:column {label="Гнутье";
    :edit_box{label="Гнутье1";key="g1";edit_width=4;}   
    :edit_box{label="Гнутье2";key="g2";edit_width=4;} 
  }//end of column 
  }//end of row
   {label=" ";}
:row {label="Горизонтальные стержни";
  :column {label="Арматура"; 
    :popup_list {label="Диаметр G";value="0";key="d2";list="\n6 \n8 \n10 \n12 \n14 \n16 \n18 \n20 \n22 \n25 \n28 \n32 \n36 \n40";edit_width=4;}    
    :popup_list {label="Класс";key="class2";list="\nА I \nА III";edit_width=5;} 
  }//end of column
:column {label="Длина"; 
    :edit_box{label="LD2:";value="0";key="LD2";edit_width=5;}
    :button{label="Длина G<";key="mousep3";edit_width=5;}
  }//end of column 
:column {label="Шаг";     
    :edit_box{label="Основн";key="sh2";edit_width=3;}
    :edit_box{label="Доп";key="s2";edit_width=3;}
  }//end of column
:column {label="Выпуски";
    :edit_box{label="Выпуск1";key="v3";edit_width=4;}   
    :edit_box{label="Выпуск2";key="v4";edit_width=4;} 
  }//end of column 
:column {label="Гнутье";
    :edit_box{label="Гнутье1";key="g3";edit_width=4;}   
    :edit_box{label="Гнутье2";key="g4";edit_width=4;} 
  }//end of column
  }//end of row
   {label=" ";}
    :button {label="Диагональ<";key="mousep4";alignment=centered;fixed_width=true;}
spacer_1;
ok_button;
}// end of dialog
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
 
Непрочитано 07.01.2009, 23:58
#16
CB

Конструирование в области нефтеразведки
 
Регистрация: 10.02.2006
Гомель
Сообщений: 321


К тому же, для нормальной работы програмы нужна библилиотека слайдов PDSH.slb.
CB вне форума  
 
Автор темы   Непрочитано 08.01.2009, 06:47
#17
IZH


 
Регистрация: 26.12.2008
Сообщений: 12


Есть ещё прога, там есть недостающие файлы PDSH.slb и DSL.
гляньте пожалуйста чего-то тоже не хочет запускаться.
Вложения
Тип файла: rar pdsh.rar (134.0 Кб, 94 просмотров)
IZH вне форума  
 
Непрочитано 08.01.2009, 10:58
#18
Holon

CNC
 
Регистрация: 07.07.2007
Israel
Сообщений: 302


Все работает, загрузи PDSH.lsp
Код:
[Выделить все]
_$ 
; 9 forms loaded from #<editor "U:/LISP/TEST_PRG/pdsh/PDSH.lsp">
_$
и

Код:
Незабудь прописать дирректорию где ты сохранил файлы в путях Автокада !
Holon вне форума  
 
Автор темы   Непрочитано 08.01.2009, 13:21
#19
IZH


 
Регистрация: 26.12.2008
Сообщений: 12


Извиняюсь за вопрос, но можно по-подробней объяснить как загрузить, на пальцах так сказать )
IZH вне форума  
 
Непрочитано 08.01.2009, 13:27
#20
DEM

YngIngKllr
 
Регистрация: 29.03.2005
СПб
Сообщений: 12,864


Цитата:
Сообщение от IZH Посмотреть сообщение
Извиняюсь за вопрос, но можно по-подробней объяснить как загрузить, на пальцах так сказать )
ТУД
Программист блина.
Примеряй кирзачи.
__________________
Работаю за еду.
Working for food.
Für Essen arbeiten.
العمل من أجل الغذاء
Працую за їжу.
DEM вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Программа для отрисовки подшипников в AutoLisp

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Программа для трассирования дорог Torino Прочее. Программное обеспечение 8 14.06.2010 13:14
Закладные лифтовых приямков винсент75 Поиск литературы, чертежей, моделей и прочих материалов 13 11.08.2009 10:16
Мониторы LCD CRT Разное 94 17.06.2008 10:51
Юмор 2007 Огурец Разное 1172 29.12.2007 11:16
Программа для построения крюка d2alex Программирование 5 22.06.2007 10:40