Auto LISP file to make Cross Bracings

(defun c:jns75()
(setq pnt1(getpoint "\n:Pick point Lower Inclined")
pnt2(getpoint "\n:Pick point Upper Inclined")
ang1(angle pnt1 pnt2)
ang2(+ ang1 (/ pi 2))
len1(/ (+ 13.45 (* 21 (sin ang1))) (cos ang1))
pnt3(polar pnt1 ang1 len1)
pnt4(polar pnt3 ang2 21)
len2(/ (+ 13.45 (* 54 (sin ang1))) (cos ang1))
pnt5(polar pnt2 (angle pnt2 pnt1) len2)
pnt6(polar pnt5 ang2 21)
pnt7(polar pnt4 (angle pnt4 pnt3) 75)
pnt8(polar pnt6 (angle pnt4 pnt3) 75)
pnt9(polar pnt4 (angle pnt4 pnt3) 6)
pnt10(polar pnt6 (angle pnt4 pnt3) 6)
pnt11(polar pnt4 (angle pnt4 pnt3) 40)
pnt12(polar pnt11 ang1 40)
pnt13(polar pnt12 ang1 80)
pnt14(polar pnt6 (angle pnt4 pnt3) 40)
pnt15(polar pnt14 (angle pnt2 pnt1) 40)
pnt16(polar pnt15 (angle pnt2 pnt1) 80)
pnt17(polar pnt13 ang1 40)
pnt18(polar pnt17 ang2 50)
pnt19(polar pnt18 (angle pnt4 pnt3) 95)
pnt20(polar pnt16 (angle pnt2 pnt1) 40)
pnt21(polar pnt20 ang2 50)
pnt22(polar pnt21 (angle pnt4 pnt3) 95)
scl (getvar "dimscale")
pnt23(polar pnt4 ang2 (* scl 15))
pnt24(polar pnt6 ang2 (* scl 15))
pnt25(polar pnt4 ang2 (* scl 23))
;lenmem (length pnt3 pnt5)
;txtang (/ (* ang1 180) pi)
;pnt26(polar pnt17 ang1 (* scl 5))
;pnt27(polar pnt26 ang2 (* scl 8))
)
(command "pline" pnt4 pnt6 pnt8 pnt7 "c"
"line" pnt9 pnt10 ""
"-insert" "erec" pnt12 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt13 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt15 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt16 "" "" (/ (* ang1 180) pi)
"line" pnt18 pnt19 ""
"line" pnt21 pnt22 ""
"dimaligned" pnt3 pnt5 pnt25
"dimaligned" pnt1 pnt3 pnt23
"dimcontinue" pnt12 pnt13 pnt17 "" ""
"dimaligned" pnt2 pnt5 pnt24
"dimcontinue" pnt15 pnt16 pnt21 pnt17 "" ""
;"text" pnt27 (* 2.5 scl) txtang (strcat "L65X65X6" (rtos lenmem 2 0) "LG" "" ""
)
)(defun c:jns65()
(setq pnt1(getpoint "\n:Pick point Lower Inclined")
pnt2(getpoint "\n:Pick point Upper Inclined")
ang1(angle pnt1 pnt2)
ang2(+ ang1 (/ pi 2))
len1(/ (+ 85 (* 18 (sin ang1))) (cos ang1))
pnt3(polar pnt1 ang1 len1)
pnt4(polar pnt3 ang2 18)
len2(/ (+ 85 (* 47 (sin ang1))) (cos ang1))
pnt5(polar pnt2 (angle pnt2 pnt1) len2)
pnt6(polar pnt5 ang2 18)
pnt7(polar pnt4 (angle pnt4 pnt3) 65)
pnt8(polar pnt6 (angle pnt4 pnt3) 65)
pnt9(polar pnt4 (angle pnt4 pnt3) 6)
pnt10(polar pnt6 (angle pnt4 pnt3) 6)
pnt11(polar pnt4 (angle pnt4 pnt3) 35)
pnt12(polar pnt11 ang1 40)
pnt13(polar pnt12 ang1 80)
pnt14(polar pnt6 (angle pnt4 pnt3) 35)
pnt15(polar pnt14 (angle pnt2 pnt1) 40)
pnt16(polar pnt15 (angle pnt2 pnt1) 80)
pnt17(polar pnt13 ang1 40)
pnt18(polar pnt17 ang2 45)
pnt19(polar pnt18 (angle pnt4 pnt3) 85)
pnt20(polar pnt16 (angle pnt2 pnt1) 40)
pnt21(polar pnt20 ang2 45)
pnt22(polar pnt21 (angle pnt4 pnt3) 85)
scl (getvar "dimscale")
pnt23(polar pnt4 ang2 (* scl 15))
pnt24(polar pnt6 ang2 (* scl 15))
pnt25(polar pnt4 ang2 (* scl 23))
;lenmem (length pnt3 pnt5)
;txtang (/ (* ang1 180) pi)
;pnt26(polar pnt17 ang1 (* scl 5))
;pnt27(polar pnt26 ang2 (* scl 8))
)
(command "pline" pnt4 pnt6 pnt8 pnt7 "c"
"line" pnt9 pnt10 ""
"-insert" "erec" pnt12 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt13 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt15 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt16 "" "" (/ (* ang1 180) pi)
"line" pnt18 pnt19 ""
"line" pnt21 pnt22 ""
"dimaligned" pnt3 pnt5 pnt25
"dimaligned" pnt1 pnt3 pnt23
"dimcontinue" pnt12 pnt13 pnt17 "" ""
"dimaligned" pnt2 pnt5 pnt24
"dimcontinue" pnt15 pnt16 pnt21 pnt17 "" ""
;"text" pnt27 (* 2.5 scl) txtang (strcat "L65X65X6" (rtos lenmem 2 0) "LG" "" ""
)
)
(defun c:jns50()
(setq pnt1(getpoint "\n:Pick point Lower Inclined")
pnt2(getpoint "\n:Pick point Upper Inclined")
ang1(angle pnt1 pnt2)
ang2(+ ang1 (/ pi 2))
len1(/ (+ (* 15 (sin ang1)) 25) (cos ang1))
pnt3(polar pnt1 ang1 len1)
pnt4(polar pnt3 ang2 15)
len2(/ (+ (* 35 (sin ang1)) 25) (cos ang1))
pnt5(polar pnt2 (angle pnt2 pnt1) len2)
pnt6(polar pnt5 ang2 15)
pnt7(polar pnt4 (angle pnt4 pnt3) 50)
pnt8(polar pnt6 (angle pnt4 pnt3) 50)
pnt9(polar pnt4 (angle pnt4 pnt3) 6)
pnt10(polar pnt6 (angle pnt4 pnt3) 6)
pnt11(polar pnt4 (angle pnt4 pnt3) 28)
pnt12(polar pnt11 ang1 40)
pnt13(polar pnt12 ang1 80)
pnt14(polar pnt6 (angle pnt4 pnt3) 28)
pnt15(polar pnt14 (angle pnt2 pnt1) 40)
pnt16(polar pnt15 (angle pnt2 pnt1) 80)
pnt17(polar pnt13 ang1 40)
pnt18(polar pnt17 ang2 38)
pnt19(polar pnt18 (angle pnt4 pnt3) 70)
pnt20(polar pnt16 (angle pnt2 pnt1) 40)
pnt21(polar pnt20 ang2 38)
pnt22(polar pnt21 (angle pnt4 pnt3) 70)
scl (getvar "dimscale")
pnt23(polar pnt4 ang2 (* scl 15))
pnt24(polar pnt6 ang2 (* scl 15))
pnt25(polar pnt4 ang2 (* scl 23))
;lenmem (length pnt3 pnt5)
;txtang (/ (* ang1 180) pi)
;pnt26(polar pnt17 ang1 (* scl 5))
;pnt27(polar pnt26 ang2 (* scl 8))
)
(command "pline" pnt4 pnt6 pnt8 pnt7 "c"
"line" pnt9 pnt10 ""
"-insert" "erec" pnt12 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt13 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt15 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt16 "" "" (/ (* ang1 180) pi)
"line" pnt18 pnt19 ""
"line" pnt21 pnt22 ""
"dimaligned" pnt3 pnt5 pnt25
"dimaligned" pnt1 pnt3 pnt23
"dimcontinue" pnt12 pnt13 pnt17 "" ""
"dimaligned" pnt2 pnt5 pnt24
"dimcontinue" pnt15 pnt16 pnt21 pnt17 "" ""
;"text" pnt27 (* 2.5 scl) txtang (strcat "L65X65X6" (rtos lenmem 2 0) "LG" "" ""
)
)
(defun c:jns50r()
(setq pnt1(getpoint "\n:Pick point Upper Inclined")
pnt2(getpoint "\n:Pick point Lower Inclined")
ang1(angle pnt1 pnt2)
ang2(- (* pi 2) ang1)
ang3(- (* (/ pi 2) 3) ang1)
len1(/ (+ (* 35 (sin ang2)) 25) (cos ang2))
pnt3(polar pnt1 ang1 len1)
pnt4(polar pnt3 ang2 15)
len2(/ (+ (* 15 (sin ang2)) 25) (cos ang2))
pnt5(polar pnt2 (angle pnt2 pnt1) len2)
pnt6(polar pnt5 ang2 15)
pnt7(polar pnt4 (angle pnt4 pnt3) 50)
pnt8(polar pnt6 (angle pnt4 pnt3) 50)
pnt9(polar pnt4 (angle pnt4 pnt3) 6)
pnt10(polar pnt6 (angle pnt4 pnt3) 6)
pnt11(polar pnt4 (angle pnt4 pnt3) 28)
pnt12(polar pnt11 ang1 40)
pnt13(polar pnt12 ang1 80)
pnt14(polar pnt6 (angle pnt4 pnt3) 28)
pnt15(polar pnt14 (angle pnt2 pnt1) 40)
pnt16(polar pnt15 (angle pnt2 pnt1) 80)
pnt17(polar pnt13 ang1 40)
pnt18(polar pnt17 ang2 38)
pnt19(polar pnt18 (angle pnt4 pnt3) 70)
pnt20(polar pnt16 (angle pnt2 pnt1) 40)
pnt21(polar pnt20 ang2 38)
pnt22(polar pnt21 (angle pnt4 pnt3) 70)
scl (getvar "dimscale")
pnt23(polar pnt4 ang2 (* scl 15))
pnt24(polar pnt6 ang2 (* scl 15))
pnt25(polar pnt4 ang2 (* scl 23))
;lenmem (length pnt3 pnt5)
;txtang (/ (* ang1 180) pi)
;pnt26(polar pnt17 ang1 (* scl 5))
;pnt27(polar pnt26 ang2 (* scl 8))
)
(command "pline" pnt4 pnt6 pnt8 pnt7 "c"
"line" pnt9 pnt10 ""
"-insert" "erec" pnt12 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt13 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt15 "" "" (/ (* ang1 180) pi)
"-insert" "erec" pnt16 "" "" (/ (* ang1 180) pi)
"line" pnt18 pnt19 ""
"line" pnt21 pnt22 ""
"dimaligned" pnt3 pnt5 pnt25
"dimaligned" pnt1 pnt3 pnt23
"dimcontinue" pnt12 pnt13 pnt17 "" ""
"dimaligned" pnt2 pnt5 pnt24
"dimcontinue" pnt15 pnt16 pnt21 pnt17 "" ""
;"text" pnt27 (* 2.5 scl) txtang (strcat "L65X65X6" (rtos lenmem 2 0) "LG" "" ""
)
)
Satydev Singh Negi