如何向文本中添加字符串。

LISP2LEARN · 发表于 2022-7-6 09:22:53

如何向文本中添加字符串？我有一个文本，忘了在值的末尾加“cm”。任何帮助都将不胜感激。

Lee Mac · 发表于 2022-7-6 09:34:28

[列表]

提示添加字符串（getstring）

提示选择文本实体集（ssget）

迭代选择集（while/repeat/sslength/ssname等）

获取实体文本（DXF 1）

用新字符串连接文本（strcat）

修改实体（entmod）
[/列表]

LISP2LEARN · 发表于 2022-7-6 09:44:55

谢谢李。Entmod就是我要找的。最好再次阅读基础教程。呵呵。再次感谢李。

Tharwat · 发表于 2022-7-6 09:53:38

代码示例。

copy


(defun c:Test (/ ss l sset str e)
 (if
   (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
    (repeat
      (setq l (sslength ss))
       (setq sset (ssname ss (setq l (1- l))))
       (setq str (cdr (assoc 1 (setq e (entget sset)))))
       (entupd
         (cdr
           (assoc
             -1
             (entmod (subst (cons 1 (strcat str "cm")) (assoc 1 e) e))
           )
         )
       )
    )
    (princ)
 )
 (princ)
)