Topic: AutoCAD Architecture 2009 - DisplayPreferences

[jbuzbee]

Code: [Select]

(vlax-dump-Object(vla-get-display(vla-get-preferences acadObj)))

;   DockedVisibleLines = 2
;   GraphicsWinLayoutBackgrndColor = unsupported result type: 19
;   GraphicsWinModelBackgrndColor = unsupported result type: 19
;   HistoryLines = 400
;   ImageFrameHighlight = 0
;   LayoutCreateViewport = -1
;   LayoutCrosshairColor = unsupported result type: 19

     :realmad:

[Jeff_M]

What, the unsupported result type?

Just use the (vlax-variant-change-type var type)....

Code: [Select]

_$ (setq displayprefs (vla-get-display (vla-get-preferences (vlax-get-acad-object))))
(setq cursor (vlax-get-property displayprefs 'ModelCrosshairColor))
#<VLA-OBJECT IAcadPreferencesDisplay 24ee104c>
#<variant 19 16777215>
_$ (setq cursor (vlax-variant-change-type cursor vlax-vblong))
#<variant 3 16777215>
;;with this known type variant you can edit as you wish, then convert it back to the type 19
_$ (setq cursor (vlax-variant-change-type cursor 19))
#<variant 19 16777215>
_$ (vlax-put-property displayprefs 'ModelCrosshairColor cursor)
nil


[jbuzbee]

I tried that at first and couldn't get it to work.  I see now I was doing it wrong!

Thanks Jeff.