Lisp not working as desired - Help is appreciated.

[vporrash141089]

Hi guys, I've started a Lisp tutorial and wanted to work on a function to repeat with user input, as many times as the user wants, can someone please help?

Thanks in advance and here is the code

(defun c:RPA (/)

(setq n (repeat (getint "\n Enter times to purge and audit")))

(if (> 0 n)

(progn

(command "-Purge" "r" "*" "n" "-Purge" "a" "*" "n" "Audit" "y")
(princ "\nThis file has been Purged and Audited succesfully!!")
)
)

(princ)
)

[paullimapa · Accepted solution]

try switching it around like this and see if this works (not tested):

(defun c:RPA (/)
(setq n (getint "\n Enter times to purge and audit"))
(if (> n 0)
 (progn
  (repeat n
   (command "-Purge" "r" "*" "n" "-Purge" "a" "*" "n" "Audit" "y")

  )
  (princ "\nThis file has been Purged and Audited succesfully!!")
 ) ; progn
) ; if
(princ)
) ; defun

[vporrash141089]

Thank you so much! 

[paullimapa]

Glad to have helped cheers

[Sea-Haven]

Just a suggestion using purge around 3 times is normally enough. So maybe hard code a (repeat 3 or more, doing a purge multiple times does not hurt even if nothing is found. How many times have you repeated purge  as a maximum ? Note if using CIV3D need Purgestyles, took 3 goes to remove CIV3D styles. Civ3D locks numerous stuff if named in styles.