Code:
(defun c:detect_VisualStyle (/ VpEnt VsLst varlist)
(vl-load-com)
(if (> (atoi (substr (getvar "ACADVER") 1 2)) 16)
	(progn
		(if (= (getvar "TILEMODE") 1)
		(setq VpEnt (vlax-vla-object->ename (vla-get-activeviewport (vla-get-activedocument (vlax-get-acad-object)))))
		(setq VpEnt (vlax-vla-object->ename (vla-get-activepviewport (vla-get-activedocument (vlax-get-acad-object)))))
		)
	;;(princ (entget (cdr (assoc 348 (entget VpEnt)))))
	(setq vsname (cdr (assoc 2 (entget (cdr (assoc 348 (entget VpEnt)))))))
	)
)
(princ (strcat "\n" vsname))
(setq varlist (list_some_visualstylevariables))
(princ_stringlist (manipulate_string_list_so_that_string_afer_character_aligns varlist " " " "))
)

(defun list_some_visualstylevariables (/)
(setq varlist (list))
(setq varlist (append varlist (list(strcat "\nVSFACESTYLE = " (itoa(getvar "VSFACESTYLE"))))))
(setq varlist (append varlist (list(strcat "\nVSLIGHTINGQUALITY = " (itoa(getvar "VSLIGHTINGQUALITY"))))))
(setq varlist (append varlist (list(strcat "\nVSMONOCOLOR = " (getvar "VSMONOCOLOR")))))
(setq varlist (append varlist (list(strcat "\nVSFACEOPACITY = " (itoa(getvar "VSFACEOPACITY"))))))
(setq varlist (append varlist (list(strcat "\nVSMATERIALMODE = " (itoa(getvar "VSMATERIALMODE"))))))
(setq varlist (append varlist (list(strcat "\nVSBACKGROUNDS = " (itoa(getvar "VSBACKGROUNDS"))))))
(setq varlist (append varlist (list(strcat "\nVSEDGES = " (itoa(getvar "VSEDGES"))))))
(setq varlist (append varlist (list(strcat "\nVSEDGECOLOR = " (getvar "VSEDGECOLOR")))))
(setq varlist (append varlist (list(strcat "\nVSEDGELEX = " (itoa(getvar "VSEDGELEX"))))))
(setq varlist (append varlist (list(strcat "\nVSEDGEJITTER = " (itoa(getvar "VSEDGEJITTER"))))))
(setq varlist (append varlist (list(strcat "\nVSEDGESMOOTH = " (itoa(getvar "VSEDGESMOOTH"))))))
(setq varlist (append varlist (list(strcat "\nVSHALOGAP = " (itoa(getvar "VSHALOGAP"))))))
(setq varlist (append varlist (list(strcat "\nVSSILHEDGES = " (itoa(getvar "VSSILHEDGES"))))))
(setq varlist (append varlist (list(strcat "\nVSSILHWIDTHv = " (itoa(getvar "VSSILHWIDTH"))))))
(setq varlist (append varlist (list(strcat "\nVSOCCLUDEDEDGES = " (itoa(getvar "VSOCCLUDEDEDGES"))))))
(setq varlist (append varlist (list(strcat "\nVSOCCLUDEDCOLOR = " (getvar "VSOCCLUDEDCOLOR")))))
(setq varlist (append varlist (list(strcat "\nVSOCCLUDEDLTYPE = " (itoa(getvar "VSOCCLUDEDLTYPE"))))))
(setq varlist (append varlist (list(strcat "\nVSINTERSECTIONEDGES = " (itoa(getvar "VSINTERSECTIONEDGES"))))))
(setq varlist (append varlist (list(strcat "\nVSINTERSECTIONCOLOR = " (getvar "VSINTERSECTIONCOLOR")))))
(setq varlist (append varlist (list(strcat "\nVSINTERSECTIONLTYPE = " (itoa(getvar "VSINTERSECTIONLTYPE"))))))
(setq varlist (append varlist (list(strcat "\nVSFACEHIGHLIGHT = " (itoa(getvar "VSFACEHIGHLIGHT"))))))
(setq varlist (append varlist (list(strcat "\nVSSHADOWS = " (itoa(getvar "VSSHADOWS"))))))
varlist
)

(defun nth_num (str char / i)
 (if (wcmatch str (strcat "*" char "*"))
   (progn
     (setq i 1)
     (while (not (wcmatch (substr str i) (strcat char "*")))
	(setq i (1+ i))
     )
     i
   )
 )
)

(defun get_max_pos_number (strlist char / cur_nr max_nr)
(setq max_nr 0)
(foreach n strlist (if (>= (setq cur_nr (nth_num n char)) max_nr) (setq max_nr cur_nr)))
max_nr
)

(defun insert_string (string str p)
 (if (not (vl-string-search string str))
  (if (and (not (minusp p)) (<= p (strlen string)))
   (if (= p 0)
    (strcat str string)
    (strcat (substr string 1 p) str (substr string (1+ p)))
   )
  )
 ) 
)

(defun manipulate_string_list_so_that_string_afer_character_aligns (strlist char alignchar / max_nr man_list)
(setq man_list (list))
(setq max_nr (get_max_pos_number strlist char))
(foreach n strlist 
	(if (>= max_nr (setq cur_nr (nth_num n char)))
		(progn
		(setq diff_nr (- max_nr cur_nr))
			(repeat diff_nr
			(setq n (insert_string n alignchar cur_nr))
			)
			(setq man_list (append man_list (list n)))
		)
	)
)
man_list
)

(defun princ_stringlist (strlist)
(foreach n strlist (princ n))
(princ)
)

(princ)
->
X-Ray
VSFACESTYLE = 1
VSLIGHTINGQUALITY = 1
VSMONOCOLOR = RGB:255,255,255
VSFACEOPACITY = 50
VSMATERIALMODE = 2
VSBACKGROUNDS = 1
VSEDGES = 1
VSEDGECOLOR = 7
VSEDGELEX = -6
VSEDGEJITTER = -2
VSEDGESMOOTH = 1
VSHALOGAP = 0
VSSILHEDGES = 0
VSSILHWIDTHv = 3
VSOCCLUDEDEDGES = 0
VSOCCLUDEDCOLOR = BYENTITY
VSOCCLUDEDLTYPE = 1
VSINTERSECTIONEDGES = 0
VSINTERSECTIONCOLOR = 7
VSINTERSECTIONLTYPE = 1
VSFACEHIGHLIGHT = -30
VSSHADOWS = 0