手痒，也发一个手工/批量 编号、坐标标注程序

cuyongping

可否提供一下源码！谢谢了！正需要了！253406939@qq.com

一新一意

也在学习autolisp中，顶了

sixth

顶，要是源码就更好了，能好好学习一下

freeok

楼主大人直接放源码，再来个GIF，爆了！！

lizhiqiang9801

好东西 帮顶  顶源码

清风明月名字

谢谢楼主的分享！很有用啊。

skg123

本人使用了，提取文字的坐标不是桩中心坐标。适当做了修改、 各位注意，这个修改是针对我所在的工程，修改了0.3333；代码如下， 如要使用，请核对坐标；

2. ;;;;只能用于洋浦油库工程，因为X修正了0.33333   
   
3. (defun c:TQWZZB()
   
4.    (princ "\n选择所需输出的点（point）:")
   
5.    (setq ss (ssget ));;选取坐标点
   
6.    (setq n (sslength ss ));计算坐标点数量
   
7.         (setq ff (open (getfiled "文件保存为" "f:/" "dat" 1) "w"));保存路径
   
8.    (setq i 0)
   
9.    (repeat n
   
10.   (setq spt (ssname ss i ))
    
11.     (setq ept (entget spt))
    
12.     (if (= (cdr (assoc 0 ept)) "TEXT")
    
13.      (progn
    
14.                                     (setq lxyz (cdr (assoc 10  ept)))
    
15. ;(setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符
    
16. (setq sx1 (- (cadr lxyz) 0.3333))  （请注意坐标值根据本工程修正了0.3333）如果想别的用途，将上句引号删除，strcat之后 sx11改为sx
    
17. (setq sX11 (rtos sx1 2 3))
    
18. 
    
19.        (setq sy (rtos (nth 0 lxyz)2 3))
    
20.        (setq sz (rtos (nth 2 lxyz)2 3))
    
21.                                         (setq i1 (+ i 1));计算点序号
    
22.                                         (setq sn (rtos i1 2 0));将序号实数转换成字符
    
23. 
    
24. (setq ent (entget (ssname ss i)))
    
25. (setq typeA (cdr (assoc 1 ent)))
    
26. 
    
27.        (setq sxyz (strcat typeA"," sn ","  sy ","  sx11  ","  sz))
    
28.        (write-line sxyz ff)
    
29.     )
    
30.     )
    
31.     (setq i (+ i 1))
    
32.    );repeat
    
33. )
    
34. (prompt "*只适合TEXT点 << 命令:TQWZZB >> *输出格式（点号,, Y，X，Z）**")
    
35. (prin1)

;;;;只能用于洋浦油库工程，因为X修正了0.33333   <br /> (defun c:TQWZZB()<br />    (princ "\n选择所需输出的点（point）:")<br />    (setq ss (ssget ));;选取坐标点<br />    (setq n (sslength ss ));计算坐标点数量<br />         (setq ff (open (getfiled "文件保存为" "f:/" "dat" 1) "w"));保存路径<br />    (setq i 0)<br />    (repeat n<br />   (setq spt (ssname ss i ))<br />     (setq ept (entget spt))<br />     (if (= (cdr (assoc 0 ept)) "TEXT")<br />      (progn<br />                                     (setq lxyz (cdr (assoc 10  ept)))<br /> ;(setq sx (rtos (nth 1 lxyz)));将坐标值实数转换成字符<br /> (setq sx1 (- (cadr lxyz) 0.3333))  （请注意坐标值根据本工程修正了0.3333）如果想别的用途，将上句引号删除，strcat之后 sx11改为sx<br /> (setq sX11 (rtos sx1 2 3))<br /> <br />        (setq sy (rtos (nth 0 lxyz)2 3))<br />        (setq sz (rtos (nth 2 lxyz)2 3))<br />                                         (setq i1 (+ i 1));计算点序号<br />                                         (setq sn (rtos i1 2 0));将序号实数转换成字符<br /> <br /> (setq ent (entget (ssname ss i)))<br /> (setq typeA (cdr (assoc 1 ent)))<br /> <br />        (setq sxyz (strcat typeA"," sn ","  sy ","  sx11  ","  sz))<br />        (write-line sxyz ff)<br />     )<br />     )<br />     (setq i (+ i 1))<br />    );repeat<br /> )<br /> (prompt "*只适合TEXT点 << 命令:TQWZZB >> *输出格式（点号,, Y，X，Z）**")<br /> (prin1)

xujinhua

好东西啊..顶到你出源码,,