Lisp tool for coloring ALMOST perfect...

[jkramer]

Hi,

By using Tools > Customize > New.... I made a simple button in OSD that will give the Active Part a random color each time I click it. Saves some time when doing a quick and dirty modeling job
It works great, except for the fact that I have to click in the Viewport before anything happens. So, I press my new button AND click somewhere in the Viewport, and then my Active Part has a new color.
Is there a trick to make the button work without the 2nd click???
Here's the code that's used in the button:

(ELAN::SET_PART_COLOR (OLI::SD-INQ-CURR-PART) :RGB
    (FRAME2::GPNT3D (LISP::RANDOM 1.0) (LISP::RANDOM 1.0)
        (LISP::RANDOM 1.0))
    :DONE)

Thanks!
Regards,
Jaap

[Andy Poulsen]

Hi Jaap,

I believe this will do the trick for you:

(progn
  (ELAN::SET_PART_COLOR (OLI::SD-INQ-CURR-PART) :RGB
    (FRAME2::GPNT3D (LISP::RANDOM 1.0) (LISP::RANDOM 1.0)
        (LISP::RANDOM 1.0))
    :DONE)
  (update_screen))

You just need to tell OSM to update the screen (which clicking in the viewport will also do).

The other thing to note is that when you assign code to a button, it expects a single command, which is why the "progn" statement (along with its closing parenthesis) is needed -- the (progn ...) statement allows your color randomizer and the update_screen call to be passed as a single command to the customization interface. (I know you're aware of what (progn ...) does, but maybe this will help some others who are just getting started!)

I hope this helps!

Merry Christmas and Happy New Year everyone!

andy

[jkramer]

Hi,

YES!! This is working perfectly :-)
Thanks!
Regards,
Jaap

[tom kirkman]

Jaap

Out of curiosity, what is Elan: used for? What does it mean.


Thanks

Tom

[clausb]

Originally Posted by tom kirkman

Jaap
Out of curiosity, what is Elan: used for? What does it mean.

These are package specifications, the Lisp equivalent to "namespaces" in other programming languages. And package names such as "ELAN" or "FRAME2", as in the example above, mean that undocumented and unsupported functionality is used, which I'd definitely recommend to stay away from.

Claus

[Wolfgang]

Originally Posted by tom kirkman

Out of curiosity, what is Elan: used for? What does it mean.

It is a lisp package. Same as OLI or LISP or my-package. But in most of the cases the package specification is not needed, because the functions are exported.

so:

PHP Code:

(in-package :my-tools)
(use-package :oli)
(progn
  (SET_PART_COLOR (SD-INQ-CURR-PART) :RGB
    (GPNT3D (RANDOM 1.0) (RANDOM 1.0) (RANDOM 1.0)) :DONE)
  (update_screen)) 


would be the same. But then you need a lisp file.. or so. But jaap put it into a new available command, created interactively. Then all the lisp-packages are added explicit.

[tom kirkman]

Thanks

This clears up several other lisp programs I had questions with.

Tom

[jkramer]

Hi,

thanks Wolfgang, now I understand it myself
It was recorded in the Tools > Customize menu, indeed, because I knew from earlier experiments that some of the package specifications seem to be necessary.
Kind regards,
Jaap

[Wolfgang]

To colorize all parts within an assembly, or a selected set of parts, by using a random color (or one set) there an old and a new tool available at http://osd.cad.de/index.en.htm

Have a look to

• Color Parts Randomly

[jkramer]

Hi,

that's a nice tool! We use a tool that's very similar, but your tool has more options.
Thanks for the hint!
Kind regards,
Jaap