C:DOMKAL (/ _PRINTCOMMENTS _OPTION1 _OPTION2 _OPTION3 _OPTION4 AREA
DXF ENT SDAREA SKAREA
)
_OPTION1 ()
((< AREA 200)
SDAREA AREA
SKAREA
(* AREA 0.7)
)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
((< AREA 700)
SDAREA 240
SKAREA
(* AREA 0.6)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
((>= AREA 700)
SDAREA 400
SKAREA
(* AREA 0.6)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
)
)
_OPTION2
()
((<= AREA 2000)
SDAREA
(* AREA 0.8)
SKAREA
(* AREA 0.6)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
((> AREA 2000)
SDAREA
(+ 400 (* 0.05 (- AREA 2000)))
SKAREA
(* AREA 0.1)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
)
)
_OPTION3
()
((= AREA 750)
SDAREA 100
SKAREA
(* AREA 0.1)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
)
((AND (> AREA
750) (<= AREA
1200)) SDAREA
(+ 100 (/ (- AREA 750) 9))
SKAREA
(* AREA 0.1)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
)
((AND (> AREA
1200) (<= AREA
2000)) SDAREA
(+ 150 (/ (- AREA 1200) 16))
SKAREA
(* AREA 0.1)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
)
((AND (> AREA
2000) (< AREA
4000)) SDAREA 0
SKAREA 0
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
)
((= AREA 4000)
SDAREA 200
SKAREA
(* AREA 0.1)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
)
((AND (> AREA
4000) (<= AREA
8000)) SDAREA
(+ 200 (* 0.02 (- AREA 4000)))
SKAREA
(* AREA 0.1)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
)
((> AREA 8000)
SDAREA
(+ 280 (* 0.01 (- AREA 8000)))
SKAREA
(* AREA 0.1)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
)
)
_OPTION4 ()
(SETQ SDAREA
(* AREA
(GETREAL "\n Give sd (example 1.2) : "))) (SETQ SKAREA
(* AREA
(GETREAL "\nGive sk (example 0.70) : "))) )
"\n Print Results"
"\n -----------------------"
(STRCAT "\n Selected Area = " (RTOS AREA
2 2) " sq.m") "\n"
"\n comments: "
)
"\n ---------------------\n "
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
"\n bla bla bla bla."
)
)
)
)
(T
"\n ---------------------\nNo valid polyline selected..."
)
)
)
"\n ========================================================================\n"
)
)
;; Main -----
"*POLYLINE"
)
)
"\nChoose an option:
1. Oprion 1
2. Option 2
3. Option 3
4. Option 4
" )
OPTION
(GETINT "choose 1 -->4: ") )
((= OPTION 1) (_OPTION1))
((= OPTION 2) (_OPTION2))
((= OPTION 3) (_OPTION3))
((= OPTION 4) (_OPTION4))
(T
(ALERT "Select > 4 --> Auto select 4. ") (_OPTION4
)) )
(_PRINTCOMMENTS)
)
(PRINC "\nError selection of polyline ...") )
)
;|«Visual LISP© Format Options»
(72 2 40 2 nil "end of " 60 2 2 2 1 nil nil nil T)
;*** DO NOT add text below the comment! ***|;