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

代码示例。
 

(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)
)

 
塔瓦特

Lee Mac 发表于 2022-7-6 10:03:03

 
酷，如果你需要解释什么，喊出来

LISP2LEARN 发表于 2022-7-6 10:21:33

我的代码比你的代码长3倍，你可以这么说。哈哈，这就是新手和专家的区别。谢谢塔瓦。

LISP2LEARN 发表于 2022-7-6 10:28:30

 
谢谢李，但我现在很好，今晚可以睡个好觉。只需要做大量的阅读lisp教程。
页: [1]
查看完整版本: 如何向文本中添加字符串。