文本的“cp”lisp（复制粘贴）
如何修改此lisp CP以同时更改多行文字而不仅仅是文字？谢谢
（定义c:cp（/Ent TextSource SelSet Items Index EntDxf）
（命令“_.UNDO”“BEgin”）
（如果（setq Ent（entsel“选择文本感染源：”））
（程序
（if（=（cdr（assoc 0（entget（car Ent）））“TEXT”）
（程序
（setq TextSource（cdr（assoc 1（entget（car Ent））））
（提示“\n选择要感染的文本：”）
（if（setq SelSet（ssget’（（0。“TEXT”））））
（程序
（setq项目（sslength SelSet））
（setq索引-1）
（重复项目
（setq索引（1+索引））
（setq EntDxf（entget（ssname SelSet Index）））
（setq EntDxf（subst（cons 1 TextSource）（assoc 1 EntDxf）EntDxf））
（entmod EntDxf）
)
（princ（strcat（itoa Items）“文本对象更改为”TextSource“！”）
)
（princ“未选择文本！”）
)
)
（原则“…您必须选择文本！”）
)
)
（普林斯“小姐，瞄准更好！”）
)
（命令“_.UNDO”“End”）
（普林斯）
) 基本上（未经测试）：
...
(if (wcmatch (cdr (assoc 0 (entget (car Ent ))) ) "*TEXT" )
(progn
(setq TextSource (cdr (assoc 1 (entget (car Ent )))) )
(prompt "\nSelect text to infect : " )
(if (setq SelSet (ssget '((0 . "*TEXT" ))) )
...但如果多行文字实体中存在格式，则可能会产生问题！
请编辑您的帖子并添加代码标签。
页:
[1]