; ** 08-May-2007 NEHolt created
; ---------  W N U M _ 2 _ I N L I N E . L S P  -------
(defun c:wnum_2_inline ( / ss ix slen en)
  ; Get select set of all non-inline wire numbers on 
  ; active drawing
  (command "_.ZOOM" "_EXTENTS") ; display the whole drawing
  (setq ss (ssget "_X" '((-4 . "<AND")
                         (0 . "INSERT")
                         (-4 . "<OR")
                         (2 . "WD_WNH,WD_WNV")
                         (2 . "WD_WNH2,WD_WNV2")
                         (-4 . "OR>")
                         (-4 . "AND>"))))
  (if (/= ss nil)
    (progn ; some wire number block insers found
      (setq slen (sslength ss)) ; number of wnums found
      (setq ix 0) ; use this as index to cycle through them
      (while (< ix slen)
        ; Get next wire number block insert instance
        (setq en (ssname ss ix))
        (c:ace_toggle_inline en nil)        
        (setq ix (1+ ix)) ; increment index
      )
      ; All finished!
      (setq ss nil) ; release selection set
  ) )
  (command "_.ZOOM" "_PREV")
  (princ)
)