Shorten method VLA?

R2005:

Is there a better way to get the real returned from the display color properties in stead of:

(setq cur_col
(vlax-variant-value
(vlax-make-variant
(vlax-get-property
(vla-get-display
(vla-get-preferences
(vlax-get-acad-object))) Dtype)
vlax-vbLong)
)
)

This works but I have a feeling my inexperience is keeping me from a shorter method.

TIA

Bill

 

vlax-variant-value and vlax-make-variant are inverse
functions of one another. You can eliminate them both.

(vlax-get-property (vla-get-display.....acad-object)))..)

 

Hi Bill

Not really...
Because 'vla-get-GraphicsWinModelBackgrndColor' etc. returns an OLE_COLOR type.
Vlisp doesn't handle this type so you've to change it to a long:
[code
(vlax-variant-value
(vlax-variant-change-type
(vla-get-GraphicsWinModelBackgrndColor
(vla-get-display
(vla-get-preferences (vlax-get-acad-object))
)
)
vlax-vbLong
)
)
[/code]

Cheers

 

Thanks Doug,
But it bombs like that.

Code:

Command: (vlax-get-property (vla-get-display (vla-get-preferences
(vlax-get-acad-object)))"GraphicsWinModelBackgrndColor")
#<variant 19 0>

Bill

 

Okay thanks.

I couldn't remember why I did it that way but now it comes back.

Bill

 

P.S.

vlax-variant-change-type

worked fine in my code, thanks for the tip.


Bill

 

Hi Bill

Glad to help you...¦-)

Cheers