请教如何将两步命令整合成一次完成
(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))) 后面的程序出错。希望大佬指正如何修改。



网友答: