title: Auto Lisp How to select items inside block and get Volume
body: <p>How to get Volume of 3D Solids inside a Block using Auto Lisp</p>
  
  <pre><code>                                   (setq Teset
                                        (ssget "X"
                                           (list (cons 8 Layerdname));;;;;;;;;;;;;Select the Blocks from the Main Layer
                                        )
                                     )
  
  
  
  
                                     (setq Tcntr 0)
                                     (setq Ttvm 0)
  
                                              (setq Ten (ssname Teset 0))
                                              (setq Tvlaobj (vlax-ename-&gt;vla-object Ten))
  
                                              (setq Tobjs (vla-Explode Tvlaobj))
                              ..............Help here Please.............
  
                                              (princ Tobjs)
  
                                          (princ)
  </code></pre>
  
  <p>In this Code 
  adding the items on a layer to selection set and explode the first entity which is a block.</p>
  
  <p>and i need to select all objects in that exploded block (all are 3d Solids) and print the volume </p>
  
  <p>Thanks in Advance</p>