[dextron3]

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

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

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

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

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



спасибо заранее

[Serge_Y]

А что, у ДЕМа необыТчный автокад??

[dextron3]

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

Код:

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

(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, там приходиться потом взрывать и еще поля задействованы, для обычного обывателя автокада сложно в освоении

[Nike]

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

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

ну вот, делай теперь getpoint, вычисляй координаты и рисуй line. Проще только princ