求助lsp修改输出结果方式

iszc

求助怎样将保存到txt文件修改为创建临时txt文件输出值   vl-filename-mktemp


(defun c:tt1()
(setvar "cmdecho" 0)
(setq ffn (getfiled "选取文件" "D:/Downloads/" "txt" 1))
(setq ff (open ffn "w"))
(close ff)
(princ "\n选取PLINE多义线...")
(setq ss (ssget))
(setq i 0)
(setq ii 1) ;;输出点号
(setvar "pdmode" 33)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq endata (entget ssn))
(setq n 0)
(repeat (length endata)
(setq pp (nth n endata))
(setq key (car pp))
(if (= key 10)
(progn
(setq x_temp (cadr pp))
(setq y_temp (caddr pp))
(setq x (rtos x_temp 2 4)) ;;把x后小数点变为四位输出
(setq y (rtos y_temp 2 4)) ;;把y后小数点变为四位输出
(setq iii (itoa ii))
(setq ff (open ffn "a"))
(princ iii ff)
(princ "," ff)
(princ x ff)
(princ "," ff)
(princ y ff)
(princ "\n" ff)
(close ff)
(setq ii (1+ ii))
)
)
(setq n (1+ n))
)
(setq ii ii)
(setq i (1+ i))
)
)

llsheng_73

iszc 发表于 2022-8-29 23:52
改了不成功，运行没反应

查清楚函数用法，确定没用错，程序其它地方无错
逛明经快11年了，这个还不会改，确定不是故意抹黑明经的

Sonnenblumen

2. (defun c:tt1( / ffn ff ss i ii ssn endata n pp key x_temp y_temp x y iii )
   
3.   (setvar "cmdecho" 0)
   
4.   (setq ffn (vl-filename-mktemp "d:\\$.txt"))
   
5.   (princ "\n选取PLINE多义线...")
   
6.   (setq ss (ssget))
   
7.   (setq i 0)
   
8.   (setq ii 1) ;;输出点号
   
9.   (setvar "pdmode" 33)
   
10.   (repeat (sslength ss)
    
11.     (setq ssn (ssname ss i))
    
12.     (setq endata (entget ssn))
    
13.     (setq n 0)
    
14.     (repeat (length endata)
    
15.       (setq pp (nth n endata))
    
16.       (setq key (car pp))
    
17.       (if (= key 10)
    
18.         (progn
    
19.           (setq x_temp (cadr pp))
    
20.           (setq y_temp (caddr pp))
    
21.           (setq x (rtos x_temp 2 4)) ;;把x后小数点变为四位输出
    
22.           (setq y (rtos y_temp 2 4)) ;;把y后小数点变为四位输出
    
23.           (setq iii (itoa ii))
    
24.           (setq ff (open ffn "a"))
    
25.           (princ iii ff)
    
26.           (princ "," ff)
    
27.           (princ x ff)
    
28.           (princ "," ff)
    
29.           (princ y ff)
    
30.           (princ "\n" ff)
    
31.           (close ff)
    
32.           (setq ii (1+ ii))
    
33.         )
    
34.       )
    
35.       (setq n (1+ n))
    
36.     )
    
37.     (setq ii ii)
    
38.     (setq i (1+ i))
    
39.   )
    
40.   (princ)
    
41. )

