Would you leave your legacy to the public?

jtm2020hyo
Collaborator

Would you leave your legacy to the public?

jtm2020hyo
Collaborator
Collaborator

Which is the best routine that you know and might share it?

0 Likes
Reply
1,184 Views
8 Replies
Replies (8)

Kent1Cooper
Consultant
Consultant

See >this thread< similarly asking for favorite or useful routines.  Not many people took them up on it, but I posted some of mine.

Kent Cooper, AIA

jtm2020hyo
Collaborator
Collaborator

Hello Mr. @Kent1Cooper.

 

I think you should create your own blog and menu bar like payazed.wordpress.com or Lee-Mac. You are a rock star in the lisp world.

 

My personal favorite is SS, created by "+972 545868723 Kibbutz Amir Upper Galilee Israel" alias KIM. I use it 90% time when my drawing is saturated with many objects, author description: "the objects are filtered by object type, layer, color and linetype."

 

(defun C:SS ( / s1 i e l f s2)
  (princ "\nSelect source object:")
  (if
    (if
      (setq s1 (ssget "I"))
      (progn (sssetfirst nil nil) s1)
      (setq s1 (ssget))
    )
    (progn
      (repeat (setq i (sslength s1))
        (setq i (1- i)
              e (entget (ssname s1 i))
              l (mapcar '(lambda (a b) (cond ((assoc a e)) (b))) '(0 8 6 62) '(0 0 (6 . "ByLayer") (62 . 256)))
              )
        (if (not (member l f)) (setq f (cons l f)))
        )
      (setq f (mapcar '(lambda (a) (append '((-4 . "<AND")) a '((-4 . "AND>")))) f))
      (setq f (append '((-4 . "<OR")) (apply 'append f) '((-4 . "OR>"))))
      (princ "\n\nSelect area for similar objects...")
      (if (setq s2 (ssget f)) (princ (strcat (itoa (sslength s2)) " objects")))
      (sssetfirst nil s2)
      )
    )
  (if (zerop (getvar 'cmdactive)) (princ) s2)
  )
0 Likes

john.uhden
Mentor
Mentor

I do it all the time, but only here if someone is asking for assistance.

Then again, if the question starts with "I need..." I usually respond with "Yeah, well, I need a winning lottery number."

John F. Uhden

jtm2020hyo
Collaborator
Collaborator

the reason for this post is for the coronavirus. probably some relevant author might leave us some important source code as their last wish.

0 Likes

john.uhden
Mentor
Mentor
I would but my fingers are going nu

John F. Uhden

0 Likes

Sea-Haven
Mentor
Mentor

Maybe they know the secret web service that does not cost you anything to host your web pages.

 

Solutions are provided free web sites are not.

0 Likes

jtm2020hyo
Collaborator
Collaborator

I just might suggest to every lisp author to leave their passwords and source code to their parents or friends. IMHO AutoLISP is something invaluable. Lost the source code of add-ons or AutoLisp, that is something that not should happen.

0 Likes

john.uhden
Mentor
Mentor

That's an idea.  I could put all my code on a thumb drive and will it to someone.

Who's the youngest one in these parts?  Or, send me an essay for me to judge who should be the heir.

Better than that... I'll trade you right now for the winning Power Ball numbers (no, not the previous ones, but nice try).

I want a TF-X (google it) so that I can visit my daughter and her family in Maine quickly and pull right into her driveway.

John F. Uhden

0 Likes