求USER2128 大师或路过的高手修改下，标注好的坐标输出txt文件

flytoday

原贴位置：
http://bbs.mjtd.com/thread-99227-1-1.html

原程序已经很好用，但是加上如下两个就非常完美了~~~

1、修改内容，在引线端头位置，在图上标上编号
2、输出样式修改如下：
                   X                    Y
          1,2887794317,452867597
          2,2887800389,452875288
这个前面的序号与图上标注的编号是一样的。。。。麻烦了谢谢

USER2128

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

;;; 标注好的坐标输出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 />   )<br />

flytoday

大师麻烦帮我更改成原来的排序。。不好意思。。原来的排序更好~~~

flytoday

大师编号能不能标在图纸上啊麻烦了

USER2128

原程序是无序的，还是有些不妥。标至图中，等我下班后帮弄

flytoday

谢谢兄弟了

USER2128

;;; 标注好的坐标输出到: 与DWG文件同目录、同名的TXT文件中；
;;; 输出样式：
;;;    X值         Y值
;;; 1, 87753.815, 52860.248
;;; 2, 2887765.655, 452850.981
;;; .
;;; .
;;; .
;;;
;;; 将编号1、2、... 写到图中.
;;;

为表示点辛苦费，附件要收1个明经币（抱歉）

flytoday

谢谢 USER2128 老大。。这程序真的太强大了谢谢~

香田里浪人

USER2128 发表于 2012-11-21 16:03
;;; 标注好的坐标输出到: 与DWG文件同目录、同名的TXT文件中；
;;; 输出样式：
;;;    X值         Y值

下载了，在04版运行
错误 : 参数类型错误: lentityp nil
为什么？