用lisp读取txt文件

zzmm

闭合多段线的填充调用 能否把读取调用的两个文件合并成一个单一的文件 并读取 调用 成功

合并 调用

2. (defun c:ttb()
   
3.   (setvar "cmdecho" 0)
   
4.   (setvar "osmode" 0)
   
5.   (setq xb (getreal "\n输入线性比例<1>"))
   
6.   (setq hlst '())
   
7.   (setq cf (open "c:\\LSPTOOLS\\tba.txt" "r"))
   
8.   (setq sele (read-line cf))
   
9.     (while sele
   
10.       (setq hlst (cons sele hlst))
    
11.       (setq sele (read-line cf))
    
12.     )
    
13.     (close cf)
    
14.     (setq data_list '())
    
15.     (setq ff (open "c:\\LSPTOOLS\\ttch.txt" "r"))
    
16.     (setq data (read (read-line ff)))
    
17.     (while data
    
18.       (setq data (* xb data))
    
19.       (setq data_list (cons data data_list))
    
20.       (setq data (read (read-line ff)))
    
21.     )
    
22.     (close ff)
    
23.   (if (setq ss (ssget '((0 . "*POLYLINE"))))
    
24.     (progn
    
25.       (setq i -1)
    
26.       (command "layer" "m" "填充" "c" "52" "" "")
    
27.         (repeat (sslength ss)
    
28.           (setq en (ssname ss (setq i (1+ i))))
    
29.           (setq huame (nth (rem i 16) hlst))
    
30.           (setq bl (nth (rem i 16) data_list))
    
31.           (command "_bhatch" "p" huame bl "0" "s" en "" "")
    
32.         )
    
33.         (prin1)
    
34.     )
    
35.   )
    
36. )

(defun c:ttb()<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (setq xb (getreal "\n输入线性比例<1>"))<br />   (setq hlst '())<br />   (setq cf (open "c:\\LSPTOOLS\\tba.txt" "r"))<br />   (setq sele (read-line cf))<br />     (while sele<br />       (setq hlst (cons sele hlst))<br />       (setq sele (read-line cf))<br />     )<br />     (close cf)<br />     (setq data_list '())<br />     (setq ff (open "c:\\LSPTOOLS\\ttch.txt" "r"))<br />     (setq data (read (read-line ff)))<br />     (while data<br />       (setq data (* xb data))<br />       (setq data_list (cons data data_list))<br />       (setq data (read (read-line ff)))<br />     )<br />     (close ff)<br />   (if (setq ss (ssget '((0 . "*POLYLINE"))))<br />     (progn<br />       (setq i -1)<br />       (command "layer" "m" "填充" "c" "52" "" "")<br />         (repeat (sslength ss)<br />           (setq en (ssname ss (setq i (1+ i))))<br />           (setq huame (nth (rem i 16) hlst))<br />           (setq bl (nth (rem i 16) data_list))<br />           (command "_bhatch" "p" huame bl "0" "s" en "" "")<br />         )<br />         (prin1)<br />     )<br />   )<br /> )

1. 
   

复制代码