added option to show sub elements in dxfval

dxfval.lsp

@@ -6,7 +6,7 @@
 ;; gyetpet@gmail.com
 ;; gyetvai-peter.hu
 
-(defun C:dxfval (/ i imax il j jmax jl x ss currElem code groupCode en2 enlist2 )
+(defun C:dxfval (/ i imax il j jmax jl x ss currElem code groupCode sube en2 enlist2 )
     ;variables:
     (setq i 0);counter to zero
     (setq imax 1);while variable
@@ -31,6 +31,9 @@
     (setq groupCode (getint))
     (print groupCode)
 
+    (initget 1 "Yes No")
+    (setq sube (getkword "List sub entities? [Yes/No]"))
+    
     (while imax
         (print )
         (print )
@@ -63,7 +66,7 @@
                 
                 (setq en2(entnext (ssname ss i))) ;- Get the next sub-entity
 
-                (if en2
+                (if (and en2 (= sube "Yes"))
                     (progn
                         (print )
                         (princ "Sub entities: ")
@@ -81,6 +84,8 @@
                         )
                     
                     )
+                    (progn
+                        (if (= sube "Yes")
                             (progn
                                 (print )
                                 (princ "No sub entities")    
@@ -88,6 +93,8 @@
                         )
                     )
                 )
+            )
+        )