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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

))

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

(setvar "BLIPMODE" bm)

(setvar "CMDECHO" ce)

(princ)

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

7.3.14 plita.lsp

;=====================ПЛИТА ПОКРЫТИЯ========================

(defun C:ПЛИТА(/ spl dpl traz ugol plit mash tvst)

(setq ce (getvar "CMDECHO"))

(setq bm (getvar "BLIPMODE"))

(setvar "CMDECHO" 0)

(setvar "BLIPMODE" 0)

(defun rtd(a)

(/ (* a 180.0) PI)

)

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

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

(initget 7)

(setq traz(getstring"\nРазрез ПРодольный/ПОперечный:"))

(if (eq traz "ПР") (setq r 1))

(if (eq traz "ПО") (setq r 0))

(initget 7)

(setq spl(getreal"\nШирина плиты,м 1.5/3:"))

(initget 7)

(setq dpl(getint"\nДлина плиты,м 6/12:"))

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

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

(setq ugol(getangle tvst "\nУгол наклона:"))

(setq ug(rtd ugol))

(setq plit(cond

((and (= dpl 12) (= spl 3)   (= r 0)) "PPR123")

((and (= dpl 12) (= spl 1.5) (= r 0)) "PPR1215")

((and (= dpl 6)  (= spl 3)   (= r 0)) "PPR63")

((and (= dpl 6)  (= spl 1.5) (= r 0)) "PPR615")

((and (= dpl 12) (= spl 3)   (= r 1)) "PP123")

((and (= dpl 12) (= spl 1.5) (= r 1)) "PP1215")

((and (= dpl 6)  (= spl 3)   (= r 1)) "PP63")

((and (= dpl 6)  (= spl 1.5) (= r 1)) "PP615")

))

(command "вставь" plit tvst mash mash ug)

(setvar "BLIPMODE" bm)

(setvar "CMDECHO" ce)

(princ)

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

7.3.15 prost.lsp

(defun C:ПРОСТ(/ kolpr shpr tprv nap ugol stena dl)

(setq ce (getvar "CMDECHO"))

(setq bm (getvar "BLIPMODE"))

(setvar "CMDECHO" 0)

(setvar "BLIPMODE" 0)

(defun dtr(a)

(* PI (/ a 180.0))

)

(defun rtd(a)

(/ (* a 180.0) PI)

)

(command "слой" "С" "$STENI" "" "РЕГЕН")

(initget 7)

(setq dl 60 )

(setq kolpr(getreal"\nКоличество проемов: 0/2/3/4:"))

(setq shpr(getreal"\nШирина проема,м: 0/0.9/1.2/1.5/1.8/2.1:"))

(setq stena(cond   ((= kolpr 0) "prost")

((and (= kolpr 2) (= shpr 0.9)) "prost29")

((and (= kolpr 2) (= shpr 1.2)) "prost212")