我猜，到头来你还是会用我的程序，只是想排序的话加上排序就行了。原因吗，你就仔细查看一下你的输出结果吧 ...
大侠不要什么排序了，你这个已经有排序输出很整剂了哈。。。很好了谢谢。就差编号了哈
如果不能帮忙弄个图上编号
能不能帮忙弄个
输出时前面加如序号啊
如
1，456665，667777
这个样子的啊
谢谢大侠费心了。。谢谢 本帖最后由 flytoday 于 2012-11-21 00:33 编辑
USER2128 发表于 2012-11-20 23:03 http://bbs.mjtd.com/static/image/common/back.gif
我猜，到头来你还是会用我的程序，只是想排序的话加上排序就行了。原因吗，你就仔细查看一下你的输出结果吧 ...
大侠能不输出时候前面加上序号啊，麻烦了谢谢
如前面是这样子的
1,2887794317,452867597
2,2887800389,452875288
3,2887790442,452882377
4,2887784741,452875156
5,2887790846,452863201
6,2887780899,452870290
7,2887784775,452855510
8,2887775198,452863069
9,2887781304,452851114
麻烦了谢谢~~~
本帖最后由 USER2128 于 2012-11-22 08:18 编辑
flytoday 发表于 2012-11-21 00:18 http://bbs.mjtd.com/static/image/common/back.gif
大侠能不输出时候前面加上序号啊，麻烦了谢谢
如前面是这样子的
1,2887794317,452867597
按你的要求加入了排序、加入了序号：
对应的“序号”标记到图形中的程序到：
http://bbs.mjtd.com/thread-99234-1-1.html
贴中的7楼下载。
;;; 程序设计者，USER2128，版权所有。
;;; 标注好的坐标输出TXT格式:
;;; 输出样式：
;;; X值 Y值
;;; 1, 87753.815, 52860.248
;;; 2, 2887765.655, 452850.981
(defun c:tt ( / ss n info ent txt pt t_h tmp tmp1 tmp2 f_n f_op)
(setq ss (ssget '((0 . "TEXT") (1 . "X=*,x=*"))))
(setq n 0)
(setq info '())
(repeat (if ss (sslength ss) 0)
(setq ent (entget (ssname ss n))
txt (cdr (assoc 1 ent))
pt(cdr (assoc 10 ent))
t_h (cdr (assoc 40 ent))
)
(setq info (append info (list (list pt txt t_h))))
(setq n (1+ n))
)
;(command "_.zoom" "_e")
(setq info (mapcar '(lambda(x)
(progn (setq tmp (car x))
(setq tmp1 (mapcar '(lambda(y) (- y (caddr x))) tmp)
tmp2 (mapcar '(lambda(y) (+ y (caddr x))) tmp))
(and (setq ss_tmp (ssget "c" tmp1 tmp2 '((0 . "TEXT") (1 . "Y=*,y=*"))))
(setq tmp (cdr (assoc 1 (entget (ssname ss_tmp 0)))))
(setq x (list (car x) (cadr x) tmp))
)
x)) info))
(setq info (vl-sort info '(lambda (x y) (< (caarx) (caary)))))
(setq info (vl-sort info '(lambda (x y) (< (cadar x) (cadar y)))))
(setq f_n(getvar "DWGname")
f_n(strcat (substr f_n 1 (- (strlen f_n) 4)) ".txt")
f_n(strcat (getvar "DWGPREFIX") f_n)
)
(setq n 0)
(setq f_op (open f_n "w"))
(princ " X 值 Y 值\n" f_op)
(mapcar '(lambda(x)
(princ (strcat (itoa (setq n (1+ n))) ", ") f_op)
(princ (substr (cadrx) 3) f_op)
(princ ", " f_op)
(princ (substr (caddr x) 3) f_op)
(princ "\n" f_op)
) info)
(close f_op)
(princ)
) 帮着顶 USER2128 发表于 2012-11-21 08:23 static/image/common/back.gif
按你的要求加入了排序、加入了序号：
对应的“序号”标记到图形中的程序到：
http://bbs.mjtd.com/t ...
谢谢楼上的分享
学习学习
谢谢 谢谢楼主的分享，非常好用，收藏备用了！ USER2128 发表于 2012-11-20 20:55 static/image/common/back.gif
我还是上传吧！
确实挺好用，可惜没有编号。如能添加标号更好。 好，学习，不过试了一下，生成数据文件后，有一个y值和上组的y值一样了，不知道程序那里出错了
页:
1
[2]