Topic: PlotStyle "mystyle" (vla-put-PlotStyleName)

[vladimirzm]

I have MyStyles.stb and inside it "mystyle" plot style, I want to set this style to a layer through vla-put-PlotStyleName but it really don't work!

any idea?

[whdjr]

Theoretically this should work, however I did not test it.  I don't have any .stb files.

Code: [Select]

;I have MyStyles.stb and inside it "mystyle" plot style,
 ;I want to set this style to a layer through
 ;vla-put-PlotStyleName but it really don't work!

(defun ppsn (layername plotstylename)
  (vla-put-plotstylename
    (vla-item (vla-get-layers
(vla-get-activedocument (vlax-get-acad-object))
      )
      layername
    )
    plotstylename
  )
)

[CAB]

This method worked for me in ACAD2000

http://www.theswamp.org/forum/index.php?topic=5816.msg70666#msg70666

[vladimirzm]

whdjr, that function don't work, I did a very similiar one, but nothing happens.

CAB, the problem are my custom plot styles. ByLayer, ByBlock... and default plot styles load without problem

but finally I think, I found the answer: somebody tell me that I can load any custom plot style (with vla-put-PlotStyleName) only if before they have been loaded or applied at least once. then the function that works for me:

Code: [Select]

(defun ppsn (object stylename / cplotstyle)
  (setq cplotstyle (getvar "CPLOTSTYLE"))
  (setvar "CPLOTSTYLE" stylename)     
  (vla-put-PlotStyleName object stylename)
  (setvar "CPLOTSTYLE" cplotstyle)
)
So strange to be doing that