Приложение "АВТОГРАФ" для автоматизации процесса формирования графического раздела архитектурно-строительной части проекта, страница 22

(setq vkol(getstring"\nКолонна Крановая/Бескрановая:"))

(initget 7)

(setq tkol(getstring"\nКолонна Крайняя/Средняя:"))

(setq kr 1)

(if (eq tkol "К")

(progn

(initget 7)

(setq levpr(getstring"\nКрайняя Левая/Правая:"))

(if (null levpr) (setq levpr "Л"))

(if (eq levpr "П") (setq kr(- 1 2)))

))

(initget 7)

(setq rkol(getreal"\nВысота колонны,м 7.2/8.4/9.6/10.8:"))

(initget 7)

(setq skol(getint"\nШаг колонны,м 6/12:"))

(setq mash(/ 100 (getvar "USERR5")))

(setq tvst(getpoint"\nТочка вставки:"))

(setq pkol(cond

((and (= skol 12) (= rkol 10.8) (eq vkol "К") (eq tkol "К")) "K96_12KP")

((and (= skol 12) (= rkol 10.8) (eq vkol "К") (eq tkol "С")) "K96_12CP")

((and (= skol 6) (= rkol 10.8) (eq vkol "К") (eq tkol "К")) "K96_6KP")

((and (= skol 6) (= rkol 10.8) (eq vkol "К") (eq tkol "С")) "K96_6CP")

((and (= skol 12) (= rkol 9.6) (eq vkol "К") (eq tkol "К")) "K96_12KP")

((and (= skol 12) (= rkol 9.6) (eq vkol "К") (eq tkol "С")) "K96_12CP")

((and (= skol 6) (= rkol 9.6) (eq vkol "К") (eq tkol "К")) "K96_6KP")

((and (= skol 6) (= rkol 9.6) (eq vkol "К") (eq tkol "С")) "K96_6CP")

((and (= skol 6) (= rkol 8.4) (eq vkol "К") (eq tkol "К")) "K84_6KP")

((and (= skol 6) (= rkol 8.4) (eq vkol "К") (eq tkol "С")) "K84_6CP")

((and (= skol 12) (= rkol 9.6) (eq vkol "Б") (eq tkol "К")) "C72_12KP")

((and (= skol 12) (= rkol 9.6) (eq vkol "Б") (eq tkol "С")) "C72_12CP")

((and (= skol 12) (= rkol 8.4) (eq vkol "Б") (eq tkol "К")) "C72_12KP")

((and (= skol 12) (= rkol 8.4) (eq vkol "Б") (eq tkol "С")) "C72_12CP")

((and (= skol 12) (= rkol 7.2) (eq vkol "Б") (eq tkol "К")) "C72_12KP")

((and (= skol 12) (= rkol 7.2) (eq vkol "Б") (eq tkol "С")) "C72_12CP")

((and (= skol 6) (= rkol 7.2) (eq vkol "Б") (eq tkol "К")) "C72_6KP")

((and (= skol 6) (= rkol 7.2) (eq vkol "Б") (eq tkol "С")) "C72_6CP")

))

(command "вставь" pkol tvst (* mash kr) mash 0)

(setvar "BLIPMODE" bm)

(setvar "CMDECHO" ce)

(princ)

);==========================КОНЕЦ========================================

7.3.13 pkolr.lsp

;=================Колонны промышленные======================

(defun C:ПКОЛР(/ vkol tkol skol rkol pkol mash tvst)

(setq ce (getvar "CMDECHO"))

(setq bm (getvar "BLIPMODE"))

(setvar "CMDECHO" 0)

(setvar "BLIPMODE" 0)

;========================Программа==========================

(command "слой" "С" "$BAZA" "")

(initget 7)

(setq vkol(getstring"\nКолонна Крановая/Бескрановая:"))

(initget 7)

(setq tkol(getstring"\nКолонна Крайняя/Средняя:"))

(setq kr 1)

(if (eq tkol "К")

(progn

(initget 7)

(setq levpr(getstring"\nКрайняя Левая/Правая:"))

(if (null levpr) (setq levpr "Л"))

(if (eq levpr "П") (setq kr(- 1 2)))

))

(initget 7)

(setq rkol(getreal"\nВысота колонны,м 7.2/8.4/9.6/10.8:"))

(initget 7)

(setq skol(getint"\nШаг колонны,м 6/12:"))

(setq mash(/ 100 (getvar "USERR5")))

(setq tvst(getpoint"\nТочка вставки:"))

(setq pkol(cond

((and (= skol 12) (= rkol 10.8) (eq vkol "К") (eq tkol "К")) "K10812K")

((and (= skol 12) (= rkol 10.8) (eq vkol "К") (eq tkol "С")) "K10812C")

((and (= skol 6) (= rkol 10.8) (eq vkol "К") (eq tkol "К")) "K108_6K")