Help with while loop or repeat the command until hit escape

[loudy000]

(Defun c:ld (/ ent sset cnt )
  (setq sset (ssget))
  (setq cnt 0)
  (repeat (sslength sset)
  (command "_MAPCreateFeatureFromGeometry" "yes" "landuse" "")))

Hi Guys, sorry this might be so simple but i cant get it to work, basically i need to loop or repeat the command until i hit escape.

 

Thanks for your help.

[BIGAL]

You need a test after the geometry line you can crash out using a (exit) but this is not ideal better way is to use a (setq x (sslength sset)) so if want exit set x actual sslength+1 of sset and use a While to test. (while (< x Y) etc

 

[loudy000]

hi bigal can you give an example i cannot get it to work thanks

[ronjonp]

Don't know what that command does but this is a simple while loop:

(while (setq s (ssget))
  (sssetfirst nil s)
  (command "_MAPCreateFeatureFromGeometry" "yes" "landuse" "")
)

 

Edited October 4, 2018 by ronjonp