Jump to content

autolisp number


taufiksetiadi

Recommended Posts

(defun c:make-hundred ( / n)
 (setq n 1)
 (repeat 100
   (princ (strcat "\n" (vl-princ-to-string n)))
   (setq n (1+ n))
   )
 (princ)
 )

 

The above code does pretty much nothing, but.... it's automated! :)

Link to comment
Share on other sites

Is it a puzzle or what ?

 

:lol: It appears to be that way Tharwat, thats what makes it interesting. [or annoying, whichever you want to see it]

 

BTW: Is it just me? or there no image on the OP's post

Link to comment
Share on other sites

I see, i bet the OP is just looking for an increment routine and probably found half a dozen lisp codes here in CADTutor.

Whoopee!! I got it right here Yeah!! :lol:

Link to comment
Share on other sites

  • 3 weeks later...

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • Create New...