Topic: Coordinates and from the list

[FELIX]

MP, I forgot to thank you anyway.

[MP]

You're most welcome Felix.

[Lee Mac]

So many cats, so little skinnin' time ...

I want to play too! 

Code: [Select]

(defun foo ( ent )
    (   (lambda ( bar lst )
            (bar lst (list (cdr (assoc 038 lst))) (cdr (assoc 210 lst)))
        )
        (lambda ( lst elv vec / itm )
            (if (setq itm (assoc 10 lst))
                (cons (trans (append (cdr itm) elv) vec 0) (bar (cdr (member itm lst)) elv vec))
            )
        )
        (entget ent)
    )
)

[FELIX]

Lee Mac, excellent, very good, I like your programming logic, it's a bit similar to mine. I am old because after 43 years programming (43 is not my age) it is difficult to fit the most current logics.

MP, your logic is advanced for me but also good, I said that I did not enjoy joking to see your reaction that was good, congratulations.

To all of the Forum that are visiting this topic the games are only valid when they stimulate the best perfomance that programming or is a healthy play.

[MP]

Well if it's any consolation I'm currently 00111010.

I was born the same year LISP implementation began at MIT.

Humorously, my age and the year mentioned above share digits.

re: my reaction: you caught me on a good day, lol.

LISP puzzles draw many of us here.

Great fun and pun intended.

[roy_043]

Another:

Code: [Select]

(defun UsingCurveFunctions (obj / i ret) ; Obj as vla-object or ename.
  (repeat (setq i (+ (vlax-curve-getendparam obj) (if (vlax-curve-isclosed obj) 0 1)))
    (setq ret (cons (trans (vlax-curve-getpointatparam obj (setq i (1- i))) 0 1) ret))
  )
)

[FELIX]

MP, we are the same age.
Roy_043 very good.
To all of the Forum a Merry Christmas.