请教ssget替换命令

cafa

请教如何将两步命令整合成一次完成
(command "_.text" pt0 hi ""(strcat tot_area_mm));;插入文本;第一步
(setq ss (ssget '((0 . "TEXT"))))    ;手动选择文本;第二步
  (if ss
  (progn
  (setq i 0 Num "")
  (repeat (sslength ss)
    (setq en (ssname ss i))
    (setq GL-ed (entget en))
    (setq text (cdr (assoc 1 GL-ed)))
希望改成以下这样：
(command "_.text" pt0 hi ""(strcat tot_area_mm));;插入文本
(setq ss (entget (entlast))) ;自动获取上面插入的文本
  (if ss
  (progn
  (setq i 0 Num "")
  (repeat (sslength ss)
    (setq en (ssname ss i))
    (setq GL-ed (entget en))
    (setq text (cdr (assoc 1 GL-ed)))
但是仅仅将 (setq ss (ssget '((0 . "TEXT"))))  替换成(setq ss (entget (entlast))) 后面的程序出错。希望大佬指正如何修改。

飞雪神光

1. (command "_.text" pt0 hi ""(strcat tot_area_mm))
   
2.                  (setq GL-ed (entget (entlast)))
   
3.                  (if GL-ed
   
4.                      (progn
   
5.                              (setq Num "")
   
6.                              (setq text (cdr (assoc 1 GL-ed)))
   

(command "_.text" pt0 hi ""(strcat tot_area_mm))<br />                  (setq GL-ed (entget (entlast)))<br />                  (if GL-ed<br />                      (progn<br />                              (setq Num "")<br />                              (setq text (cdr (assoc 1 GL-ed)))<br />