->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