插入文字的程序 有时会出错 求高手完善和优化！

spp_wall

(DEFUN C:wz7() ;enter text 插入结构层
        (command ".undo" "begin")
        (setvar "cmdecho" 0)
        (SETQ PK (GETPOINT "插入沥青结构层位置:"))
        (setvar "osmode" 0)
        (setq LL 38
                p1 (polar PK (* 1.5 pi) 1)
                p2 (polar p1 0 LL)
               
                p3 (polar p1 (* 1.5 pi) 1)
                p4 (polar p3 0 LL)

                PK1 (polar pK (* 1.5 pi) 6.0)
                p5 (polar PK1 (* 1.5 pi) 1)
                p6 (polar p5 0 LL)

                PK2 (polar pK1 (* 1.5 pi) 6.0)
                p7 (polar PK2 (* 1.5 pi) 1)
                p8 (polar p7 0 LL)

                PK3 (polar pK2 (* 1.5 pi) 6.0)
                p9 (polar PK3 (* 1.5 pi) 1)
                p10 (polar p9 0 LL)

                PK4 (polar pK3 (* 1.5 pi) 6.0)
                p11 (polar PK4 (* 1.5 pi) 1)
                p12 (polar p11 0 LL)

                PK5 (polar pK4 (* 1.5 pi) 6.0)
                p13 (polar PK5 (* 1.5 pi) 1)
                p14 (polar p13 0 LL)

                PK6 (polar pK5 (* 1.5 pi) 6.0)
                p15 (polar PK6 (* 1.5 pi) 1)
                p16 (polar p15 0 LL)

                PK7 (polar pK6 (* 1.5 pi) 6.0)
                p17 (polar PK7 (* 1.5 pi) 1)
                p18 (polar p17 0 LL)

                PK8 (polar pK7 (* 1.5 pi) 6.0)
                p19 (polar PK8 (* 1.5 pi) 1)
                p20 (polar p19 0 LL)

                PK9 (polar pK8 (* 1.5 pi) 6.0)
                p21 (polar PK9 (* 1.5 pi) 1)
                p22 (polar p21 0 LL)

                PK10 (polar pK9 (* 1.5 pi) 6.0);两条直线间间距
                p23 (polar PK10 (* 1.5 pi) 1);距离下条直线长
                p24 (polar p23 0 LL)

        )
        (COMMAND "_.TEXT" PK "3.5" "0" "4cm厚细粒式改性沥青砼（AC-13C）" )
        (COMMAND "_.LINE" P1  P2 "" )
        (COMMAND "_.TEXT" PK1 "3.5" "0" "粘层油（AL(M)-3）" )
        (COMMAND "_.LINE" P3  P4 "")
        (COMMAND "_.TEXT" PK2 "3.5" "0" "6cm厚中粒式沥青砼（AC-20 C）" )
        (COMMAND "_.LINE" P5  P6 "")
        (COMMAND "_.TEXT" PK3 "3.5" "0" "粘层油（AL(M)-3）" )
        (COMMAND "_.LINE" P7  P8 "")
        (COMMAND "_.TEXT" PK4 "3.5" "0" "8cm厚粗粒式沥青砼（AC-25 C）" )
        (COMMAND "_.LINE" P9  P10 "")
        (COMMAND "_.TEXT" PK5 "3.5" "0" "粘层油（AL(M)-3）" )
        (COMMAND "_.LINE" P11  P12 "")
        (COMMAND "_.TEXT" PK6 "3.5" "0" "1cm改性沥青碎石封层" )
        (COMMAND "_.LINE" P13  P14 "")
        (COMMAND "_.TEXT" PK7 "3.5" "0" "25cm厚C40水泥砼" )
        (COMMAND "_.LINE" P15  P16 "")
        (COMMAND "_.TEXT" PK8 "3.5" "0" "20cm厚5%水泥稳定碎石基层" )
        (COMMAND "_.LINE" P17  P18 "")
        (COMMAND "_.TEXT" PK9 "3.5" "0" "20cm厚4%水泥稳定碎石底基层" )
        (COMMAND "_.LINE" P19  P20 "")
        (COMMAND "_.TEXT" PK10 "3.5" "0" "15cm厚未筛分碎石垫层" )
        (COMMAND "_.LINE" P21  P22 "" )
        (COMMAND "_.LINE" P23  P24 "" )
  (setvar "osmode" 183)
  (setvar "cmdecho" 1)
  (command ".undo" "end")
  (prin1)
  (princ)
)


