topic Re: vla-put-ColorMethod error in Visual LISP, AutoLISP and General Customization Forum

vla-put-ColorMethod error

joselggalan — Mon, 29 Mar 2021 12:52:30 GMT

I have encountered an error in vla-put-ColorMethod in Autocad 2021
Does somebody know anything about this?

(setq oCol (vla-getinterfaceobject (vlax-get-acad-object) (strcat "autocad.accmcolor." (substr (getvar 'acadver) 1 2)))) (vla-put-ColorMethod oCol acColorMethodByRGB) error: Automation error. The description has not been provided.

regards.

Re: vla-put-ColorMethod error

silambua36 — Mon, 29 Mar 2021 17:23:39 GMT

Don't know much about ActiveX methods. But, I found this on autocad help.

"vla-put- functions correspond to every property, enabling you to update the value of that property (for example, vla-put-Color updates an object's Color property)."

may be it is just vla-put-color?

Re: vla-put-ColorMethod error

ronjonp — Tue, 30 Mar 2021 20:07:54 GMT

@joselggalan wrote:
I have encountered an error in vla-put-ColorMethod in Autocad 2021
Does somebody know anything about this?

regards.

Your example does not error for me ( AutoCAD 2021 ).

Re: vla-put-ColorMethod error

Lee_Mac — Tue, 30 Mar 2021 21:24:53 GMT

Does the following perform successfully without error? That is, operating on an AcCmColor object returned by the ActiveX TrueColor property of an object:

(defun c:test ( / c e o )
    (if (setq e (car (entsel)))
        (progn
            (setq o (vlax-ename->vla-object e)
                  c (vla-get-truecolor o)
            )
            (vla-put-colormethod c accolormethodbyrgb)
            (vla-setrgb c 037 131 218)
            (vla-put-truecolor o c)
        )
    )
    (princ)
)

Re: vla-put-ColorMethod error

flannigan — Sat, 03 Apr 2021 05:22:31 GMT

I ran into the same issue.

There are changes to AcCmColor for ObjectARX in 2021 - I remember coming across some documentation but can't find it now.

In any case, I manage this issue with a check for 2021 as follows:

(if (< (atof (substr (getvar "ACADVER") 1 4)) 24) (vla-put-colormethod oCol acColorMethodByRGB) ) ;; input RGB value (setq rgb '(122 189 156)) ;; 2021 accepts values without setting colormethod beforehand (vla-SetRGB oCol (car rgb) (cadr rgb) (caddr rgb)) ;; apply color to object (vla-put-truecolor vla-obj oCol)

Which avoids a crash and works for all versions.

I do the same with index colours and colorbook colours (vla-put-colorindex and vla-SetColorBookColor)

Re: vla-put-ColorMethod error

joselggalan — Sun, 04 Apr 2021 12:41:15 GMT

Thanks Lee,
This solves some problem for me.
I actually use it in many cases in my code.
But in some cases, like this table creation one, I need to use the same variable to assign colors to the different elements.
Maybe I can change some code to modify all this, but I find it strange and uncomfortable that it does not work using the vla-getinterfaceobject method that I have used for years.

Re: vla-put-ColorMethod error

joselggalan — Sun, 04 Apr 2021 12:37:27 GMT

😲🤔

Re: vla-put-ColorMethod error

joselggalan — Sun, 04 Apr 2021 13:24:02 GMT

Thanks flannigan,
this works but:
What happens when you want to use a different method on several entities or objects using the same oCol object obtained with vla-getinterfaceobject.?
View image:

I have to test it thoroughly.

Re: vla-put-ColorMethod error

JamesMaeding — Thu, 15 Apr 2021 01:43:25 GMT

I just ran into this.

This code works on my 2021 but fails on a friend of mine's:

(DEFUN C:TESTCOLOR4 ( / color-list color-object object) (SETQ object (vlax-ename->vla-object (CAR (ENTSEL)))) (SETQ color-list (cons acColorMethodByaci 4)) (setq color-object (vla-GetInterfaceObject (vlax-get-acad-object) "AutoCAD.AcCmColor.24")) (vla-put-ColorMethod color-object (car color-list)) (vla-put-ColorIndex color-object (cdr color-list)) (vla-put-TrueColor object color-object) )

I tried commenting out the vla-put-colormethod and it worked on mine, but don't know yet if it helped my friend.

This is no good though. Works on one and not on the other, same acad version and updates???

Re: vla-put-ColorMethod error

markruys2 — Sat, 17 Apr 2021 13:16:18 GMT

seems they have fixed this bug in AutoCAD 2022