(defun c:TogglePlotStyleDisplay ( / acadApp doc layout currentStatus )
  (vl-load-com)

  (setq acadApp (vlax-get-acad-object))
  (setq doc (vla-get-ActiveDocument acadApp))
  (setq layout (vla-get-ActiveLayout doc))

  ;; Obtener estado actual
  (setq currentStatus (vla-get-ShowPlotStyles layout))

  ;; Invertir estado
  (vla-put-ShowPlotStyles layout (if (= currentStatus :vlax-true) :vlax-false :vlax-true))

  ;; Regenerar para que se vea el cambio
  (command "_.REGENALL")

  ;; Mensaje al usuario
  (princ (strcat "\nDisplay Plot Styles ha sido "
                 (if (= currentStatus :vlax-true) "desactivado." "activado.")
         ))
  (princ)
)