[IZH]

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

[CB]

Нет файла vbr_p3.dcl

[Михаил055]

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

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

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

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


Не заметил, что файл приложен.
Щас посмотрим.

[Дима_]

По идеее просто взять и затащить файл lsp в окно автокада, затем набрать в ком. строке GOST5720 - но лисп этот к сожалению не рабочий - выдает ошибку, проверять где она сейчас не могу.

[Supermax]

Код:

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

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

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

[Кулик Алексей aka kpblc]

http://dwg.ru/art/8

[IZH]

Всё сделал как написанно выше всё равно не работает(

[Profan]

СВ написал же выше, что отсутствует файл описания окна диалога vbr_p3.dcl.

[IZH]

И где этот файл взять чтоб заработало

[Supermax]

Написать самому.

[IZH]

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

[Supermax]

А где взял лисп? Колись!

[DEM]

IZH
В армию тебе пора парниша

[IZH]

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

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

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

Ну так что, никто не сможет мне помочь запустить эту прогу? )))

[DEM]

Тебе же сказали на до диалог на 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

[CB]

К тому же, для нормальной работы програмы нужна библилиотека слайдов PDSH.slb.

[IZH]

Есть ещё прога, там есть недостающие файлы PDSH.slb и DSL.
гляньте пожалуйста чего-то тоже не хочет запускаться.

[Holon]

Все работает, загрузи PDSH.lsp

Код:

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

_$ 
; 9 forms loaded from #<editor "U:/LISP/TEST_PRG/pdsh/PDSH.lsp">
_$

и

Код:

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

Command: pdsh

Незабудь прописать дирректорию где ты сохранил файлы в путях Автокада !

[IZH]

Извиняюсь за вопрос, но можно по-подробней объяснить как загрузить, на пальцах так сказать )

[DEM]

Сообщение от IZH Извиняюсь за вопрос, но можно по-подробней объяснить как загрузить, на пальцах так сказать )

ТУД
Программист блина.
Примеряй кирзачи.