1：能否进行优化 感觉代码看着好累！
2：有时候字和线会重叠，是不是屏幕的原因？求优化
3：能否设立个文字库，每行的文字能自由选择？
谢谢

spp_wall

谁来看看！！！

xyp1964

2. (defun c:tt ()
   
3.   (defun abc (pt str)
   
4.     (command "text" pt "3.5" "0" str)
   
5.   )
   
6.   (defun abd (p1 p2)
   
7.     (command "_.line" "non" p1 "non" p2 "")
   
8.   )
   
9.   (if (setq pk (getpoint "插入沥青结构层位置: "))
   
10.     (progn
    
11.       (setvar "osmode" 0)
    
12.       (setq ll         45
    
13.             p1         (polar pk (* 1.5 pi) 1)
    
14.             p2         (polar p1 0 ll)
    
15.             p3         (polar p1 (* 1.5 pi) 1)
    
16.             p4         (polar p3 0 ll)
    
17.             pk1         (polar pk (* 1.5 pi) 6.0)
    
18.             p5         (polar pk1 (* 1.5 pi) 1)
    
19.             p6         (polar p5 0 ll)
    
20.             pk2         (polar pk1 (* 1.5 pi) 6.0)
    
21.             p7         (polar pk2 (* 1.5 pi) 1)
    
22.             p8         (polar p7 0 ll)
    
23.             pk3         (polar pk2 (* 1.5 pi) 6.0)
    
24.             p9         (polar pk3 (* 1.5 pi) 1)
    
25.             p10         (polar p9 0 ll)
    
26.             pk4         (polar pk3 (* 1.5 pi) 6.0)
    
27.             p11         (polar pk4 (* 1.5 pi) 1)
    
28.             p12         (polar p11 0 ll)
    
29.             pk5         (polar pk4 (* 1.5 pi) 6.0)
    
30.             p13         (polar pk5 (* 1.5 pi) 1)
    
31.             p14         (polar p13 0 ll)
    
32.             pk6         (polar pk5 (* 1.5 pi) 6.0)
    
33.             p15         (polar pk6 (* 1.5 pi) 1)
    
34.             p16         (polar p15 0 ll)
    
35.             pk7         (polar pk6 (* 1.5 pi) 6.0)
    
36.             p17         (polar pk7 (* 1.5 pi) 1)
    
37.             p18         (polar p17 0 ll)
    
38.             pk8         (polar pk7 (* 1.5 pi) 6.0)
    
39.             p19         (polar pk8 (* 1.5 pi) 1)
    
40.             p20         (polar p19 0 ll)
    
41.             pk9         (polar pk8 (* 1.5 pi) 6.0)
    
42.             p21         (polar pk9 (* 1.5 pi) 1)
    
43.             p22         (polar p21 0 ll)
    
44.             pk10 (polar pk9 (* 1.5 pi) 6.0)
    
45.             p23         (polar pk10 (* 1.5 pi) 1)
    
46.             p24         (polar p23 0 ll)
    
47.             ptn         (list p1 p2 p5        p6 p7 p8 p9 p10        p11 p12        p13 p14        p15 p16        p17 p18        p19 p20        p21 p22        p23 p24)
    
48.       )
    
49.       (abc pk "4cm厚细粒式改性沥青砼（ac-13c）")
    
50.       (abc pk1 "粘层油（al(m)-3）")
    
51.       (abc pk2 "6cm厚中粒式沥青砼（ac-20 c）")
    
52.       (abc pk3 "粘层油（al(m)-3）")
    
53.       (abc pk4 "8cm厚粗粒式沥青砼（ac-25 c）")
    
54.       (abc pk5 "粘层油（al(m)-3）")
    
55.       (abc pk6 "1cm改性沥青碎石封层")
    
56.       (abc pk7 "25cm厚c40水泥砼")
    
57.       (abc pk8 "20cm厚5%水泥稳定碎石基层")
    
58.       (abc pk9 "20cm厚4%水泥稳定碎石底基层")
    
59.       (abc pk10 "15cm厚未筛分碎石垫层")
    
60.       (while (and (setq p1 (car ptn))
    
61.                   (setq p2 (cadr ptn))
    
62.              )
    
63.         (setq ptn (cddr ptn))
    
64.         (abd p1 p2)
    
65.       )
    
66.     )
    
67.   )
    
68.   (princ)
    
69. )

