_List all plot styles ??

[Anonymous]

Q1: How do I list all plot styles in the same way as I list the plot devices
(vlax-safearray->list
(vlax-variant-value
(vla-getplotdevicenames
(vla-item (vla-get-layouts
(vla-get-activedocument (vlax-get-acad-object))
)
"Model"
) ) ) )

I can of cause get all the filenames from the Plot Style folder but
there is a probelm if the folder contains a short cut to another folder.

Q2: How do I get the current setting for the Plot Style folder.
- I can get it by reading the registry key
(vl-registry-read (strcat"HKEY_CURRENT_USER\\"

(vlax-product-key)"\\Profiles\\"(getvar"CPROFILE")"\\General")"PrinterStyleS
heetDir")
but is it any other way like using the vlax-get-property and the right tab
and keyname ?

Q3: Where is the different 'Tabnames and 'Keynames listed

Thanks in advance,

/Henrik Andersen

--
¯`·.¸¸.·´¯`·.¸¸.-- 🙂 Henrik Andersen 🙂 --.¸¸.·´¯`·.¸¸.·´¯
www.cad-q.se

[Anonymous]

Does this give you what you want?

(defun c:getps ()
(safearray-value
(variant-value
(vla-GetPlotStyleTableNames
(vla-get-layout
(vla-get-modelspace
(vla-get-activeDocument
(vlax-get-acad-object)
)
)
)
)
)
)
)

Cliff

"Henrik Andersen" wrote in message
news:E56134FD0DBB6FE88FC8C17951997176@in.WebX.maYIadrTaRb...
| Q1: How do I list all plot styles in the same way as I list the plot
devices
| (vlax-safearray->list
| (vlax-variant-value
| (vla-getplotdevicenames
| (vla-item (vla-get-layouts
| (vla-get-activedocument (vlax-get-acad-object))
| )
| "Model"
| ) ) ) )
|
| I can of cause get all the filenames from the Plot Style folder but
| there is a probelm if the folder contains a short cut to another folder.
|
| Q2: How do I get the current setting for the Plot Style folder.
| - I can get it by reading the registry key
| (vl-registry-read (strcat"HKEY_CURRENT_USER\\"
|
|
(vlax-product-key)"\\Profiles\\"(getvar"CPROFILE")"\\General")"PrinterStyleS
| heetDir")
| but is it any other way like using the vlax-get-property and the right
tab
| and keyname ?
|
| Q3: Where is the different 'Tabnames and 'Keynames listed
|
| Thanks in advance,
|
| /Henrik Andersen
|
| --
| ¯`·.¸¸.·´¯`·.¸¸.-- 🙂 Henrik Andersen 🙂 --.¸¸.·´¯`·.¸¸.·´¯
| www.cad-q.se
|