如何把line线组成的图形转换成闭合曲线并标注型心

cq025

(defun C:xingxin()
(setq en (car(entsel "\n选取闭合曲线:")))
;(setvar "DELOBJ" 1)
(if ( /= (get-dxf 0 en) "REGION")
(progn
(command "region" en "")
(setq en (entlast))
));if

(setq   
ENT (vlax-ename->vla-object en)
CEN (vlax-get ENT "centroid")
AREA (vlax-get ENT "AREA"))
(princ (strcat "\narea: " (rtos area 2 3)))
(princ (strcat "\ncentroid: " (vl-princ-to-string cen )))
(command "point" CEN )
(princ)
  )
  ;;get-DXF 实体dxf数据 (get-DXF code ename)
;;get-dxf code ename， Designed by 林霄云。精简自e派。进行判断的，ename必须ename。
(defun get-DXF (code ename )
(cond ((= (type ename) 'ENAME)
      (if        (= code -3)
      (cdr (assoc code (entget ename '("*"))))
      (cdr (assoc code (entget ename)))
    ))
  );COND
)
这是一标注闭合曲线型心的程序，有个需要完善的地方，能否先增加一个判断，如果图形是line线组成，就把这些线改为闭合的多义线，再执行这个程序。
下面这个是把线段变成闭合线的程序，这两个程序的功能如果能合二为一，就完美了
(defun c:bdx( / ss i ename endata entype)
(princ "\n选择线段 <右键选择集>: ")
(setq ss (ssget '((0 . "LINE,LWPOLYLINE,ARC"))))
      (command "PEDITACCEPT" "1")
(if ss
      (command ".pedit" "m" ss "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
      (command ".pedit" "m" "p" "" "j" "0" "w" "0" "" "PEDITACCEPT" "0")
))