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

((and (= stok "С") (= vst 1200) (= tst 120)) "PSRR612")

((and (= stok "С") (= vst 1800) (= tst 120)) "PSRR618")

((and (= stok "С") (= vst 900)  (= tst 70)) "PSPR69")

((and (= stok "С") (= vst 1200) (= tst 70)) "PSPR612")

((and (= stok "С") (= vst 1800) (= tst 70)) "PSPR618")

((and (= stok "О") (= vst 1200) (= tst 200))  "PT20R112")

((and (= stok "О") (= vst 1200) (= tst 240))  "PT24R116")

((and (= stok "О") (= vst 1200) (= tst 300))  "PT30R120")

((and (= stok "О") (= vst 1800) (= tst 200))  "PT20R712")

((and (= stok "О") (= vst 1800) (= tst 240))  "PT24R716")

((and (= stok "О") (= vst 1800) (= tst 300))  "PT30R720")

))

(command "Вставь" verst tvst (* asc (/ 100 mash)) (/ 100 mash) 0)

(initget 7 "Да Нет")

(setq yesno(getkword"\nПродолжить Да/Нет:"))

(if (= yesno "Нет") (setq stop nil)

(setq tvst(polar tvst (dtr 90) (/ vst mash))))

))

; Сброс значений системных переменных

(setvar "BLIPMODE" bm)

(setvar "CMDECHO" ce)

(princ)

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

7.3.20 stenapl.lsp

;=====================СТЕНОВОЕ ОГРАЖДЕНИЕ(ПЛАН)======================

(defun C:СТЕНАПЛ (/ tvs stok vst dst stenpl)

(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" "")

(setq mash(getvar "USERR5"))

(setq stop T)

(initget 7)

(setq tip(getstring"\nПанель Ребристая/Плоская:"))

(if (eq tip "П")

(progn (setq dst 6)

(setq tst(getreal"\nТолщина,мм 300/240/200/70:"))

))

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

(while stop

(progn

(if (eq tip "П")

(setq stok(getstring"\nСтена/Окно:")))

(setq stenpl(cond

((and (eq tip "П") (= tst 300) (eq stok "С")) "PSPP630")

((and (eq tip "П") (= tst 240) (eq stok "С")) "PSPP624")

((and (eq tip "П") (= tst 200) (eq stok "С")) "PSPP620")

((and (eq tip "П") (= tst 300) (eq stok "О")) "POP63045")

((and (eq tip "П") (= tst 240) (eq stok "О")) "POP62445")

((and (eq tip "П") (= tst 200) (eq stok "О")) "POP62045")

7.3.21 ugol.lsp

))

(setq nap(getangle tvs "\nНаправление:"))

(setq ugol(rtd nap))

(command "Вставь" stenpl tvs (/ 100 mash) (/ 100 mash) ugol)

(if (= yesno "Нет") (setq stop nil)

(setq tvs(polar tvs ugol (/ (* dst mash) 10))))

; Сброс значений системных переменных

(setvar "CMDECHO" ce)

(princ)

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

7.3.21 ugol.lsp

(defun C:СОЕД(/ rkol tvst nap ugol)

(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" "" "РЕГЕН")

(setq mas (getvar "USERR5"))

(initget 7)

(setq rkol(getreal"\nСечение колонны /400/<300>:"))

(if (null rkol) (setq rkol 300))

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

(setq nap(getangle tvst "\nУгол:"))

(setq ugol(rtd nap))

(command "Вставь" "ugolz" tvst (/ 100 mas) (/ 100 mas) ugol)

(setvar "BLIPMODE" bm)

(setvar "CMDECHO" ce)

(princ)

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