linetype 삭제 안되는것들

linetype 삭제 안되는것들에 대해 찾아 보던중 Kor_Storm (810storm) 이분이 올려주신 리습을 발견했습니다.
그런데 이 리습을 사용하니 linetype은 정리가 되었는데 도면내에 일부 dim이 같이 삭제 되는 현상이 발견 되었습니다.
어떻게 해야 할까요? 다른 방법이 없는지요?

Kor_Storm (810storm) 이분이 올려주신 리습
(defun c:test ( / acad doc blocks) ;명령어 : test (원하시는 걸로 바꿔서 사용)
 (vl-load-com)
 (setq
  acad (vlax-get-acad-object)
  adoc (vlax-get acad ‘activedocument)
  blocks (vlax-get adoc ‘blocks)
 )
 (vlax-for block blocks
  (vl-catch-all-error-p (vl-catch-all-apply ‘vla-delete (list block)))
 )
 (vla-purgeall adoc)   
 (mapcar ‘vlax-release-object (list acad adoc blocks))
 (princ)
)