- (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)
- )
|