q2284555 发表于 2023-12-16 19:56:35

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

本帖最后由 q2284555 于 2023-12-17 18:13 编辑



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

xyp1964 发表于 2023-12-16 19:56:36

本帖最后由 xyp1964 于 2023-12-17 22:19 编辑


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

magicheno 发表于 2023-12-17 23:38:08

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


感谢院长分享

q2284555 发表于 2023-12-18 16:23:17

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


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

oistre 发表于 2023-12-19 07:31:34

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

oistre 发表于 2023-12-19 07:56:17

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

wline 发表于 2024-8-20 23:09:13

正好适合我最近用，感谢楼主
页: [1]
查看完整版本: 求改良按顺序刷文字内容插件