(defun c:tt1( / ffn ff ss i ii ssn endata n pp key x_temp y_temp x y iii )<br />   (setvar "cmdecho" 0)<br />   (setq ffn (vl-filename-mktemp "d:\\$.txt"))<br />   (princ "\n选取PLINE多义线...")<br />   (setq ss (ssget))<br />   (setq i 0)<br />   (setq ii 1) ;;输出点号<br />   (setvar "pdmode" 33)<br />   (repeat (sslength ss)<br />     (setq ssn (ssname ss i))<br />     (setq endata (entget ssn))<br />     (setq n 0)<br />     (repeat (length endata)<br />       (setq pp (nth n endata))<br />       (setq key (car pp))<br />       (if (= key 10)<br />         (progn<br />           (setq x_temp (cadr pp))<br />           (setq y_temp (caddr pp))<br />           (setq x (rtos x_temp 2 4)) ;;把x后小数点变为四位输出<br />           (setq y (rtos y_temp 2 4)) ;;把y后小数点变为四位输出<br />           (setq iii (itoa ii))<br />           (setq ff (open ffn "a"))<br />           (princ iii ff)<br />           (princ "," ff)<br />           (princ x ff)<br />           (princ "," ff)<br />           (princ y ff)<br />           (princ "\n" ff)<br />           (close ff)<br />           (setq ii (1+ ii))<br />         )<br />       )<br />       (setq n (1+ n))<br />     )<br />     (setq ii ii)<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )

Sonnenblumen

Sonnenblumen 发表于 2022-9-1 09:58
已经输出了，D盘下txt文件，你先看看！

2. (defun c:tt1( / ffn ff ss i ii ssn endata n pp key x_temp y_temp x y iii )
   
3.   (setvar "cmdecho" 0)
   
4.   (setq ffn (vl-filename-mktemp "d:\\$.txt"))
   
5.   (princ "\n选取PLINE多义线...")
   
6.   (setq ss (ssget))
   
7.   (setq i 0)
   
8.   (setq ii 1) ;;输出点号
   
9.   (setvar "pdmode" 33)
   
10.   (repeat (sslength ss)
    
11.     (setq ssn (ssname ss i))
    
12.     (setq endata (entget ssn))
    
13.     (setq n 0)
    
14.     (repeat (length endata)
    
15.       (setq pp (nth n endata))
    
16.       (setq key (car pp))
    
17.       (if (= key 10)
    
18.         (progn
    
19.           (setq x_temp (cadr pp))
    
20.           (setq y_temp (caddr pp))
    
21.           (setq x (rtos x_temp 2 4)) ;;把x后小数点变为四位输出
    
22.           (setq y (rtos y_temp 2 4)) ;;把y后小数点变为四位输出
    
23.           (setq iii (itoa ii))
    
24.           (setq ff (open ffn "a"))
    
25.           (princ iii ff)
    
26.           (princ "," ff)
    
27.           (princ x ff)
    
28.           (princ "," ff)
    
29.           (princ y ff)
    
30.           (princ "\n" ff)
    
31.           (close ff)
    
32.           (setq ii (1+ ii))
    
33.         )
    
34.       )
    
35.       (setq n (1+ n))
    
36.     )
    
37.     (setq ii ii)
    
38.     (setq i (1+ i))
    
39.   )
    
40.   (startapp "notepad.exe" (findfile ffn))
    
41.   (princ)
    
42. )

(defun c:tt1( / ffn ff ss i ii ssn endata n pp key x_temp y_temp x y iii )<br />   (setvar "cmdecho" 0)<br />   (setq ffn (vl-filename-mktemp "d:\\$.txt"))<br />   (princ "\n选取PLINE多义线...")<br />   (setq ss (ssget))<br />   (setq i 0)<br />   (setq ii 1) ;;输出点号<br />   (setvar "pdmode" 33)<br />   (repeat (sslength ss)<br />     (setq ssn (ssname ss i))<br />     (setq endata (entget ssn))<br />     (setq n 0)<br />     (repeat (length endata)<br />       (setq pp (nth n endata))<br />       (setq key (car pp))<br />       (if (= key 10)<br />         (progn<br />           (setq x_temp (cadr pp))<br />           (setq y_temp (caddr pp))<br />           (setq x (rtos x_temp 2 4)) ;;把x后小数点变为四位输出<br />           (setq y (rtos y_temp 2 4)) ;;把y后小数点变为四位输出<br />           (setq iii (itoa ii))<br />           (setq ff (open ffn "a"))<br />           (princ iii ff)<br />           (princ "," ff)<br />           (princ x ff)<br />           (princ "," ff)<br />           (princ y ff)<br />           (princ "\n" ff)<br />           (close ff)<br />           (setq ii (1+ ii))<br />         )<br />       )<br />       (setq n (1+ n))<br />     )<br />     (setq ii ii)<br />     (setq i (1+ i))<br />   )<br />   (startapp "notepad.exe" (findfile ffn))<br />   (princ)<br /> )

llsheng_73

vl-filename-mktemp这不是你自己已经找到答案了么，把获取文件名的那句改为用它就行了呗

iszc

llsheng_73 发表于 2022-8-29 10:29
vl-filename-mktemp这不是你自己已经找到答案了么，把获取文件名的那句改为用它就行了呗

改了不成功，运行没反应

iszc

Sonnenblumen 发表于 2022-8-30 16:29

运行选取多义线后，不能输出结果




选取PLINE多义线...
选择对象: 找到 1 个

选择对象:  正在重生成模型。

Sonnenblumen

已经输出了，D盘下txt文件，你先看看！

iszc

Sonnenblumen 发表于 2022-9-1 10:05

测试成功，非常感谢！

LYC688

Sonnenblumen 发表于 2022-8-30 16:29

带XY，定0位，怎么修改？