麻烦帮去掉双引号

wanhongron

网上下载的多段线转txt程序，转出到txt会在序号那栏下面的数字显示双引号，麻烦大侠帮去掉，如“1”变成1、“2”变成2等

vitalgg

(princ (strcat (rtos nn 2 0) "\t" x  "\t" y "\n") ff)
或
(write-line (strcat (rtos nn 2 0) "\t" x  "\t" y ) ff)

vitalgg

(print (strcat (rtos nn 2 0) ) ff)
print 改成 princ

zhangcan0515

TXT替换一下双引号到空白 不也可以吗

wanhongron

@vitalgg大侠，改后好像不成列了，有点乱了

xyp1964

1. (defun c:tt ()
   
2.   (vl-load-com)
   
3.   (or path
   
4.       (setq path "C:\\Documents and Settings\\whr\\桌面\\")
   
5.   )
   
6.   (setq        ffn  (getfiled "输出文件名" path "txt" 1)
   
7.         path (strcat (vl-filename-directory ffn) "\\")
   
8.   )
   
9.   (princ "\n选择多段线: ")
   
10.   (if (and (setq ss (ssget '((0 . "lw*")))) ffn)
    
11.     (progn
    
12.       (setq i 0)
    
13.       (setvar "pdmode" 33)
    
14.       (setq ff (open ffn "w"))
    
15.       (write-line (strcat "序号\tX坐标\tY坐标") ff)
    
16.       (repeat (sslength ss)
    
17.         (setq s1 (ssname ss i)
    
18.               nn 1
    
19.         )
    
20.         (foreach pp (entget s1)
    
21.           (if (= (car pp) 10)
    
22.             (progn
    
23.               (setq p  (trans (cdr pp) 0 1)
    
24.                     x  (rtos (car p) 2 3) ;x坐标
    
25.                     y  (rtos (cadr p) 2 3) ;y坐标
    
26.                     tx (strcat (itoa nn) "\t" x "\t" y)
    
27.                     nn (1+ nn)
    
28.               )
    
29.               (write-line tx ff)
    
30.             )
    
31.           )
    
32.         )
    
33.         (setq i (1+ i))
    
34.       )
    
35.       (close ff)
    
36.     )
    
37.   )
    
38.   (princ)
    
39. )

(defun c:tt ()<br />   (vl-load-com)<br />   (or path<br />       (setq path "C:\\Documents and Settings\\whr\\桌面\\")<br />   )<br />   (setq        ffn  (getfiled "输出文件名" path "txt" 1)<br />         path (strcat (vl-filename-directory ffn) "\\")<br />   )<br />   (princ "\n选择多段线: ")<br />   (if (and (setq ss (ssget '((0 . "lw*")))) ffn)<br />     (progn<br />       (setq i 0)<br />       (setvar "pdmode" 33)<br />       (setq ff (open ffn "w"))<br />       (write-line (strcat "序号\tX坐标\tY坐标") ff)<br />       (repeat (sslength ss)<br />         (setq s1 (ssname ss i)<br />               nn 1<br />         )<br />         (foreach pp (entget s1)<br />           (if (= (car pp) 10)<br />             (progn<br />               (setq p  (trans (cdr pp) 0 1)<br />                     x  (rtos (car p) 2 3) ;x坐标<br />                     y  (rtos (cadr p) 2 3) ;y坐标<br />                     tx (strcat (itoa nn) "\t" x "\t" y)<br />                     nn (1+ nn)<br />               )<br />               (write-line tx ff)<br />             )<br />           )<br />         )<br />         (setq i (1+ i))<br />       )<br />       (close ff)<br />     )<br />   )<br />   (princ)<br /> )

wanhongron

非常感谢vitalgg的热心帮助，但是好像也不行

wanhongron

XYP1964大侠太厉害了，终于解决了，致以由衷的感谢及敬意！！！