| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

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

Lisp-прорисовка закладной детали

Ответ
Поиск в этой теме
Непрочитано 30.10.2009, 12:39 #1
Lisp-прорисовка закладной детали
dextron3
 
проектировшик
 
СССР
Регистрация: 01.01.2007
Сообщений: 5,145

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

Вот алгоритм лиспа:

1. Ширина пластины =
2. Высота пластины =
3. Толщина пластины =
4. Оступ стержня от края пластины по касательной =
5. Длинна стежня =
6. Диаметр стержня =
7. Длинна стороны анкеровочной пластины =
8. Толщина анкеровочной пластины =

9. Укажите точку вставки

Вот что должно получиться:
если в лиспе есть возмможность чтобы размеры проставляло вообще бы здорово было, но для начало чтобы просто рисовалось



спасибо заранее
__________________
инженер проектировшик с опттом программа авто гад образование высшие
Просмотров: 2612
 
Непрочитано 30.10.2009, 12:47
#2
Serge_Y

инженер-конструктор
 
Регистрация: 29.05.2004
Минск
Сообщений: 381


А что, у ДЕМа необыТчный автокад??
Serge_Y вне форума  
 
Автор темы   Непрочитано 30.10.2009, 12:48
#3
dextron3

проектировшик
 
Регистрация: 01.01.2007
СССР
Сообщений: 5,145


вот начало думаю такое подсмотрел другой лисп:

Код:
[Выделить все]
(defun C:mn1 ( / Ax By Ct Xy AnL AnD Plxy PlT) 
  (setvar "CMDECHO" 0) 
  (initget 7) 
  (setq Ax (getdist "\nШирина пластины: ")) 
  (initget 7) 
  (setq By (getdist "\nВысота пластины: ")) 
  (initget 7) 
  (setq Ct (getdist "\nТолщина пластины: ")) 
  (initget 7) 
  (setq Xy (getdist "\nОступ стержня от края пластины по касательной: ")) 
  (initget 7) 
  (setq AnL (getdist "\nДлинна стежня: ")) 
  (initget 7) 
  (setq AnD (getdist "\nДиаметр стержня: ")) 
  (initget 7) 
  (setq Plxy (getdist "\nДлинна стороны анкеровочной пластины: ")) 
  (initget 7) 
  (setq PlT (getdist "\nТолщина анкеровочной пластины: "))
Serge_Y, там приходиться потом взрывать и еще поля задействованы, для обычного обывателя автокада сложно в освоении
__________________
инженер проектировшик с опттом программа авто гад образование высшие
dextron3 вне форума  
 
Непрочитано 30.10.2009, 12:55
#4
Nike

Шаражпроектхалтурмонтаж
 
Регистрация: 29.10.2004
Талды-Париж
Сообщений: 5,998


dextron3, а у тебя с LISP-ом совсем никак? ты уже интересовался в прошлом году простейшей программкой по отрисовке прямоугольника: Простая программа отрисовки прямоугольника: Пробовал разобрать код? Это элементарно и ты вполне можешь написать нужную программку себе сам.

Цитата:
вот начало думаю такое подсмотрел другой лисп:
ну вот, делай теперь getpoint, вычисляй координаты и рисуй line. Проще только princ
Nike вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Lisp-прорисовка закладной детали

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Размер отверстия в закладной детали!? Beginer Железобетонные конструкции 4 06.01.2011 13:24
Расчет закладной детали или научите правильно решить задачу.. Казбек Железобетонные конструкции 7 20.07.2009 17:38
Восстановление закладной детали OLEE Железобетонные конструкции 7 10.04.2009 13:35
крепление закладной детали an82 Прочее. Архитектура и строительство 2 16.09.2008 16:37
Узел крепления монолита к закладной детали RomanM Железобетонные конструкции 20 29.05.2007 23:13