custom lisp not working properly
@Yahamahog wrote:
Can any one help with my lisp as it seems to work but the help menu opens after I run it?
I didn't notice any extraneous Enters that might do that, but it could be that the problem is something in one of the e n o r m o u s q u a n t i t i e s of (if) functions for all those different settings based on all those different scales. The LISP in AutoLISP stands for LISt Processing, and the programming language is built to be good at that, and I would suggest doing those things with lists, which will greatly reduce the amount of code, and eliminate any glitch if one of those repetitive items has an error in it. You can keep everything up to:
...
(setvar "userr3" scale)
... and following that, make some lists and have it work from those, assigning the corresponding value from one list based on the position of the scale value in another, or in some cases based just on the scale value itself, something like this:
(if (> scale 1)
(setvar "userr5"
(nth
(vl-position scale '(1 24 32 48 64 96 128 192 120 240 360 480 600 720 1200)); position index
'(0 0.6667 0.7576 1 1.25 1.5 2.25 3 1 2 3 4 5 6 10); find value at that position here [0 in front is just a place-holder]
); nth
); setvar
); if
(command "dimstyle" "r" (strcat "ie-" (itoa scale) "-arrow")); one style name concatenation for any scale
(setvar 'textsize (* scale 0.09375)); one height calculation for any scale
(command
"insert" "h:/2015-ACAD/01-SETUP/MEPlayers"....
... and continue from there [you can fold all those commands into one combined (command) function, which will reduce the code further].
It should also speed it up, because as you have it, it will go through every (if) function and test for whether that's the scale, even after it has found the applicable one. That's a use for (cond) in place of (if), which will stop looking as soon as it finds the right one, but that would still take a lot more code than the above.
