Topic: Current shademode?

[CLIMBCUTTER]

Can one get Acad's current shademode without hacking the return from the command?

[Lee Mac]

Hint:

Code - Auto/Visual Lisp: [Select]

1. (cdr
2.     (assoc
3.         (cdr
4.             (assoc 281
5.                 (entget
6.                     (vlax-vla-object->ename
7.                         (
8.                             (if (= 1 (getvar 'tilemode))
9.                                 vla-get-activeviewport
10.                                 vla-get-activepviewport
11.                             )
12.                             (vla-get-activedocument (vlax-get-acad-object))
13.                         )
14.                     )
15.                 )
16.             )
17.         )
18.        '(
19.             (0 . "2D Optimized (classic 2D)")
20.             (1 . "Wireframe")
21.             (2 . "Hidden line")
22.             (3 . "Flat shaded")
23.             (4 . "Gouraud shaded")
24.             (5 . "Flat shaded with wireframe")
25.             (6 . "Gouraud shaded with wireframe")
26.         )
27.     )
28. )

[ronjonp]

In AutoCAD 2013 this seems to work:

Code - Auto/Visual Lisp: [Select]

1. (cdr (assoc 2
2.             (entget (cdr (assoc 348
3.                                 (entget (vlax-vla-object->ename
4.                                           ((if (= 1 (getvar 'tilemode))
5.                                              vla-get-activeviewport
6.                                              vla-get-activepviewport
7.                                            )
8.                                             (vla-get-activedocument (vlax-get-acad-object))
9.                                           )
10.                                         )
11.                                 )
12.                          )
13.                     )
14.             )
15.      )
16. )

[Lee Mac]

In AutoCAD 2013 this seems to work:

Code: [Select]

...

Good call, works in 2010 also.

[ronjonp]

 

[ScottMC]

I have no calendar.. The only other way so far I've found was to flip in and out of paper space.

Code: [Select]


(defun  c:vs (/)
  ;; http://www.theswamp.org/index.php?topic=42966.msg608577#msg608577
  (setvar 'cmdecho 0)
  (setvar 'tilemode 0)
  (setvar 'tilemode 1)
 
  (vl-load-com)
  (defun shdmode nil
    (cdr
      (assoc
        (cdr
          (assoc 281
             (entget
               (vlax-vla-object->ename
                 (
                  (if (= 1 (getvar 'tilemode))
                    vla-get-activeviewport
                    vla-get-activepviewport
                  ) ;_ end of if
                   (vla-get-activedocument
                     (vlax-get-acad-object)
                   ) ;_ end of vla-get-activedocument
                 )
               ) ;_ end of vlax-vla-object->ename
             ) ;_ end of entget
          ) ;_ end of assoc
        ) ;_ end of cdr
        '(
          (0 . "2D Wireframe")
          (1 . "3D Wireframe")
          (2 . "Hidden line")
          (3 . "Flat shaded")
          (4 . "Gouraud shaded")
          (5 . "Flat shaded edges On")
          (6 . "Gouraud shaded edges On")
         )
      ) ;_ end of assoc
    ) ;_ end of cdr
  ) ;_ end of defun
  (setvar 'cmdecho 1)
  (shdmode)
) ;_ end of defun