求改良按顺序刷文字内容插件

q2284555

该插件我已经用一段时间了，还有点小缺陷，没法刷的过程中没法知道刷的内容是否对应，有大神帮忙改良一下吗？

xyp1964

1. (defun c:tt ()
   
2.   (setq ss1  (sf-ssget "\n选源" '(((0 . "TEXT"))))
   
3.         ss2  (sf-ssget "\n选目" '(((0 . "TEXT"))))
   
4.         lst1 (vl-sort (sf-ss-list ss1) '(lambda (x y)(> (cadr (sf-dxf x 10)) (cadr (sf-dxf y 10)))))
   
5.         lst2 (vl-sort (sf-ss-list ss2)'(lambda (x y)(> (cadr (sf-dxf x 10)) (cadr (sf-dxf y 10)))))
   
6.   )
   
7.   (mapcar '(lambda (x y) (grvecs (list 1 (sf-dxf x 10) (sf-dxf y 10))))lst1 lst2)
   
8.   (mapcar '(lambda (a b) (sf-PutDxf b 1 (sf-dxf a 1)))lst1 lst2)
   
9.   (princ)
   
10. )

(defun c:tt ()<br />   (setq ss1  (sf-ssget "\n选源" '(((0 . "TEXT"))))<br />         ss2  (sf-ssget "\n选目" '(((0 . "TEXT"))))<br />         lst1 (vl-sort (sf-ss-list ss1) '(lambda (x y)(> (cadr (sf-dxf x 10)) (cadr (sf-dxf y 10)))))<br />         lst2 (vl-sort (sf-ss-list ss2)'(lambda (x y)(> (cadr (sf-dxf x 10)) (cadr (sf-dxf y 10)))))<br />   )<br />   (mapcar '(lambda (x y) (grvecs (list 1 (sf-dxf x 10) (sf-dxf y 10))))lst1 lst2)<br />   (mapcar '(lambda (a b) (sf-PutDxf b 1 (sf-dxf a 1)))lst1 lst2)<br />   (princ)<br /> )

magicheno

xyp1964 发表于 2023-12-17 22:18

感谢院长分享

q2284555

xyp1964 发表于 2023-12-17 22:18

院长的方法更加巧妙！谢谢指点！

oistre

院长的代码不能运行，咋回事

oistre

接同步段可运行，但是提示本来是中文但显示乱码

wline

正好适合我最近用，感谢楼主