Topic: What "function" are you working on now?

[JohnK]

I spend alot of time working on / studing " simple " procedures/functions till I find their true identy. Yesterday and today I spent quite a bit of time studing the use of unnamed vs named procedures inside a main procedure. (Namely ``lambda'' vs ``defun'') Tomorow I think I will try to tackle ``eval'' and ``apply'' and how they work. (More specificaly, how symbols and expressions are evaluated.)

[Keith™]

data import/export function for traffic engineering

[TimSpangler]

Saving selections sets across drawing sessions.  Making them avalible for use days later (forever if need be).  It is also a learning episode, dictionaries, xrecord storage/ retrieval etc.

[Kerry]

I thought the question was rhetorical ..

but, OK ;

Validating XRecord Data against a DataBase.

[MP]

More than I can list, but the two front burner items are: Application that prioritizes select windows processes for client #1 and writing a Plant Software Selection and Implementation Plan for client #2.

[hendie]

data import/export function for traffic engineering and keeping Keith on the right track 

[Jürg Menzi]

• R&I bidirectional interface AutoCAD <> database. (VBA)
• ObjectDBX project to normalize different headers (stamps) of a few thousand drawings to one type.
Including renaming attribute tags and merging some values. The modification profiles are from an
excel file. Process results are written into a log file. (VisualLISP)

• ObjectDBX project to change the URL in a hyperlink in a few hundred drawings. (VisualLISP)

[ElpanovEvgeniy]

>Se7en

I think, after translation, these functions are identical!

Code: [Select]

(mapcar '1+ lst)

(defun rec_1+ (lst)
  (if lst
    (cons (1+ (car lst))
      (rec_1+ (cdr lst))
    ) ;_  cons
  ) ;_  if
)


[JohnK]

>Se7en

I think, after translation, these functions are identical!

Code: [Select]

(mapcar '1+ lst)

(defun rec_1+ (lst)
  (if lst
    (cons (1+ (car lst))
      (rec_1+ (cdr lst))
    ) ;_  cons
  ) ;_  if
)


Yes, that is my understanding too.

[LE]

I am getting back into the geometry world, to update one of my apps, to have some more abilities, first to get the calculation of the centroid/geometric center, implementation of a hoover alike [there is one class AcEdInputPointMonitor but does not work for what I need], I need to have all the closed polylines, one into each other and pass, the cursor and while is inside of the polyline, to provide the appropriate information, or to open an excel or table object and have that info/properties available... among other things...

le.

[Jim Yadon]

A complete rewrite of all the tools I wrote in LISP so long ago. Namely to add variables where I have constants to allow for user level control of certain functions. As well as build in a few more error traps. With that in mind, what is the preferred method of long term variable storage among you all?

[ElpanovEvgeniy]

Excuse! I - not correctly interpreted title of a subject. (What "function" are you working on now?)
my work - optimal cutting...
http://www.rusparquet.com/

[David Bethel]

As to (eval) and (apply), these are pretty much interchangeable calls:

Code: [Select]

   (apply '+ '(2 3 4))

   (eval (cons '+ '(2 3 4)))


It also works well with 'min 'max as well as the basic math functions.

My latest attempt, not my first at it and still not comprhending is the (boole) function.  -David

[CADaver]

just getting a little time to clean up old functions

[JohnK]

As to (eval) and (apply), these are pretty much interchangeable calls:

Code: [Select]

   (apply '+ '(2 3 4))

   (eval (cons '+ '(2 3 4)))


It also works well with 'min 'max as well as the basic math functions.

My latest attempt, not my first at it and still not comprhending is the (boole) function.  -David

David, have you read Stigs paper on binary and autocad. I think it will give you some great ideas with Boole.