cad文字导出到记事本 lisp程序

newer

1. ;;; ================================================================
   
2. 
   
3. (defun read->biao (str fgf / biao s1 i)
   
4.   (setq biao nil)
   
5.   (setq i (vl-string-search fgf str))
   
6.   (while i
   
7.     (setq s1 (substr str 1 i))
   
8.     (setq str (substr str (+ 2 i)))
   
9.     (setq biao (append
   
10.                  biao
    
11.                  (list s1)
    
12.                )
    
13.     )
    
14.     (setq i (vl-string-search fgf str))
    
15.   )
    
16.   (append
    
17.     biao
    
18.     (list str)
    
19.   )
    
20. )
    
21. 
    
22. ;;; ======================================
    
23. 
    
24. (defun thh (pt h lj hj /)
    
25.   (setq ff "c:/gj-dat.txt")
    
26.   (setq f (open ff "r"))
    
27.   (setq ptx (car pt))
    
28.   (setq pty (cadr pt))
    
29.   (setq j 1)
    
30.   (while (setq j (1+ j))
    
31.     (setq aa (read-line f))
    
32.     (setq aa1 (read->biao aa " "))
    
33.     (setq n (length aa1))
    
34.     (setq i 0)
    
35. 
    
36.     (setq ptyi (- pty (* j hj)))
    
37.     (while (< i n)
    
38.       (setq ptxi (+ ptx (* i lj)))
    
39.       (setq pti (list ptxi ptyi))
    
40.       (setq test (nth i aa1))
    
41.       (command "text" "j" "c" pti h "0" test)
    
42.       (setq i (1+ i))
    
43.     )                                       ; (setq j (1+ j))
    
44. 
    
45.   )
    
46.   (close f)
    
47. )
    
48. 
    
49. ;;; ==============================================
    
50. 
    
51. (defun c:mxb ()
    
52.   (setq pt (getpoint "揰嵗昗"))
    
53.   (setq h (getdist "暥帤崅"))
    
54.   (setq hj (getdist "峴嫍棧"))
    
55.   (setq lj (getdist "楍嫍棧"))
    
56.   (thh pt h lj hj)
    
57. )
    
58. 
    
59. ;;; ======================================================================
    
60. 
    

;;; ================================================================<br /> <br /> (defun read->biao (str fgf / biao s1 i)<br />   (setq biao nil)<br />   (setq i (vl-string-search fgf str))<br />   (while i<br />     (setq s1 (substr str 1 i))<br />     (setq str (substr str (+ 2 i)))<br />     (setq biao (append<br />                  biao<br />                  (list s1)<br />                )<br />     )<br />     (setq i (vl-string-search fgf str))<br />   )<br />   (append<br />     biao<br />     (list str)<br />   )<br /> )<br /> <br /> ;;; ======================================<br /> <br /> (defun thh (pt h lj hj /)<br />   (setq ff "c:/gj-dat.txt")<br />   (setq f (open ff "r"))<br />   (setq ptx (car pt))<br />   (setq pty (cadr pt))<br />   (setq j 1)<br />   (while (setq j (1+ j))<br />     (setq aa (read-line f))<br />     (setq aa1 (read->biao aa " "))<br />     (setq n (length aa1))<br />     (setq i 0)<br /> <br />     (setq ptyi (- pty (* j hj)))<br />     (while (< i n)<br />       (setq ptxi (+ ptx (* i lj)))<br />       (setq pti (list ptxi ptyi))<br />       (setq test (nth i aa1))<br />       (command "text" "j" "c" pti h "0" test)<br />       (setq i (1+ i))<br />     )                                       ; (setq j (1+ j))<br /> <br />   )<br />   (close f)<br /> )<br /> <br /> ;;; ==============================================<br /> <br /> (defun c:mxb ()<br />   (setq pt (getpoint "揰嵗昗"))<br />   (setq h (getdist "暥帤崅"))<br />   (setq hj (getdist "峴嫍棧"))<br />   (setq lj (getdist "楍嫍棧"))<br />   (thh pt h lj hj)<br /> )<br /> <br /> ;;; ======================================================================<br /> <br />

HLCAD

版主：中文乱码了

yuqin679

要是能导ecxel,,就完美了

开水瓶游泳

要是能导ecxel,,就完美了