;;;Replaces old hd??? block definitions with new ones.
;;;Requires new hd??? drawings.
;;;2005
(DEFUN c:rehd ()
;;;  (setq myhdboxss (ssget "X" '((2 . "hdbox"))))
;;;  (setq myhdangss (ssget "X" '((2 . "hdang"))))
;;;  (setq myhdcircss (ssget "X" '((2 . "hdcirc"))))
;;;  (if (and myhdboxss (>=(sslength myhdboxss)1))
    (progn
      (command ".-insert" "hdbox=")
      (command)
      (command "'resume")
    )
;;;  )
;;;  (if (and myhdangss (>=(sslength myhdangss)1))
    (progn
      (command ".-insert" "hdang=")
      (command)
      (command "'resume")
    )
;;;  )
;;;  (if (and myhdcircss (>=(sslength myhdcircss)1))
    (progn
      (command ".-insert" "hdcirc=")
      (command)
      (command "'resume")
    )
;;;  )
  (princ)
)