I change the code with this and work fine
< .. >
Thank you Kerry
Great. Glad I could help.
Just an observation :
I notice that the code you posted is not well formatted.
I'd suggest that use the VLIDE to format your code. A lot of the problems you have will be resolved by just accepting the formatting provided. Sometimes unbalanced statements are a little more obvious.
This is your code back ... just reformatted. You can see the flow a little easier because the 'paragraphs' line up a little better. This makes it easier to find faults in the logic.
In some regards VLIDE is a crap editor and it's disappointing that AutoDesk have not improved it in the last 15 years but it is a resource we should make the most of.
skarea (* area 0.1)
)
)
((and (> area
750) (<= area
1200)) (setq sdarea
(+ 100 (/ (- area
750) 9)) skarea (* area 0.1)
)
)
((and (> area
1200) (<= area
2000)) (setq sdarea
(+ 150 (/ (- area
1200) 16)) skarea (* area 0.1)
)
)
((and (> area
2000) (< area
4000)) skarea 0
)
)
((= area 4000)
skarea (* area 0.1)
)
)
((and (> area
4000) (<= area
8000)) (setq sdarea
(+ 200 (* 0.02 (- area
4000))) skarea (* area 0.1)
)
)
((> area 8000)
(setq sdarea
(+ 280 (* 0.01 (- area
8000))) skarea (* area 0.1)
)
)
)
)
;|«Visual LISP© Format Options»
(80 2 45 2 nil "end of " 80 45 1 0 nil nil nil nil T)
;*** DO NOT add text below the comment! ***|;
Regards,