(defun c:tt ()<br />   (defun abc (pt str)<br />     (command "text" pt "3.5" "0" str)<br />   )<br />   (defun abd (p1 p2)<br />     (command "_.line" "non" p1 "non" p2 "")<br />   )<br />   (if (setq pk (getpoint "插入沥青结构层位置: "))<br />     (progn<br />       (setvar "osmode" 0)<br />       (setq ll         45<br />             p1         (polar pk (* 1.5 pi) 1)<br />             p2         (polar p1 0 ll)<br />             p3         (polar p1 (* 1.5 pi) 1)<br />             p4         (polar p3 0 ll)<br />             pk1         (polar pk (* 1.5 pi) 6.0)<br />             p5         (polar pk1 (* 1.5 pi) 1)<br />             p6         (polar p5 0 ll)<br />             pk2         (polar pk1 (* 1.5 pi) 6.0)<br />             p7         (polar pk2 (* 1.5 pi) 1)<br />             p8         (polar p7 0 ll)<br />             pk3         (polar pk2 (* 1.5 pi) 6.0)<br />             p9         (polar pk3 (* 1.5 pi) 1)<br />             p10         (polar p9 0 ll)<br />             pk4         (polar pk3 (* 1.5 pi) 6.0)<br />             p11         (polar pk4 (* 1.5 pi) 1)<br />             p12         (polar p11 0 ll)<br />             pk5         (polar pk4 (* 1.5 pi) 6.0)<br />             p13         (polar pk5 (* 1.5 pi) 1)<br />             p14         (polar p13 0 ll)<br />             pk6         (polar pk5 (* 1.5 pi) 6.0)<br />             p15         (polar pk6 (* 1.5 pi) 1)<br />             p16         (polar p15 0 ll)<br />             pk7         (polar pk6 (* 1.5 pi) 6.0)<br />             p17         (polar pk7 (* 1.5 pi) 1)<br />             p18         (polar p17 0 ll)<br />             pk8         (polar pk7 (* 1.5 pi) 6.0)<br />             p19         (polar pk8 (* 1.5 pi) 1)<br />             p20         (polar p19 0 ll)<br />             pk9         (polar pk8 (* 1.5 pi) 6.0)<br />             p21         (polar pk9 (* 1.5 pi) 1)<br />             p22         (polar p21 0 ll)<br />             pk10 (polar pk9 (* 1.5 pi) 6.0)<br />             p23         (polar pk10 (* 1.5 pi) 1)<br />             p24         (polar p23 0 ll)<br />             ptn         (list p1 p2 p5        p6 p7 p8 p9 p10        p11 p12        p13 p14        p15 p16        p17 p18        p19 p20        p21 p22        p23 p24)<br />       )<br />       (abc pk "4cm厚细粒式改性沥青砼（ac-13c）")<br />       (abc pk1 "粘层油（al(m)-3）")<br />       (abc pk2 "6cm厚中粒式沥青砼（ac-20 c）")<br />       (abc pk3 "粘层油（al(m)-3）")<br />       (abc pk4 "8cm厚粗粒式沥青砼（ac-25 c）")<br />       (abc pk5 "粘层油（al(m)-3）")<br />       (abc pk6 "1cm改性沥青碎石封层")<br />       (abc pk7 "25cm厚c40水泥砼")<br />       (abc pk8 "20cm厚5%水泥稳定碎石基层")<br />       (abc pk9 "20cm厚4%水泥稳定碎石底基层")<br />       (abc pk10 "15cm厚未筛分碎石垫层")<br />       (while (and (setq p1 (car ptn))<br />                   (setq p2 (cadr ptn))<br />              )<br />         (setq ptn (cddr ptn))<br />         (abd p1 p2)<br />       )<br />     )<br />   )<br />   (princ)<br /> )

spp_wall

xyp1964 发表于 2014-11-22 11:40

谢谢院长

墨者

谢谢楼主分享

haodong

感谢各位大神，学习了！