topic Re: copy color to clipboard in Visual LISP, AutoLISP and General Customization Forum

copy color to clipboard

andrea_ricci-ext — Fri, 12 May 2023 14:25:10 GMT

Is there any autolisp to copy the color to clipboard?

Ideally I wish: if bylayer→ layer's color, otherwise the object's color, acad code or RGB.

Thank you

Re: copy color to clipboard

pendean — Fri, 12 May 2023 14:52:49 GMT

@andrea_ricci-ext what do you do with that information afterwards if I may ask?

Re: copy color to clipboard

john.kaulB9QW2 — Fri, 12 May 2023 15:47:09 GMT

Clipboard stuff is done via an HTML object. -i.e. (vlax-create-object "htmlfile")

Tony Tanzillo had a nice writeup on TheSwamp about this subject (memory and leaks and stuff) which he gave a nice routine/method for clipboard access.

Michael Puckett also compiled a few routines in a discussion, on TheSwamp, with Patrick_35 and XShrimp I have used as well for clipboard access.

Re: copy color to clipboard

paullimapa — Fri, 12 May 2023 15:49:09 GMT

Combination of this code that selects the object and returns the color #
https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/how-to-get-color-number/td-p/8545039

and this subroutine

_SetClipBoardText

that sends it to the clipboard

https://www.cadtutor.net/forum/topic/62104-quick-lisp-to-put-of-objects-selected-to-the-clipboard/

Re: copy color to clipboard

Kent1Cooper — Fri, 12 May 2023 15:58:00 GMT

@andrea_ricci-ext wrote:

Is there any autolisp to copy the color to clipboard?

Ideally I wish: if bylayer→ layer's color, otherwise the object's color, acad code or RGB. ....

Getting it is not hard:

(defun C:eColor (/ ent) (setq ent (car (entsel "\nObject to get its color: ")) eColor (getpropertyvalue ent "color") eColor (if (member eColor '(0 256)) (cdr (assoc 62 (tblsearch "layer" (cdr (assoc 8 (entget ent)))))) eColor ) ) )

That results in a text string if it's a Truecolor object override, or an integer if it's an index color, and it seems if it's ByLayer/ByBlock and the Layer's color is Truecolor [it gets "rounded" to the closest index color]. I'm not sure how to get the Truecolor numbers of the Layer color, which are similarly "rounded" in (tblsearch) and (entget (tblobjname)) results. But they must be available -- the Layer Manager list shows them.

Getting it to the clipboard is a little more complicated, but I agree -- how are you going to use the information? That could affect what should be done with it.

Re: copy color to clipboard

andrea_ricci-ext — Fri, 12 May 2023 16:13:46 GMT

Hi, I wish to paste it in another software

Re: copy color to clipboard

Kent1Cooper — Fri, 12 May 2023 16:23:19 GMT

@andrea_ricci-ext wrote:
.... I wish to paste it in another software

And in what form / format does that other software want it? Does it know that in AutoCAD, simple integers [1 through 255, anyway] can represent colors -- 1 is red, 2 is yellow, etc.? Would it want only 3-number RGB-style information, meaning that AutoCAD index colors need to be converted to equivalent RGB values? And with RGB values, does it want a comma-delimited text string, or something like an AutoLisp list of numbers, or...? Etc., etc.

Re: copy color to clipboard

pendean — Fri, 12 May 2023 16:37:32 GMT

@andrea_ricci-ext wrote:
Hi, I wish to paste it in another software

And what other software is that? And what in that software is the setting for and where will it be applied?

Re: copy color to clipboard

andrea_ricci-ext — Sat, 13 May 2023 07:26:26 GMT

the "paste to" software is not defined. Sometimes is a blog post, sometimes is inside autocad itself. So maybe it would be interesting an easy-to-find spot in the code to easilly set the spacer (space, comma and so on).

Maybe it would be usefull to have separate commands as copyToACI, copyToRGBspace, copyToRGBcomma and so on.

Re: copy color to clipboard

Sea-Haven — Mon, 15 May 2023 00:21:08 GMT

Am I interpreting this correctly that you want to copy text that has a color like red so when you paste it to some where else the text keeps the color, the reason I ask this just getting the COLOR will return just numbers like 1, 123,56,67 for rgb. If you copyclip a text it remains in the clipboard as a Autocad text object so trying to paste to some where else tends to not work. Like mtext each software has some form of coding to say do this for a text color. It may be simple like a bold is \b. The same as enter code is [code] in a lot of forums, the end of code is [/code]

Some one may know more about BBC coding.

Re: copy color to clipboard

andrea_ricci-ext — Mon, 15 May 2023 06:18:59 GMT

correct, I wish simple text as 123 for acad color or 0,120,226 for RGB (eventually with the option for different separators as space or semicolon).
I run in this need when I was writing some blog post in markdown, but also when I wanted to put the color code in the dwg itself (as a text).

Re: copy color to clipboard

komondormrex — Mon, 15 May 2023 12:04:18 GMT

ladies first.

hey Andrea,

check the code attached.

Re: copy color to clipboard

andrea_ricci-ext — Mon, 15 May 2023 10:23:17 GMT

that's great!
Thank you very much. I'm trying reading the code: very complicated for my knowledge.

Re: copy color to clipboard

andrea_ricci-ext — Mon, 15 May 2023 11:57:20 GMT

My I publish your lisp in my blog, in the "tools" section? Maybe you wish to add credits in the head of the lisp?
https://andrearicci.it/howtocad/
Thank you again

Re: copy color to clipboard

komondormrex — Mon, 15 May 2023 12:05:52 GMT

sure you may. i added credits to the code.

Re: copy color to clipboard

andrea_ricci-ext — Mon, 15 May 2023 12:27:34 GMT

thank you again