关于TEXT选择集中图元先后问题

SWAYWOOD · 发表于 2004-4-11 18:01:00

斑竹，请教一个问题我想做一个可以调整技术要求的行间距的东东，但选择集中的图元顺序不是按照技术要求中的相应的1，2，3，4……排列的，这么一来就全乱了，不知有没有好的办法，让选择集中的图元信息按照各行文字插入点的纵坐标来排列

meflying · 发表于 2004-4-11 18:37:00

你可以自己排一下顺序啊

SWAYWOOD · 发表于 2004-4-13 12:38:00

在获取了选择集后，怎么让它重新排列呢？

alin · 发表于 2004-4-13 14:00:00

Put the items in the selection set into a list, say entlst, then

(vl-sort entlst '(lambda (e1 e2) (< (caddr (assoc 10 (entget e1))) (caddr (assoc 10 (entget e2))))))

lzy9788 · 发表于 2004-4-14 22:11:00

楼上的就是了，你按文字的定义坐标排序就行了。

SWAYWOOD · 发表于 2004-4-21 12:31:00

我不太会用这个函数，我也试过但还是不行，请大虾给我瞧瞧吧！

(defun c:test()
(SETQ ss (ssget '((0 . "TEXT"))))
(SETQ SSL (sslength ss))(setq n 0)
(while (< n ssl)
(setq e (ssname ss n))
(append el (list e))
(setq n (+ n 1))
)
(vl-sort el '(lambda (e1 e2) (< (caddr (assoc 10 (entget e1))) (caddr (assoc 10 (entget e2))))))
)

alin · 发表于 2004-4-21 12:50:00

(defun c:test()
(SETQ ss (ssget '((0 . "TEXT"))))
(SETQ SSL (sslength ss)
el '()
n 0)
(while (< n ssl)
(setq e (ssname ss n))
(setq el (append el (list e)))
(setq n (+ n 1))
)
(setq el (vl-sort el '(lambda (e1 e2)
(< (caddr (assoc 10 (entget e1)))
(caddr (assoc 10 (entget e2)))))
)
)
)

SWAYWOOD · 发表于 2004-4-21 17:31:00

多谢！

账号		自动登录	找回密码
密码			注册