文本的“cp”lisp（复制粘贴）

Houdini88 · 发表于 2022-7-5 23:28:09

如何修改此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”）
（普林斯）
)

MSasu · 发表于 2022-7-6 01:27:21

基本上（未经测试）：

copy

...
(if ([color=magenta]wcmatch[/color] (cdr (assoc 0 (entget (car Ent ))) ) "[color=magenta]*[/color]TEXT" )
(progn
(setq TextSource (cdr (assoc 1 (entget (car Ent )))) )
(prompt "\nSelect text to infect : " )
(if (setq SelSet (ssget '((0 . "[color=magenta]*[/color]TEXT" ))) )
...

但如果多行文字实体中存在格式，则可能会产生问题！

请编辑您的帖子并添加代码标签。

[编程交流] 文本的“cp”lisp（复制粘贴）

发表回复

精选推荐