Форматы некоторых команд языка AutoLISP

Установка типа линий

(command "ТИПЛИН" "У" "N")

"У" — установить;

"N"—название типа линии, например: "сontinuous" — сплошная; "center"—осевая.

Отрезок

(сommand "ОТРЕЗОК" L1 L2 "")

L1, L2 — коодинаты начала и конца отрезка.

Полилиния

(сommand "ПЛИНИЯ" L1 L2 L3 L4 L1 "")

L1 L2 LЗ L4 L1 — координаты точек полилинии.

Окружность

(сommand "КРУГ" L1 L2)

L1, L2 — координаты центра круга и радиус круга.

Зеркальное отображение.

(сommand "ЗЕРКАЛО" "Е" "Р" W1 W2 L1 L2 "Н")

"Е" — единственный объект;

W1, W2 — координаты первого и второго угла рамки;

L1, L2 — координаты оси отражения;

"Н" — не удалять старые объекты.

Простановка линейных размеров.

(command "РАЗМЕР" "N" L1 L2 L3 ""

"РАЗМЕР" "ВЫХ")

"N" — тип размера, например: "ГОР" — горизонтальный; "ВЕР" — вертикальный.

L1, L2 — координаты точек начала выносных линий;

L3 — координата точки размерной линии.

Написание текста.

(command "ТЕКСТ" "N" W1 "H" "A" Z1)

"N" — способ центрирования текста, например: "Ц" — по центральной точке.

"H" — высота текста;

"A" — угол поворота текста;

Z — текст.

Штриховка.

(command "ШТРИХ" "N" "S" "A" L "")

"N" — код образца штриховки, например: "ansi31";

"S" — масштаб штриховки, например: "30";

"A" — угол наклона штриховки, например: "0";

L — координата точки замкнутой полилинии, ограничивающей штрихуемую область.

Пример разработки графической программы

Исходное параметризованное графическое изображение:

Текст графической программы

(defun vt()

;Ввод исходных данных:

(setq bp (getpoint "\nВведите нач.точку : ")

d (getdist "\nВведите диаметр отверстия d: ")

A (getdist "\nВведите высоту ступицы A : ")

B (getdist "\nВведите высоту обода B : ")

z1 (getstring "\n Введите наименование детали : ")

z2 (getstring "\n Введите Ф.И.О. : ")

z3 (getstring "\n Введите группу : ")

)

Расчет диаметров D1 и D2:

(setq D1 (+ (* 2 d) 10)

D2 (+ d 10)

)

;Определение опорных точек;

(setq pi2 (/ pi 2) ; pi2 - угол p/2

L1 (polar bp (* 3 pi2) (/ D1 2))

L2 (polar L1 0 B)

L3 (polar L2 pi2 (/ (- D1 D2) 2))

L4 (polar L3 0 A)

L5 (polar L4 pi2 D2)

L6 (polar L5 pi A)

L7 (polar L6 pi2 (/ (- D1 D2) 2))

L8 (polar L7 pi B)

L9 (polar L8 (* 3 pi2) (/ (- D1 d) 2))

L10 (polar L9 0 (+ A B))

L11 (polar L10 (* 3 pi2) d)

L12 (polar L11 pi (+ A B))

)

;Вычерчивание основного контура:

(command "ПЛИНИЯ" L12 L1 L2 L3 L4 L11 L12 ""

"ПЛИНИЯ" L9 L10 L5 L6 L7 L8 L9 ""

)

(command "ОТРЕЗОК" L12 L9 ""

"ОТРЕЗОК" L10 L11 ""

)

; Вычерчивание осевой линии:

;Выбор типа линии:

(command "ТИПЛИН" "У" "center" "")

(command "ОТРЕЗОК" (list (-(car bp) 10) (cadr bp))

(list (+(car bp) 10 A B ) (cadr bp))""

)

; Простановка размеров:

(command "ТИПЛИН" "У" "continuous" "")

(command "РАЗМЕР" "ВЕР" L1 L8 (list(-(car bp) 10) (cadr L1)) ""

"РАЗМЕР" "ВЕР" L4 L5 (list(+(car L5) 30) (cadr L5)) ""

"РАЗМЕР" "ВЕР" L11 L10 (list(+(car L10) 15) (cadr L11)) ""

"РАЗМЕР" "ГОР" L1 L2 (list(car L1) (-(cadr L1) 15)) ""

"РАЗМЕР" "ГОР" L2 L4 (list(car L2) (-(cadr L2) 15)) ""

"РАЗМЕР" "ВЫХ"

)

; Написание текста:

(setq w1 (list (+(car bp)(/(+ A B) 2)) (+(cadr L8) 20)) ;начальные

w2 (list (+(car bp)(/(+ A B)2)) (-(cadr L1) 30)) ;точки

w3 (list (+(car bp)(/(+ A B)2)) (-(cadr L1) 40)) ;текста

)

(command "ТЕКСТ" "Ц" w1 "8" "" z1

"ТЕКСТ" "Ц" w2 "5" "" z2

"ТЕКСТ" "Ц" w3 "5" "" z3

)

; Рисование штриховки:

(command "ШТРИХ" "ansi31" 30 0 l6 "" ;штриховка замкнутых

"ШТРИХ" "ansi31" 30 0 l3 "" ;полилиниями областей

)

)

Дата добавления: 2014-12-09; просмотров: 344; Нарушение авторских прав

Мы поможем в написании ваших работ!