lzspain 发表于 2023-8-20 23:14:12

看着有点儿意思

wline 发表于 2024-8-20 23:10:54

好东西，留个脚印

fen00 发表于 2024-8-23 18:00:34

这个不错，下载胃试试

xyp1964 发表于 2024-8-23 20:54:20



(defun c:tt ()
"批量按顺序刷文字内容"
"从上到下排序"
(if (and (setq ss1 (ssget '((0 . "text"))))
           (setq ss2 (ssget '((0 . "text"))))
      )
    (setq lst1 (xyp-Sort-Plist (xyp-Sort ss1 10 "Y-max") 1)
          lst2 (xyp-Sort-Plist (xyp-Sort ss2 10 "Y-max") 1)
          aa (mapcar '(lambda (x y) (xyp-SubUpd y 1 (xyp-DXF 1 x))) (mapcar 'cdr lst1)(mapcar 'cdr lst2))
    )
)
(princ)
)

today008 发表于 2024-8-25 11:19:24

感谢大佬分享

阿猪蛋 发表于 2024-8-26 09:24:16

好东西下来看看

A._建筑李工 发表于 2024-8-28 15:19:41

那个大佬可以帮忙改一下，列文字刷内容后删除源文字信息，只保留刷后的文字。

寒潮大冬瓜 发表于 2024-8-28 22:48:34

很好→很棒！很好~很棒！！很好……很棒！！！

fengyu6913 发表于 2024-8-29 00:41:30

感谢大佬分享
页: 1 [2]
查看完整版本: 有没有插件可以实现批量按顺序刷文字内容的？感觉功能挺通用的。