lzgxklable 发表于 2011-9-1 08:52:28

顶,好的,高手横多啊

liqiang888 发表于 2011-9-1 09:08:07

lzgxklable 发表于 2011-9-1 08:52 static/image/common/back.gif
顶,好的,高手横多啊

1234567890123

lzgxklable 发表于 2011-9-1 20:17:49

支持原代码,支持大家共享,支持大家共同提高

lzgxklable 发表于 2011-9-1 20:20:00

vl-load-com)
(princ "选择辅助线\n")
(setq m_ent1 (car(entsel)))
(setq ent1_s(vlax-curve-getStartPoint p1))
(print "请选择需要扫描的区域：")
(setq ss(ssget))
(setq lengss (sslength ss))
(setq bb 0)

(while (< bb lengss)
(setq p1 (ssname ss bb))
(setq ed (entget p1))
下面不知道该如何写了

即把ss内的所有曲线按照到ent-s点的距离由小到大重新排序
   望高手们提供帮助，跪谢谢

xyp1964 发表于 2011-9-1 21:37:00

试试这个： '("一" "二" "三" "四" "五" "六" "十" "九" "八" "七" "〇" )

690994 发表于 2011-9-4 22:09:52

这个比较方便,我一直在用,主要是比较通用不用自己再弄代码

xiaojiajun160 发表于 2021-11-8 18:14:59

支持源码！！犀利啊！

yk1216 发表于 2024-8-30 23:08:56

谢谢分享学习
页: 1 [2]
查看完整版本: [原创]真正万能的通用排序函数，对任何类型的表都适用