图元怎么按照从左到右的位置关系排序？

BDYCAD · 发表于 2004-2-5 14:36:00

好! 正是我想要的. 謝龍版. . 我在后面加上幾句就好了, 如下: (defun C:Test (/ SS N LEN_LIST a b )
(setq SS (ssget "x")
N 0
)
(repeat (sslength SS)
(setq
LEN_LIST (cons (list (setq ENT (ssname SS N))
(vlax-curve-getdistatparam
(setq ENT (vlax-ename->vla-object ENT))
(vlax-curve-getendparam ENT)
)
)
LEN_LIST
)
)
(setq N (1+ N))
)
(setq LEN_LIST (vl-sort LEN_LIST
(function (lambda (P1 P2) (< (cadr P1) (cadr P2))))
))
(setq n 0)
(repeat (sslength SS); 更新實體．
(setq a (car (nth n LEN_LIST )))
(setq b (entget a))
(entmake b)
(entdel a)
(setq n (1+ n)))
(PRINC "\n完成排序.")
)

无痕 · 发表于 2004-2-7 03:45:00

后面也可以写成 (foreach n len_list (entmake (entget(car n)))(entdel (car n))) 不过为了以后选择方便，简易这样：。。。 (setq n 0 nss (ssadd))
(foreach n len_list (entmake (entget(car n))) (ssadd (entlast) nss)(entdel (car n)))
(PRINC "\n完成排序.")

kaixin119 · 发表于 2004-2-7 11:10:00

原程序能用,可经改进后用不了了执行"TT"直接就显示完成排序了,????

无痕 · 发表于 2004-2-7 14:48:00

可实际上已经重新排序了。你想要什么效果？

hkzwsy · 发表于 2004-2-7 15:18:00

如何实现按间隙最近进行排序？

kaixin119 · 发表于 2004-2-7 16:55:00

老大,我想问问 (setq n 0 nss (ssadd))
(foreach n len_list (entmake (entget(car n))) (ssadd (entlast) nss)(entdel (car n)))
(PRINC "\n完成排序.") 加在什么地方把什么代替, 见谅,我还不会LISP

无痕 · 发表于 2004-2-8 00:43:00

替换 (setq n 0)
(repeat (sslength SS); 更新實體．
(setq a (car (nth n LEN_LIST )))
(setq b (entget a))
(entmake b)
(entdel a)
(setq n (1+ n)))
(PRINC "\n完成排序.")
)

kaixin119 · 发表于 2004-2-8 09:14:00

还是跟以前一样啊,输入命令还没选线呢就完成了,只有第一个程序能看到排序命令:
命令: paixu
完成排序."\n完成排序."
命令:
命令: paixu
完成排序."\n完成排序."
命令:
命令: paixu
完成排序."\n完成排序."
命令:

无痕 · 发表于 2004-2-8 10:07:00

第二个程序用了(setq SS (ssget "x")是对全图所有实体排序

你可改为 (setq ss (ssget)) 选取部分实体排序

kaixin119 · 发表于 2004-2-8 10:44:00

就显示如下内容,什么也没有啊,排到哪去了命令:
命令: _appload 已成功加载 paixu.lsp。
命令:
命令:
命令: paixu
选择对象: 找到 1 个
选择对象: 找到 1 个，总计 2 个
选择对象: 找到 1 个，总计 3 个
选择对象: 找到 1 个，总计 4 个
选择对象: 找到 1 个，总计 5 个
选择对象:
完成排序."\n完成排序."
命令:
标注已解除关联。
标注已解除关联。
标注已解除关联。
命令:

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