Author Topic: ADS Undocumented Lisp Function?  (Read 7508 times)

0 Members and 1 Guest are viewing this topic.

ronjonp

  • Needs a day job
  • Posts: 7526
ADS Undocumented Lisp Function?
« on: June 09, 2009, 01:31:54 PM »
I accidentally typed this in the vlide and it appears to be a function....anyone know anything about it?

Thanks,

Ron

Windows 11 x64 - AutoCAD /C3D 2023

Custom Build PC

Spike Wilbury

  • Guest
Re: ADS Undocumented Lisp Function?
« Reply #1 on: June 09, 2009, 01:43:37 PM »
?

ronjonp

  • Needs a day job
  • Posts: 7526
Re: ADS Undocumented Lisp Function?
« Reply #2 on: June 09, 2009, 01:47:35 PM »
I accidentally typed this in the vlide and it appears to be a function....anyone know anything about it?

Thanks,

Ron

It is not in my help file???

Windows 11 x64 - AutoCAD /C3D 2023

Custom Build PC

Spike Wilbury

  • Guest
Re: ADS Undocumented Lisp Function?
« Reply #3 on: June 09, 2009, 02:15:18 PM »
that (if I recall) was documented.... many moons ago and it was used in something like this:

Code: [Select]
;; carga una aplicacion
(defun appload (app / ext app1)
  (setq ext  (strcase (vl-filename-extension app))
app1 (strcase (vl-filename-base app)))
  (if (or (= ext ".EXE") (= ext ".EXP"))
    (if
      (vl-some
'(lambda (afn) (= (strcase (vl-filename-base afn)) app1))
(ads))
       T
       (xload app nil))
    (if
      (vl-some
'(lambda (afn) (= (strcase (vl-filename-base afn)) app1))
(arx))
       T
       (arxload app nil))))

ronjonp

  • Needs a day job
  • Posts: 7526
Re: ADS Undocumented Lisp Function?
« Reply #4 on: June 09, 2009, 02:19:25 PM »
Thanks Luis.  :-)

Windows 11 x64 - AutoCAD /C3D 2023

Custom Build PC

Lee Mac

  • Seagull
  • Posts: 12906
  • London, England
Re: ADS Undocumented Lisp Function?
« Reply #5 on: June 09, 2009, 04:58:09 PM »
There are quite a few that are "undocumented" actually - if you type:

Code: [Select]
(atoms-family 0)

You'll see a list of about 3125 functions...

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: ADS Undocumented Lisp Function?
« Reply #6 on: June 09, 2009, 04:59:23 PM »
There are quite a few that are "undocumented" actually - if you type:

Code: [Select]
(atoms-family 0)
You'll see a list of about 3125 functions...

Enjoy: http://www.theswamp.org/swamp.files/Public/atoms15.zip
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

Lee Mac

  • Seagull
  • Posts: 12906
  • London, England
Re: ADS Undocumented Lisp Function?
« Reply #7 on: June 09, 2009, 05:06:59 PM »
Outstanding Michael - I love the way the "About" dialog has an animation too... how did you achieve this?


MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: ADS Undocumented Lisp Function?
« Reply #8 on: June 09, 2009, 05:14:06 PM »
Outstanding Michael - I love the way the "About" dialog has an animation too... how did you achieve this?

Thanks Lee. To be honest I'd have to revisit the code (would have to find it first), I wrote the original over a decade ago and there's just been too many miles. Having said that, it was so easy even I could do it. :)
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

T.Willey

  • Needs a day job
  • Posts: 5251
Re: ADS Undocumented Lisp Function?
« Reply #9 on: June 09, 2009, 05:24:17 PM »
Outstanding Michael - I love the way the "About" dialog has an animation too... how did you achieve this?

Thanks Lee. To be honest I'd have to revisit the code (would have to find it first), I wrote the original over a decade ago and there's just been too many miles. Having said that, it was so easy even I could do it. :)

Here is how I did one, which the help of Michael ofcourse.

[ http://www.theswamp.org/index.php?topic=8163.0 ]
Tim

I don't want to ' end-up ', I want to ' become '. - Me

Please think about donating if this post helped you.

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: ADS Undocumented Lisp Function?
« Reply #10 on: June 09, 2009, 05:32:09 PM »
PS: I was only talking about the animated about dialog.
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

T.Willey

  • Needs a day job
  • Posts: 5251
Re: ADS Undocumented Lisp Function?
« Reply #11 on: June 09, 2009, 05:33:26 PM »
PS: I was only talking about the animated about dialog.

Oh...  :oops: :cry:
Tim

I don't want to ' end-up ', I want to ' become '. - Me

Please think about donating if this post helped you.

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: ADS Undocumented Lisp Function?
« Reply #12 on: June 09, 2009, 05:34:38 PM »
Oh...  :oops: :cry:

good info is still good info :)
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst

kdub_nz

  • Mesozoic keyThumper
  • SuperMod
  • Water Moccasin
  • Posts: 2124
  • class keyThumper<T>:ILazy<T>
Re: ADS Undocumented Lisp Function?
« Reply #13 on: June 09, 2009, 05:56:02 PM »
There are quite a few that are "undocumented" actually - if you type:

Code: [Select]
(atoms-family 0)
You'll see a list of about 3125 functions...

Enjoy: http://www.theswamp.org/swamp.files/Public/atoms15.zip

I seem to recall there being an Atoms16 version somewhere ??
Called Kerry in my other life
Retired; but they dragged me back in !

I live at UTC + 13.00

---
some people complain about loading the dishwasher.
Sometimes the question is more important than the answer.

MP

  • Seagull
  • Posts: 17750
  • Have thousands of dwgs to process? Contact me.
Re: ADS Undocumented Lisp Function?
« Reply #14 on: June 09, 2009, 06:13:34 PM »
I seem to recall there being an Atoms16 version somewhere ??

Hmmm, I think I left it with my teeth somewhere.
Engineering Technologist • CAD Automation Practitioner
Automation ▸ Design ▸ Drafting ▸ Document Control ▸ Client
cadanalyst@gmail.comhttp://cadanalyst.slack.comhttp://linkedin.com/in/cadanalyst