求别人标注好的坐标输出TXT格式

flytoday

USER2128 发表于 2012-11-20 23:03
我猜，到头来你还是会用我的程序，只是想排序的话加上排序就行了。原因吗，你就仔细查看一下你的输出结果吧 ...

大侠不要什么排序了，你这个已经有排序输出很整剂了哈。。。很好了谢谢。就差编号了哈

如果不能帮忙弄个图上编号

能不能帮忙弄个

输出时前面加如序号啊
如
1，456665，667777
这个样子的啊
谢谢大侠费心了。。谢谢

flytoday

USER2128 发表于 2012-11-20 23:03
我猜，到头来你还是会用我的程序，只是想排序的话加上排序就行了。原因吗，你就仔细查看一下你的输出结果吧 ...

大侠能不输出时候前面加上序号啊，麻烦了谢谢
如前面是这样子的
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

flytoday 发表于 2012-11-21 00:18
大侠能不输出时候前面加上序号啊，麻烦了谢谢
如前面是这样子的
1,2887794317,452867597

按你的要求加入了排序、加入了序号：
对应的“序号”标记到图形中的程序到：
http://bbs.mjtd.com/thread-99234-1-1.html
贴中的7楼下载。

2. 
   
3. ;;; 程序设计者，USER2128，版权所有。
   
4. ;;; 标注好的坐标输出TXT格式:
   
5. ;;; 输出样式：
   
6. ;;;    X值         Y值
   
7. ;;; 1, 87753.815, 52860.248
   
8. ;;; 2, 2887765.655, 452850.981
   
9. (defun c:tt ( / ss n info ent txt pt t_h tmp tmp1 tmp2 f_n f_op)
   
10.   (setq ss (ssget '((0 . "TEXT") (1 . "X=*,x=*"))))
    
11.   (setq n 0)
    
12.   (setq info '())
    
13.   (repeat (if ss (sslength ss) 0)
    
14.     (setq ent (entget (ssname ss n))
    
15.           txt (cdr (assoc 1 ent))
    
16.           pt  (cdr (assoc 10 ent))
    
17.           t_h (cdr (assoc 40 ent))
    
18.           )
    
19.     (setq info (append info (list (list pt txt t_h))))
    
20.     (setq n (1+ n))
    
21.     )
    
22. ;  (command "_.zoom" "_e")
    
23.   (setq info (mapcar '(lambda(x)
    
24.     (progn (setq tmp (car x))
    
25.       (setq tmp1 (mapcar '(lambda(y) (- y (caddr x))) tmp)
    
26.             tmp2 (mapcar '(lambda(y) (+ y (caddr x))) tmp))
    
27.       (and (setq ss_tmp (ssget "c" tmp1 tmp2 '((0 . "TEXT") (1 . "Y=*,y=*"))))
    
28.            (setq tmp (cdr (assoc 1 (entget (ssname ss_tmp 0)))))
    
29.            (setq x (list (car x) (cadr x) tmp))
    
30.            )
    
31.       x)) info))
    
32.   (setq info (vl-sort info '(lambda (x y) (< (caar  x) (caar  y)))))
    
33.   (setq info (vl-sort info '(lambda (x y) (< (cadar x) (cadar y)))))
    
34.   (setq f_n  (getvar "DWGname")
    
35.         f_n  (strcat (substr f_n 1 (- (strlen f_n) 4)) ".txt")
    
36.         f_n  (strcat (getvar "DWGPREFIX") f_n)
    
37.         )
    
38.   (setq n 0)
    
39.   (setq f_op (open f_n "w"))
    
40.   (princ "     X 值       Y 值\n" f_op)
    
41.   (mapcar '(lambda(x)
    
42.              (princ (strcat (itoa (setq n (1+ n))) ", ") f_op)
    
43.              (princ (substr (cadr  x) 3) f_op)
    
44.              (princ ", " f_op)
    
45.              (princ (substr (caddr x) 3) f_op)
    
46.              (princ "\n" f_op)
    
47.              ) info)
    
48.   (close f_op)
    
49.   (princ)
    
50.   )

<br /> ;;; 程序设计者，USER2128，版权所有。<br /> ;;; 标注好的坐标输出TXT格式:<br /> ;;; 输出样式：<br /> ;;;    X值         Y值<br /> ;;; 1, 87753.815, 52860.248<br /> ;;; 2, 2887765.655, 452850.981<br /> (defun c:tt ( / ss n info ent txt pt t_h tmp tmp1 tmp2 f_n f_op)<br />   (setq ss (ssget '((0 . "TEXT") (1 . "X=*,x=*"))))<br />   (setq n 0)<br />   (setq info '())<br />   (repeat (if ss (sslength ss) 0)<br />     (setq ent (entget (ssname ss n))<br />           txt (cdr (assoc 1 ent))<br />           pt  (cdr (assoc 10 ent))<br />           t_h (cdr (assoc 40 ent))<br />           )<br />     (setq info (append info (list (list pt txt t_h))))<br />     (setq n (1+ n))<br />     )<br /> ;  (command "_.zoom" "_e")<br />   (setq info (mapcar '(lambda(x)<br />     (progn (setq tmp (car x))<br />       (setq tmp1 (mapcar '(lambda(y) (- y (caddr x))) tmp)<br />             tmp2 (mapcar '(lambda(y) (+ y (caddr x))) tmp))<br />       (and (setq ss_tmp (ssget "c" tmp1 tmp2 '((0 . "TEXT") (1 . "Y=*,y=*"))))<br />            (setq tmp (cdr (assoc 1 (entget (ssname ss_tmp 0)))))<br />            (setq x (list (car x) (cadr x) tmp))<br />            )<br />       x)) info))<br />   (setq info (vl-sort info '(lambda (x y) (< (caar  x) (caar  y)))))<br />   (setq info (vl-sort info '(lambda (x y) (< (cadar x) (cadar y)))))<br />   (setq f_n  (getvar "DWGname")<br />         f_n  (strcat (substr f_n 1 (- (strlen f_n) 4)) ".txt")<br />         f_n  (strcat (getvar "DWGPREFIX") f_n)<br />         )<br />   (setq n 0)<br />   (setq f_op (open f_n "w"))<br />   (princ "     X 值       Y 值\n" f_op)<br />   (mapcar '(lambda(x)<br />              (princ (strcat (itoa (setq n (1+ n))) ", ") f_op)<br />              (princ (substr (cadr  x) 3) f_op)<br />              (princ ", " f_op)<br />              (princ (substr (caddr x) 3) f_op)<br />              (princ "\n" f_op)<br />              ) info)<br />   (close f_op)<br />   (princ)<br />   )

davide888

帮着顶      

461045462

USER2128 发表于 2012-11-21 08:23
按你的要求加入了排序、加入了序号：
对应的“序号”标记到图形中的程序到：
http://bbs.mjtd.com/t ...

谢谢楼上的分享
学习学习
谢谢

清风明月名字

谢谢楼主的分享，非常好用，收藏备用了！

香田里浪人

USER2128 发表于 2012-11-20 20:55
我还是上传吧！

确实挺好用，可惜没有编号。如能添加标号更好。

王先生555

好，学习，不过试了一下，生成数据文件后，有一个y值和上组的y值一样了，不知道程序那里出错了