Topic: setvar "CPLOTSTYLE" to existing plotstyle

[Peter2]

I have named plotstyles and want to use

Code - Auto/Visual Lisp: [Select]

1. (setvar "CPLOTSTYLE" "test")

Of course I get an error if the named plotstyle "test" does not exist.

How can I check if "test" exists?

Thanks

[ronjonp]

Perhaps:

Code - Auto/Visual Lisp: [Select]

1. (defun _plotstylexist-p (stylename / d)
2.   (and (setq d (dictsearch (namedobjdict) "ACAD_PLOTSTYLENAME"))
3.        (dictsearch (cdr (assoc -1 d)) stylename)
4.   )
5. )
6. (_plotstylexist-p "normal")

[BlackBox]

How can I check if "test" exists?

You can use something like this:

Code - Auto/Visual Lisp: [Select]

1. (defun c:FOO (/ _GetPlotSettings acDoc)
2.  
3.   (defun _GetPlotSettings (doc / plotSettings)
4.     (vlax-for x (vla-item (vla-get-dictionaries acDoc)
5.                           "ACAD_PLOTSETTINGS"
6.                 )
7.       (setq plotSettings (cons (vla-get-name x) plotSettings))
8.     )
9.     (reverse plotSettings)
10.   )
11.  
12.   (if
13.     (and
14.       (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
15.       (vl-position "Test" (_GetPlotSettings acDoc))
16.     )
17.      (setvar 'cplotstyle "Test")
18.      (prompt "\n** \"Test\" is not an available plot style ** ")
19.   )
20.   (princ)
21. )
22.  

[Edit] - D@mn ninjas

[Peter2]

Thanks ronjonp

in the meantime I found a post by irneb (thanks too !  )

http://forums.augi.com/archive/index.php/t-102823.html

Code - Auto/Visual Lisp: [Select]

1. (setq root (entget (namedobjdict)))
2. (setq ed (entget (cdr (cadr (member '(3 . "ACAD_PLOTSTYLENAME") root)))))
3. (member (cons 3 "test") ed)

[ronjonp]

Thanks ronjonp

in the meantime I found a post by irneb (thanks too !  )

http://forums.augi.com/archive/index.php/t-102823.html

Code - Auto/Visual Lisp: [Select]

1. (setq root (entget (namedobjdict)))
2. (setq ed (entget (cdr (cadr (member '(3 . "ACAD_PLOTSTYLENAME") root)))))
3. (member (cons 3 "test") ed)

Glad you found what you needed. Be aware that using member to look for an item in a list is case sensitive.

Code - Auto/Visual Lisp: [Select]

1. (member (cons 3 "Test")(list (cons 3 "test")))
2. nil

[ronjonp]

How can I check if "test" exists?

....
[Edit] - D@mn ninjas

[Peter2]

Hi

thanks to all.

@ronjonp: works fine, short, easy, not case-sensitive, .. - perfect.

@BlackBox: I tried, but "_GetPlotSettings" returns always nil ..

@irneb (from 2009): works too, but with case-sensitivity.

Thanks for that great forum!

[Peter2]

Additional info for special cases:

Code - Auto/Visual Lisp: [Select]

1. ...(dictsearch (namedobjdict) "ACAD_PLOTSTYLENAME"))...

The dictionary is not refreshed when the STB is changed. Usually this happens not very often, but ..

- I had "a.stb" with plotstyle "test": Everything OK.
- I replaced it with "b.stb" without "test": The code says "test exists", while (setvar "cplotstyle" "test") reports an error "test does not exists".

[roy_043]

Actually the "ACAD_PLOTSTYLENAME" dictionary does not list the styles in the STB file. It lists the styles that are in use in the drawing.

[roy_043]

Try using:

Code: [Select]

(vl-catch-all-apply 'setvar '(cplotstyle "test"))

[Peter2]

Actually the "ACAD_PLOTSTYLENAME" dictionary does not list the styles in the STB file. It lists the styles that are in use in the drawing.

Yes, you're right. Searching the "available" plotstyles needs another solution.

Try using:

Code: [Select]

(vl-catch-all-apply 'setvar '(cplotstyle "test"))

Yes, it works. Namely there is still an error-message created by Autocad (not Lisp), but the lisp continues to work.

[ronjonp]

Actually the "ACAD_PLOTSTYLENAME" dictionary does not list the styles in the STB file. It lists the styles that are in use in the drawing.

Yes, you're right. Searching the "available" plotstyles needs another solution.

Try using:

Code: [Select]

(vl-catch-all-apply 'setvar '(cplotstyle "test"))

Yes, it works. Namely there is still an error-message created by Autocad (not Lisp), but the lisp continues to work.

Maybe this ?

Code - Auto/Visual Lisp: [Select]

1. (vl-directory-files (getenv "PrinterStyleSheetDir") "*.*tb" 1)

[Peter2]

Returns nil. I suppose this should return the existing files, but for this I have another solution.

But the analysis of the STB leads too far from my basic target; I'm happy with the solution above. Thanks a lot for your help!