Topic: Looking for a Variable Clean up tool...

[AVCAD]

With all these programs and what not and setting all these variables is there any tool that can reset them? I have noticed that if i name a variable the same as a variable that is set by a different program then the next program will crash and burn sometimes.

[deegeecees]

Before I create a variables' name, I usually do a (atoms-family 0), and send it to ntepad, and do a search on the new variables name. If it's in the list, I choose another name. You could probably do this programatically as well.

[SomeCallMeDave]

Take a look at the Developer Help where it discusses Local vs Global variables.

Using local variables may help you with your problem.

[ronjonp]

If you prefixed all your variables with something to make them different from the rest, you could use something like this to set them to nil:

Code: [Select]

  (mapcar
    '(lambda (x)
       (if (wcmatch (strcase x) "COOLPREFIXHERE:*")
(set (read x) nil)
       )
     )
    (atoms-family 1)
  )
Ron

[AVCAD]

If you prefixed all your variables with something to make them different from the rest, you could use something like this to set them to nil:

Code: [Select]

  (mapcar
    '(lambda (x)
       (if (wcmatch (strcase x) "COOLPREFIXHERE:*")
(set (read x) nil)
       )
     )
    (atoms-family 1)
  )
Ron

I put this in my code

Code: [Select]

(defun set_var_nil()
  (mapcar
    '(lambda (x)
       (if (wcmatch (strcase x) "symb_*")
(set (read x) nil)
       )
     )
    (atoms-family 1)
  )
  )
but it didn't work...did i do something wrong?

[Kerry]

When I'm doing testing that needs temporary global variables I prefix them with unique characters and use (essentially) similar code to that posted by Ron. When I'm finished testing I remove the prefix (find and replace) and make the variables local.

Dave's recommendation ( use local variables ) should solve your problem.



 

......... but it didn't work...did i do something wrong?

You may have.

[ronjonp]

If you prefixed all your variables with something to make them different from the rest, you could use something like this to set them to nil:

Code: [Select]

  (mapcar
    '(lambda (x)
       (if (wcmatch (strcase x) "COOLPREFIXHERE:*")
(set (read x) nil)
       )
     )
    (atoms-family 1)
  )
Ron

I put this in my code

Code: [Select]

(defun set_var_nil()
  (mapcar
    '(lambda (x)
       (if (wcmatch (strcase x) "symb_*")
(set (read x) nil)
       )
     )
    (atoms-family 1)
  )
  )
but it didn't work...did i do something wrong?

You need to make the filter uppercase, or specify T with the strcase:

(defun set_var_nil()
  (mapcar
    '(lambda (x)
       (if (wcmatch (strcase x T) "symb_*")
    (set (read x) nil)
       )
     )
    (atoms-family 1)
  )
  )

or

(defun set_var_nil()
  (mapcar
    '(lambda (x)
       (if (wcmatch (strcase x) "SYMB_*")
    (set (read x) nil)
       )
     )
    (atoms-family 1)
  )
  )

Ron