Hmm. I realize I inidicated the randomize function was problematic and thats my fault. I was able to generate a random number without issue with the code above, and the a test of some of the defuns in that thread you referenced. Perhaps I more clearly suggest, I need help on what happens in the modifyblk defun. My alogrithms were a crap shoot. Essentially, I would like the alogrithms to generate a scale factor to always remain somewhat small and the rotation angle to have larger variations.
I also want to limit the answer randm to integers from 1 to 10. Is there a way to conditionalize the answer better than below? Any assistance there would be helpful.
(if (or (< ans "1") (> ans "10"))
(progn
(randomize)
)
(progn
(princ "\nSorry '")
(princ ans)
(princ "' is not a valid entry...")
(princ "\nPlease try again!")
(rnd)
)
)
)