求大神看看，我导出文字及坐标，为什么会有空行

yjpyjp

(defun c:dcwzzb ()
  (setq i 0)
  (princ "\n选择需输出坐标的文字: ")
  (if (and (setq ss (ssget '((0 . "text"))))
                        (setq ff (open (getfiled "文件保存为" "C:/Users/Administrator/Desktop" "dat" 1) "w")) ;保存路径
                )
    (repeat (sslength ss)
      (setq en (entget (ssname ss i))
                                sn (itoa (+ i 1))
                                pt (cdr (assoc 10 en))
                                x  (rtos (cadr pt) 2 4)
                                y  (rtos (car pt) 2 4)
                                z  (cdr (assoc 1 en))
                                i  (1+ i)
      )
      (write-line (strcat sn ",," y "," x "," z) ff);;;sn是序号，不需要的话就删了
    )
  )
  (princ)
)

烟花丝雨

文字中有换行符

弥勒

[i

yjpyjp

怎么修改代码能过滤掉文字本身的\n符号

kozmosovia

z  (cdr (assoc 1 en))
=>
z (vl-string-subst "" "\n" (cdr (assoc 1 en)))

xyp1964

yjpyjp 发表于 2025-1-13 12:11
怎么修改代码能过滤掉文字本身的\n符号

1. (defun c:tt ()
   
2.   (setq i 0)
   
3.   (princ "\n选择需输出坐标的文字: ")
   
4.   (if (and (setq ss (ssget '((0 . "text"))))
   
5.            (setq ff (open (getfiled "文件保存为" "" "dat" 1) "w"))
   
6.       )
   
7.     (repeat (sslength ss)
   
8.       (setq en (entget (ssname ss i))
   
9.             sn (itoa (1+ i))
   
10.             pt (cdr (assoc 10 en))
    
11.             x  (rtos (cadr pt) 2 4)
    
12.             y  (rtos (car pt) 2 4)
    
13.             z  (cdr (assoc 1 en))
    
14.             z (if (setq n(vl-string-search "\n" z))(substr z 1 n)z)
    
15.             i  (1+ i)
    
16.       )
    
17.       (write-line (strcat sn "," y "," x "," z) ff);sn是序号
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )

(defun c:tt ()<br />   (setq i 0)<br />   (princ "\n选择需输出坐标的文字: ")<br />   (if (and (setq ss (ssget '((0 . "text"))))<br />            (setq ff (open (getfiled "文件保存为" "" "dat" 1) "w"))<br />       )<br />     (repeat (sslength ss)<br />       (setq en (entget (ssname ss i))<br />             sn (itoa (1+ i))<br />             pt (cdr (assoc 10 en))<br />             x  (rtos (cadr pt) 2 4)<br />             y  (rtos (car pt) 2 4)<br />             z  (cdr (assoc 1 en))<br />             z (if (setq n(vl-string-search "\n" z))(substr z 1 n)z)<br />             i  (1+ i)<br />       )<br />       (write-line (strcat sn "," y "," x "," z) ff);sn是序号<br />     )<br />   )<br />   (princ)<br /> )

yjpyjp

xyp1964 发表于 2025-1-13 13:28

技术工作室

是86.25 后面有一个空格字符造成的，删出即可，不用修改代码。