; 블럭내의 유령객체 삭제
; 장흥추억님 제작

(defun c:DelEEinBlock ( / oDocument entity oBlock TextString )
  (vl-load-com)
  (setq oDocument (vla-get-activedocument (vlax-get-acad-object)))
  (if (setq entity (car (entsel "n블럭을 선택: ")))
    (if (= (cdr (assoc 0 (entget entity))) "INSERT")
      (progn
(setq oBlock (vla-item (vla-get-blocks oDocument) (vla-get-name (vlax-ename->vla-object entity))))
(vlax-for obj oBlock
 (if (or (= (vla-get-objectname obj) "AcDbText") (= (vla-get-objectname obj) "AcDbMText"))
   (progn
     (setq TextString (vl-string-right-trim " " (vl-string-left-trim " " (vla-get-textstring obj))))
     (if (or (= TextString "") (= (substr TextString 1 1) "\")) (vla-delete obj))
   )
 )
)
(vlax-for obj oBlock
 (if (or (= (vla-get-objectname obj) "AcDbLine") (= (vla-get-objectname obj) "AcDbPolyline"))
   (if (<= (vla-get-length obj) 0.00000001) (vla-delete obj))
 )
)
      )
      (prompt "nSelected entity is not Block Reference ...")
    )
  )
  (princ)
)