[编程申请]：自动识别圆，并编号，同时自动形成一个坐标文件

ji3499222

基础放线会遇到大量的计算工作：

1。自动识别圆（桩位）并按“从上到下，从左到右”的顺序自动 在图上编号；
2。同时对应桩号形成一个DAT文件，格式如下：

桩号 ，， Y坐标， X坐标， H高程

1 ，， 8325.333， 2564.123， 40.325
2 ，， 5462.288， 2876.555， 40.555
3 ，， ............依此类推

jx2008

这个好办，就是一个Ｈ高程的问题，这个你是怎么说的？不清楚，是图上有的呢，还是自己输入呢？

ji3499222

只需要平面坐标XY,高程可为0。000，网上已有人编了这个程序，也希望早日看到你的编程，好比较一下，谢谢！！！

zlzlzlzl

网上有??
在那里??????
能说一下吗>?

yshf

生成是CASS格式的文件。

李军

网上有很多标注坐标的程序，在本站搜一下吧

ji3499222

六楼的朋友，我说的不是坐标标注，也许只有干测量放线的朋友可以理解。

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (CMDLA0)
   
4.   (setq        ss  (ssget '((0 . "CIRCLE")))
   
5.         ss1 (xyp-Sort-Plist (xyp-Sort ss 10 "Y-max") 1) ;上下左右
   
6.         ffn (getfiled "\n保存的坐标文件" "桩号坐标" "DAT" 1)
   
7.         ff  (open ffn "w")
   
8.         i   0
   
9.   )
   
10.   (write-line "桩号 ，， Y坐标， X坐标， H高程" ff)
    
11.   (foreach pt ss1
    
12.     (setq pt0 (xyp-get-dxf 10 (cdr pt))
    
13.           x   (car pt0)
    
14.           y   (cadr pt0)
    
15.           z   (caddr pt0)
    
16.           i   (1+ i)
    
17.           tx  (strcat (itoa i)
    
18.                       " ，， "
    
19.                       (rtos y 2 3)
    
20.                       "， "
    
21.                       (rtos x 2 3)
    
22.                       "， "
    
23.                       (rtos z 2 3)
    
24.               )
    
25.     )
    
26.     (xyp-Text 5 pt0 (itoa i))
    
27.     (write-line tx ff)
    
28.   )
    
29.   (close ff)
    
30.   (princ (strcat "\n 坐标写至=>" ffn))
    
31.   (CMDLA1)
    
32. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (CMDLA0)<br />   (setq        ss  (ssget '((0 . "CIRCLE")))<br />         ss1 (xyp-Sort-Plist (xyp-Sort ss 10 "Y-max") 1) ;上下左右<br />         ffn (getfiled "\n保存的坐标文件" "桩号坐标" "DAT" 1)<br />         ff  (open ffn "w")<br />         i   0<br />   )<br />   (write-line "桩号 ，， Y坐标， X坐标， H高程" ff)<br />   (foreach pt ss1<br />     (setq pt0 (xyp-get-dxf 10 (cdr pt))<br />           x   (car pt0)<br />           y   (cadr pt0)<br />           z   (caddr pt0)<br />           i   (1+ i)<br />           tx  (strcat (itoa i)<br />                       " ，， "<br />                       (rtos y 2 3)<br />                       "， "<br />                       (rtos x 2 3)<br />                       "， "<br />                       (rtos z 2 3)<br />               )<br />     )<br />     (xyp-Text 5 pt0 (itoa i))<br />     (write-line tx ff)<br />   )<br />   (close ff)<br />   (princ (strcat "\n 坐标写至=>" ffn))<br />   (CMDLA1)<br /> )[/FONT]

ji3499222

非常感谢八楼热心的朋友，很遗憾我不懂该如何使用，在程序上我是文盲。

李军

在CAD中加载这个文件，运行命令：test

ji3499222

10楼的朋友，你上传的附件无法下载，能否再传一次？

zlzlzlzl

程序运行不了啊`

ji3499222

10楼的朋友我也试了一下，确实不能用，能否再完善一下。

lfx49

我试一下，不能运行，自己的水平太低了，只会用，不会改，要好好的学啊

李军

1、工具--加载应用程序，选择 test.lsp

2、在命令行输入：test

可以运行的