[求助]：输出DWG图形中单行文字的“文字值”及其坐标X和Y为文本文件的程序

hzygs430

求助：输出DWG图形中单行文字的“文字值”及其坐标X和Y为文本文件的程序
一cad图形中有许多地物的单行文字编号，如J1,J2,J3......，现求一程序：选中这些文字后，能自动把各文字的“文字值”及其X和Y坐标输出为一文本文件，格式如下：

J1,J1的X坐标,J1的Y坐标
J2,J2的X坐标,J2的Y坐标
J3,J3的X坐标,J3的Y坐标
......
以空格分隔也可以。
谢谢！！！

dicad_pro

怎么打印到文件并换行我不是很会，选取文字还是很简单的

xyp1964

2. [FONT=courier new];;;文本写出文件
   
3. (defun c:test ()
   
4.   (setq        ffn (getfiled "\n保存的坐标文件" "坐标" "txt" 1)
   
5.         ff  (open ffn "w")
   
6.         ss  (ssget '((0 . "*TEXT")))
   
7.         i   -1
   
8.   )
   
9.   (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.     (setq txt (dxf 1 (entget s1))
    
11.           pt  (dxf 10 (entget s1))
    
12.           tx  (strcat txt
    
13.                       " "
    
14.                       (rtos (car pt) 2 3)
    
15.                       " "
    
16.                       (rtos (cadr pt) 2 3)
    
17.                       " "
    
18.                       (rtos (caddr pt) 2 3)
    
19.               )
    
20.     )
    
21.     (write-line tx ff)
    
22.   )
    
23.   (close ff)
    
24.   (princ (strcat "\n 坐标写至=>" ffn))
    
25. )[/FONT]

[FONT=courier new];;;文本写出文件<br /> (defun c:test ()<br />   (setq        ffn (getfiled "\n保存的坐标文件" "坐标" "txt" 1)<br />         ff  (open ffn "w")<br />         ss  (ssget '((0 . "*TEXT")))<br />         i   -1<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))))<br />     (setq txt (dxf 1 (entget s1))<br />           pt  (dxf 10 (entget s1))<br />           tx  (strcat txt<br />                       " "<br />                       (rtos (car pt) 2 3)<br />                       " "<br />                       (rtos (cadr pt) 2 3)<br />                       " "<br />                       (rtos (caddr pt) 2 3)<br />               )<br />     )<br />     (write-line tx ff)<br />   )<br />   (close ff)<br />   (princ (strcat "\n 坐标写至=>" ffn))<br /> )[/FONT]

WHGF

DXF 这种用法第一次见到,谢谢楼上的朋友!

zyhmm

谢谢,又学了一招