Search the Community

I am new to lisp and programming in general. I get the basic gist and i'm not very proficient at reading it yet. I have 2 major issues. I have a hard time understanding samples given when researching issues i'm having, and no matter how hard I try I just cant seem to understand Arguments. I am also working on a very basic function: (defun c:Burnbot ( / ) (GetN) (Insult) ) (defun GetN ( / ) (princ "\nHello there.") (princ) (setq ans (read (getstring "\nHey what's your name big guy?"))) ) (defun Insult ( / que an mrk ) (setq ans an) (setq que "\nWhat kind of a name is") (setq mrk "?\n") (princ (list que an mrk)) (princ) ) (princ "\nInsult Loading...") (princ) Output: ( What kind of a name is nil ? ) This is the closest I have gotten to success. But I just cannot get this variable to load. I've tried adding some of these to my different argument areas but have had only errors. I would appreciate it if anyone can tell me whats going on or/and if anyone can tell me where i can find a comprehensive guide to arguments.

This is happening after I post the name of the lisp to the command line. I can't spot the error in it. It has always worked before. The lisp is supposed to search out text and attribute values and replace them. Can anyone spot the error? (defun c:BUBBLER01 () (setq ss_blk (ssget "x" '((0 . "INSERT") (66 . 1)))) (if ss_blk (progn (setq lst_blk (sel2lst ss_blk)) (foreach en_blk lst_blk (setq lst_atts (att2lst en_blk)) (setq str_line "") (foreach en_atts lst_atts (setq str_line (getval 1 en_atts)) (if (not (wcmatch str_line "*/*/*")) (progn (setq str_line (strchg str_line *01* * 5555501*)) (setq str_line (strchg str_line *02* * 5555502*)) (setq str_line (strchg str_line *03* * 5555503*)) (setq str_line (strchg str_line *04* * 5555504*)) (setq str_line (strchg str_line *05* * 5555505*)) (setq str_line (strchg str_line *06* * 5555506*)) (setq str_line (strchg str_line *07* * 5555507*)) (setq str_line (strchg str_line *08* * 5555508*)) (setq str_line (strchg str_line *09* * 5555509*)) (setq str_line (strchg str_line *10* * 5555510*)) (setq str_line (strchg str_line *11* * 5555511*)) (setq str_line (strchg str_line *12* * 5555512*)) (setq str_line (strchg str_line *13* * 5555513*)) (setq str_line (strchg str_line *14* * 5555514*)) (setq str_line (strchg str_line *15* * 5555515*)) (setq str_line (strchg str_line *16* * 5555516*)) (setq str_line (strchg str_line *17* * 5555517*)) (setq str_line (strchg str_line *18* * 5555518*)) (setq str_line (strchg str_line *19* * 5555519*)) (setq str_line (strchg str_line *20* * 5555520*)) (setq str_line (strchg str_line *21* * 5555521*)) (setq str_line (strchg str_line *22* * 5555522*)) (setq str_line (strchg str_line *23* * 5555523*)) (setq str_line (strchg str_line *24* * 5555524*)) (setq str_line (strchg str_line *25* * 5555525*)) (setq str_line (strchg str_line *26* * 5555526*)) (setq str_line (strchg str_line *27* * 5555527*)) (setq str_line (strchg str_line *28* * 5555528*)) (setq str_line (strchg str_line *29* * 5555529*)) (setq str_line (strchg str_line *30* * 5555530*)) (setq str_line (strchg str_line *31* * 5555531*)) (setq str_line (strchg str_line *32* * 5555532*)) (setq str_line (strchg str_line *33* * 5555533*)) (setq str_line (strchg str_line *34* * 5555534*)) (setq str_line (strchg str_line *35* * 5555535*)) (setq str_line (strchg str_line *36* * 5555536*)) (setq str_line (strchg str_line *37* * 5555537*)) (setq str_line (strchg str_line *38* * 5555538*)) (setq str_line (strchg str_line *39* * 5555539*)) (setq str_line (strchg str_line *40* * 5555540*)) (setq str_line (strchg str_line *41* * 5555541*)) (setq str_line (strchg str_line *42* * 5555542*)) (setq str_line (strchg str_line *43* * 5555543*)) (setq str_line (strchg str_line *44* * 5555544*)) (setq str_line (strchg str_line *45* * 5555545*)) (setq str_line (strchg str_line *46* * 5555546*)) (setq str_line (strchg str_line *47* * 5555547*)) (setq str_line (strchg str_line *48* * 5555548*)) (setq str_line (strchg str_line *49* * 5555549*)) (setq str_line (strchg str_line *50* * 5555550*)) (setq str_line (strchg str_line *51* * 5555551*)) (setq str_line (strchg str_line *52* * 5555552*)) (setq str_line (strchg str_line *53* * 5555553*)) (setq str_line (strchg str_line *54* * 5555554*)) (setq str_line (strchg str_line *55* * 5555555*)) (setq str_line (strchg str_line *56* * 5555556*)) (setq str_line (strchg str_line *57* * 5555557*)) (setq str_line (strchg str_line *58* * 5555558*)) (setq str_line (strchg str_line *59* * 5555559*)) (setq str_line (strchg str_line *60* * 5555560*)) (setq str_line (strchg str_line *61* * 5555561*)) (setq str_line (strchg str_line *62* * 5555562*)) (setq str_line (strchg str_line *63* * 5555563*)) (setq str_line (strchg str_line *64* * 5555564*)) (setq str_line (strchg str_line *65* * 5555565*)) (setq str_line (strchg str_line *66* * 5555566*)) (setq str_line (strchg str_line *67* * 5555567*)) (setq str_line (strchg str_line *68* * 5555568*)) (setq str_line (strchg str_line *69* * 5555569*)) (setq str_line (strchg str_line *70* * 5555570*)) (setq str_line (strchg str_line *71* * 5555571*)) (setq str_line (strchg str_line *72* * 5555572*)) (setq str_line (strchg str_line *73* * 5555573*)) (setq str_line (strchg str_line *74* * 5555574*)) (setq str_line (strchg str_line *75* * 5555575*)) (setq str_line (strchg str_line *76* * 5555576*)) (setq str_line (strchg str_line *77* * 5555577*)) (setval 1 str_line en_atts) )))))) (setq ss_txtlines (ssget "x" '((0 . "TEXT")))) (if ss_txtlines (progn (setq lst_txtlines (sel2lst ss_txtlines)) (setq str_line "") (foreach en_txtlines lst_txtlines (setq str_line (getval 1 en_txtlines)) (if (not (wcmatch str_line "*/*/*")) (progn (setq str_line (strchg str_line *01* * 5555501*)) (setq str_line (strchg str_line *02* * 5555502*)) (setq str_line (strchg str_line *03* * 5555503*)) (setq str_line (strchg str_line *04* * 5555504*)) (setq str_line (strchg str_line *05* * 5555505*)) (setq str_line (strchg str_line *06* * 5555506*)) (setq str_line (strchg str_line *07* * 5555507*)) (setq str_line (strchg str_line *08* * 5555508*)) (setq str_line (strchg str_line *09* * 5555509*)) (setq str_line (strchg str_line *10* * 5555510*)) (setq str_line (strchg str_line *11* * 5555511*)) (setq str_line (strchg str_line *12* * 5555512*)) (setq str_line (strchg str_line *13* * 5555513*)) (setq str_line (strchg str_line *14* * 5555514*)) (setq str_line (strchg str_line *15* * 5555515*)) (setq str_line (strchg str_line *16* * 5555516*)) (setq str_line (strchg str_line *17* * 5555517*)) (setq str_line (strchg str_line *18* * 5555518*)) (setq str_line (strchg str_line *19* * 5555519*)) (setq str_line (strchg str_line *20* * 5555520*)) (setq str_line (strchg str_line *21* * 5555521*)) (setq str_line (strchg str_line *22* * 5555522*)) (setq str_line (strchg str_line *23* * 5555523*)) (setq str_line (strchg str_line *24* * 5555524*)) (setq str_line (strchg str_line *25* * 5555525*)) (setq str_line (strchg str_line *26* * 5555526*)) (setq str_line (strchg str_line *27* * 5555527*)) (setq str_line (strchg str_line *28* * 5555528*)) (setq str_line (strchg str_line *29* * 5555529*)) (setq str_line (strchg str_line *30* * 5555530*)) (setq str_line (strchg str_line *31* * 5555531*)) (setq str_line (strchg str_line *32* * 5555532*)) (setq str_line (strchg str_line *33* * 5555533*)) (setq str_line (strchg str_line *34* * 5555534*)) (setq str_line (strchg str_line *35* * 5555535*)) (setq str_line (strchg str_line *36* * 5555536*)) (setq str_line (strchg str_line *37* * 5555537*)) (setq str_line (strchg str_line *38* * 5555538*)) (setq str_line (strchg str_line *39* * 5555539*)) (setq str_line (strchg str_line *40* * 5555540*)) (setq str_line (strchg str_line *41* * 5555541*)) (setq str_line (strchg str_line *42* * 5555542*)) (setq str_line (strchg str_line *43* * 5555543*)) (setq str_line (strchg str_line *44* * 5555544*)) (setq str_line (strchg str_line *45* * 5555545*)) (setq str_line (strchg str_line *46* * 5555546*)) (setq str_line (strchg str_line *47* * 5555547*)) (setq str_line (strchg str_line *48* * 5555548*)) (setq str_line (strchg str_line *49* * 5555549*)) (setq str_line (strchg str_line *50* * 5555550*)) (setq str_line (strchg str_line *51* * 5555551*)) (setq str_line (strchg str_line *52* * 5555552*)) (setq str_line (strchg str_line *53* * 5555553*)) (setq str_line (strchg str_line *54* * 5555554*)) (setq str_line (strchg str_line *55* * 5555555*)) (setq str_line (strchg str_line *56* * 5555556*)) (setq str_line (strchg str_line *57* * 5555557*)) (setq str_line (strchg str_line *58* * 5555558*)) (setq str_line (strchg str_line *59* * 5555559*)) (setq str_line (strchg str_line *60* * 5555560*)) (setq str_line (strchg str_line *61* * 5555561*)) (setq str_line (strchg str_line *62* * 5555562*)) (setq str_line (strchg str_line *63* * 5555563*)) (setq str_line (strchg str_line *64* * 5555564*)) (setq str_line (strchg str_line *65* * 5555565*)) (setq str_line (strchg str_line *66* * 5555566*)) (setq str_line (strchg str_line *67* * 5555567*)) (setq str_line (strchg str_line *68* * 5555568*)) (setq str_line (strchg str_line *69* * 5555569*)) (setq str_line (strchg str_line *70* * 5555570*)) (setq str_line (strchg str_line *71* * 5555571*)) (setq str_line (strchg str_line *72* * 5555572*)) (setq str_line (strchg str_line *73* * 5555573*)) (setq str_line (strchg str_line *74* * 5555574*)) (setq str_line (strchg str_line *75* * 5555575*)) (setq str_line (strchg str_line *76* * 5555576*)) (setq str_line (strchg str_line *77* * 5555577*)) (setval 1 str_line en_txtlines) ))))))

Hello everyone, does anyone knows a way to define a function in AutoLISP with arbitrary arguments, same as ARX?