cafa 发表于 2024-1-22 00:09:31

请教ssget替换命令

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

飞雪神光 发表于 2024-1-22 00:52:59

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

页: [1]
查看完整版本: 请教ssget替换命令