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

flytoday

输出样式：
X值                Y值
87753.815，52860.248

测试文件



麻烦各位大侠了谢谢~~~~~~~~~~~~~~

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

vlisp2012

手动选取，还是框选啊，如果手动选取的话，应该不难！

USER2128

版主可真快，刚准备上传，版主的已弄好了！佩服！

USER2128

我还是上传吧！

2. (defun c:tt ( / ss n info ent txt pt t_h tmp tmp1 tmp2 f_n f_op)
   
3.   (setq ss (ssget '((0 . "TEXT") (1 . "X=*,x=*"))))
   
4.   (setq n 0)
   
5.   (setq info '())
   
6.   (repeat (if ss (sslength ss) 0)
   
7.     (setq ent (entget (ssname ss n))
   
8.     txt (cdr (assoc 1 ent))
   
9.     pt  (cdr (assoc 10 ent))
   
10.     t_h (cdr (assoc 40 ent))
    
11.     )
    
12.     (setq info (append info (list (list pt txt t_h))))
    
13.     (setq n (1+ n))
    
14.     )
    
15.   (command "_.zoom" "_e")
    
16.   (setq info (mapcar '(lambda(x)
    
17.     (progn (setq tmp (car x))
    
18.       (setq tmp1 (mapcar '(lambda(y) (- y (caddr x))) tmp)
    
19.       tmp2 (mapcar '(lambda(y) (+ y (caddr x))) tmp))
    
20.       (and (setq ss_tmp (ssget "c" tmp1 tmp2 '((0 . "TEXT") (1 . "Y=*,y=*"))))
    
21.      (setq tmp (cdr (assoc 1 (entget (ssname ss_tmp 0)))))
    
22.      (setq x (list (car x) (cadr x) tmp))
    
23.      )
    
24.       x)) info))
    
25.   (setq f_n  (getvar "DWGname")
    
26.   f_n  (strcat (substr f_n 1 (- (strlen f_n) 4)) ".txt")
    
27.   f_n  (strcat (getvar "DWGPREFIX") f_n)
    
28.   )
    
29.   (setq f_op (open f_n "w"))
    
30.   (princ "     X 值                Y 值\n" f_op)
    
31.   (mapcar '(lambda(x)
    
32.        (princ (substr (cadr  x) 3) f_op)
    
33.        (princ ", " f_op)
    
34.        (princ (substr (caddr x) 3) f_op)
    
35.        (princ "\n" f_op)
    
36.        ) info)
    
37.   (close f_op)
    
38.   (princ)
    
39.   )
    

(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 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 f_op (open f_n "w"))<br />   (princ "     X 值                Y 值\n" f_op)<br />   (mapcar '(lambda(x)<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 />   )<br />

flytoday

谢谢Z版。。如果能在引线端加入编号就非常好了。。
输出的时候是这样样子的
输出样式：
   X值        Y值
1，87753.815，52860.248
逗号也要最好。。不知道Z版老大能不能出手下谢谢~

USER2128

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

在引线端加入编号，程序很容易改的，就留与你自己做作业吧。

USER2128

输出文件与DWG文件同目录，文件名也相同

flytoday

哦………这个没注意看……后来发现Z版那个……提取的如果能以X.坐标最小的那组坐标从小到大排列最好哈………

USER2128

我猜，到头来你还是会用我的程序，只是想排序的话加上排序就行了。原因吗，你就仔细查看一下你的输出结果吧。