[求助][1122]BOUNDARY命令问题请教

tctabc

[1122]BOUNDARY命令问题请教
为何此程序中 BOUNDARY 命令制作孤立物件的物件会没有出现
如果我想将此物件留下并且移转到一个固定的图层
不知道程序对吗?
另外这段程序还有一个问题
就是贴上的数据文字为何不能编辑呢
烦请各位帮忙解答
谢谢

(defun c:ac2 ()
   (setq pt (getpoint "\n选取点: "))
      (command "-BOUNDARY" pt "" )
      (setq en (entlast))
    (command "chprop" en "" "la" "bpoly" "")
      (if (/= en nil)
         (progn
            (command "area" "o" en)
            (setq aa (getvar "area"))
            (redraw en 3)
          ) 
      )
            (entdel en)
 (IF (tblsearch "STYLE" "CHINA-H")
       (setvar "TEXTSTYLE" "CHINA-H")
       (COMMAND "-style" "CHINA-H" "simplex,china" "" "1" "" "" "" "")
 )
 (setq txt (strcat "\n 面积:" (rtos (/ aa 10000) 2 3) "㎡ ")
)
   (command "text" pt "" "" txt)
   (prin1)
   )