决定研究dcl后，第一次练习作

feng582304

2. (defun feng-dcl-make ( st / file dcl w h )
   
3.   (setq file (open (setq dcl (VL-FILENAME-MKTEMP nil nil ".dcl")) "w"))
   
4.   (WRITE-LINE st file)
   
5.   (close file)
   
6.   dcl
   
7.   )
   
8. (defun c:asdf ( / dcl li )
   
9.   (setq dcl (feng-dcl-make
   
10.         "feng:dialog {\n
    
11.     label = "平面二跑楼梯" ;\n
    
12.     spacer_1;\n
    
13.     :row {\n
    
14.         :edit_box {\n
    
15.             key = "heigth" ;\n
    
16.             label = "层高：" ;\n
    
17.         }\n
    
18.         :text {\n
    
19.             value = "mm" ;\n
    
20.         }\n
    
21.     }\n
    
22.     :row {\n
    
23.         :edit_box {\n
    
24.             key = "num" ;\n
    
25.             label = "级数：" ;\n
    
26.         }\n
    
27.         :text {\n
    
28.             value = "mm" ;\n
    
29.         }\n
    
30.     }\n
    
31.     :row {\n
    
32.         :edit_box {\n
    
33.             key = "width1" ;\n
    
34.             label = "步宽：" ;\n
    
35.         }\n
    
36.         :text {\n
    
37.             value = "mm" ;\n
    
38.         }\n
    
39.     }\n
    
40.     :row {\n
    
41.         :edit_box {\n
    
42.             key = "width2" ;\n
    
43.             label = "井宽：" ;\n
    
44.         }\n
    
45.         :text {\n
    
46.             value = "mm" ;\n
    
47.         }\n
    
48.     }\n
    
49.     spacer_1;\n
    
50.     :row {\n
    
51.         :text_part {\n
    
52.             value = "踏步高：" ;\n
    
53.         }\n
    
54.         :text_part {\n
    
55.             key = "h1" ;\n
    
56.             value = "163.64" ;\n
    
57.         }\n
    
58.         :text_part {\n
    
59.             value = "mm" ;\n
    
60.         }\n
    
61.     }\n
    
62.     spacer_1;\n
    
63.     ok_cancel;\n
    
64. }"))
    
65. ;---------------------------------------------------------------------------------------;
    
66. ;  层高-heigth  级数-num  步宽-width1  井宽-width2  踏步高-h1  ;
    
67. ;---------------------------------------------------------------------------------------;
    
68.   (NEW_DIALOG "feng" (LOAD_DIALOG dcl))
    
69.   (MODE_TILE "heigth" 2)
    
70.   (SET_TILE "heigth" "3600")
    
71.   (SET_TILE "num" "22")
    
72.   (SET_TILE "width1" "280")
    
73.   (SET_TILE "width2" "120")
    
74.   (SET_TILE "h1" (rtos (/ 3600 22.0) 2 2))
    
75.   (ACTION_TILE "heigth" "(feng-ht-2stair-hi)")
    
76.   (ACTION_TILE "num" "(feng-ht-2stair-hi)")
    
77.   (ACTION_TILE "accept" "(setq li (feng-ht-2stair-done))(DONE_DIALOG 1)")
    
78.   (if (= (START_DIALOG) 1) (feng-ht-2stair (car li) (cadr li) (last li)))
    
79.   )
    
80. (defun feng-ht-2stair-done ()
    
81.   (setq width1 (FLOAT (read (GET_TILE "width1")))
    
82.   width2 (FLOAT (read (GET_TILE "width2")))
    
83.   num (read (GET_TILE "num"))
    
84.   )
    
85.   (list width1 width2 num)
    
86.   )
    
87. (defun feng-ht-2stair-hi ( / h n )
    
88.   (setq h (GET_TILE "heigth")
    
89.   n (GET_TILE "num")
    
90.   )
    
91.   (cond
    
92.     ((or (= "" h) (not (VL-EVERY '(LAMBDA (x) (and (>= x 48) (<= x 57))) (VL-STRING->LIST h)))) (SET_TILE "heigth" "参数错误...") (SET_TILE "h1" "参数错误...") (MODE_TILE "heigth" 2))
    
93.     ((or (= "" n) (= "0" n) (not (VL-EVERY '(LAMBDA (x) (and (>= x 48) (<= x 57))) (VL-STRING->LIST n)))) (SET_TILE "num" "参数错误...") (SET_TILE "h1" "参数错误...") (MODE_TILE "num" 2))
    
94.     (t (SET_TILE "h1" (rtos (/ (FLOAT (read h)) (read n)) 2 2)))
    
95.     )
    
96.   )
    
97. ;-------------------------------------------------------------------------------------------------------------------------------;
    
98. ;              通用函数                ;
    
99. ;-------------------------------------------------------------------------------------------------------------------------------;
    
100. ;坐标转换==》(feng-xytoxy1 目标点 坐标角度 新坐标点 转换开关)  转换开关：非nil时，临时坐标系->ucs,否则是ucs->临时坐标系  ;
     
101. ;-------------------------------------------------------------------------------------------------------------------------------;
     
102. (defun feng-xytoxy1 ( p ang p0 tt / dt dxy )
     
103.   (if (and p0 tt)
     
104.     (progn
     
105.       (setq p (REVERSE (cons 1 (REVERSE p))))
     
106.       (setq dt (list (list (cos ang) (- (sin ang)) 0 (car p0)) (list (sin ang) (cos ang) 0 (cadr p0)) '(0 0 1 0) '(0 0 0 1)))
     
107.       )
     
108.     (progn
     
109.       (setq p (REVERSE (cons 1 (REVERSE (MAPCAR '- p p0)))))
     
110.       (setq dt (list (list (cos ang) (sin ang) 0 0) (list (- (sin ang)) (cos ang) 0 0) '(0 0 1 0) '(0 0 0 1)))
     
111.       )
     
112.     )
     
113.   (REVERSE (cdr (REVERSE (MAPCAR
     
114.     '(LAMBDA (x)
     
115.        (if (and (<= (setq dxy (apply '+ (MAPCAR '* p x))) 1e-05) (>= dxy -1e-05)) 0 dxy)
     
116.        )
     
117.     dt
     
118.     ))))
     
119. )
     
120. ;---------------------------------------;
     
121. ;    预览楼梯    ;
     
122. ;---------------------------------------;
     
123. (defun feng-ht-2stair-make ( li / ms doc layers )
     
124.   (setq ms (vla-get-ModelSpace (setq doc (vla-get-activedocument (vlax-get-acad-object))))
     
125.   layers (vla-get-layers doc)
     
126.   )
     
127.   (if (null (TBLSEARCH "layer" "stair")) (vla-put-color (vla-add layers "stair") 2))
     
128.   (MAPCAR '(LAMBDA (x)
     
129.        (vla-put-layer (vla-addline ms (vlax-3d-point (car x)) (vlax-3d-point (cadr x))) "stair")
     
130.        )
     
131.     li
     
132.     )
     
133.   (redraw)
     
134.   )  
     
135. (defun feng-ht-2stair ( width1 width3 num / po gpo gr ang ln rn tt ttt li tempo width2 width4 lim-width *ERROR* )
     
136.   (defun *ERROR* (msg)
     
137.     (redraw)
     
138.     )
     
139.   (setq po (getpoint "\n请选择楼梯中间平台左角点:")
     
140.   ang pi
     
141.   ln (fix (/ num 2))
     
142.   rn (- num ln)
     
143.   tt t
     
144.   ttt t
     
145.   width2 1200
     
146.   )
     
147.   (princ "\n---\n")(princ ln)(princ "\n---\n")(princ rn)(princ "\n---end---\n")
     
148.   (princ "\n控制参数->角度(A),踏步数(小键盘4/6),平台宽(小键盘2/8)...")
     
149.   (while ttt
     
150.     (setq gr (grread t 12 2))
     
151.     (cond
     
152.       ((and (= (car gr) 5) tt) (feng-stair-grvecs
     
153.          po
     
154.          (setq gpo (abs (cadr (feng-xytoxy1 (if (setq tempo (OSNAP (cadr gr) "_nea")) tempo (cadr gr)) ang po nil))))
     
155.          ang
     
156.          width1
     
157.          (if (<= width2 (setq lim-width (* (1+ (fix (/ (setq width4 (/ (- gpo width3) 2)) 10))) 10))) (setq width2 lim-width) width2)
     
158.          width4
     
159.          ln
     
160.          rn)
     
161.        )
     
162.       ((and (= (car gr) 5) (null tt)) (feng-stair-grvecs po gpo (setq ang (angle po (if (setq tempo (OSNAP (cadr gr) "_nea")) tempo (cadr gr)))) width1 width2 width4 ln rn))
     
163.       ((and (= (car gr) 2) (= (cadr gr) 52)) (if (or (>= (1+ rn) 19) (<= (1- ln) 2)) ln (setq ln (1- ln))) (setq rn (- num ln)));键盘4
     
164.       ((and (= (car gr) 2) (= (cadr gr) 54)) (if (or (<= (1- rn) 2) (>= (1+ ln) 19)) ln (setq ln (1+ ln))) (setq rn (- num ln)));键盘6
     
165.       ((and (= (car gr) 2) (= (cadr gr) 50)) (if (or (<= 1200 lim-width (setq tempo (- width2 10))) (<= lim-width 1200 tempo)) (setq width2 tempo)));键盘2
     
166.       ((and (= (car gr) 2) (= (cadr gr) 56)) (setq width2 (+ width2 10)));键盘8
     
167.       ((and (= (car gr) 2) (or (= (cadr gr) 65) (= (cadr gr) 97))) (setq tt nil));键盘A/a
     
168.       ((and (= (car gr) 3) (null tt)) (setq tt t))
     
169.       ((and (= (car gr) 3) tt) (feng-ht-2stair-make (feng-stair-grvecs po gpo ang width1 width2 width4 ln rn)) (setq ttt nil))
     
170.       )
     
171.     )
     
172.   )
     
173. (defun feng-stair-grvecs ( po width ang width1 width2 width3 ln rn / li n )
     
174.   (setq n -1)
     
175.   (repeat ln
     
176.     (setq li (cons (list (list (+ width2 (* (setq n (1+ n)) width1)) 0 0) (list (+ width2 (* n width1)) (- width3 60) 0)) li))
     
177.     )
     
178.   (setq n -1)
     
179.   (repeat rn
     
180.     (setq li (cons (list (list (+ width2 (* (setq n (1+ n)) width1)) (- width width3 -60) 0) (list (+ width2 (* n width1)) width 0)) li))
     
181.     )
     
182.   (setq n (1- (max ln rn)))
     
183.   (MAPCAR '(LAMBDA (x) (setq li (cons x li)))
     
184.     (list (list (list (- width2 60) (- width3 60) 0) (list (+ width2 (* n width1) 60) (- width3 60) 0))
     
185.     (list (list (- width2 60) (- width3 60) 0) (list (- width2 60) (- width width3 -60) 0))
     
186.     (list (list (- width2 60) (- width width3 -60) 0) (list (+ width2 (* n width1) 60) (- width width3 -60) 0))
     
187.     (list (list (+ width2 (* n width1) 60) (- width3 60) 0) (list (+ width2 (* n width1) 60) (- width width3 -60) 0))
     
188.     (list (list width2 width3 0) (list (+ width2 (* n width1)) width3 0))
     
189.     (list (list width2 width3 0) (list width2 (- width width3) 0))
     
190.     (list (list width2 (- width width3) 0) (list (+ width2 (* n width1)) (- width width3) 0))
     
191.     (list (list (+ width2 (* n width1)) width3 0) (list (+ width2 (* n width1)) (- width width3) 0))
     
192.     )
     
193.     )
     
194.   (setq li (MAPCAR '(LAMBDA (x)
     
195.           (list (feng-xytoxy1 (car x) ang po t) (feng-xytoxy1 (cadr x) ang po t))
     
196.           )
     
197.        li
     
198.        )
     
199.   )
     
200.   (redraw)
     
201.   (MAPCAR '(LAMBDA (x)
     
202.        (GRVECS (cons 2 x))
     
203.        )
     
204.     li
     
205.     )
     
206.   li
     
207.   )

(defun feng-dcl-make ( st / file dcl w h )<br />   (setq file (open (setq dcl (VL-FILENAME-MKTEMP nil nil ".dcl")) "w"))<br />   (WRITE-LINE st file)<br />   (close file)<br />   dcl<br />   )<br /> (defun c:asdf ( / dcl li )<br />   (setq dcl (feng-dcl-make<br />         "feng:dialog {\n<br />     label = "平面二跑楼梯" ;\n<br />     spacer_1;\n<br />     :row {\n<br />         :edit_box {\n<br />             key = "heigth" ;\n<br />             label = "层高：" ;\n<br />         }\n<br />         :text {\n<br />             value = "mm" ;\n<br />         }\n<br />     }\n<br />     :row {\n<br />         :edit_box {\n<br />             key = "num" ;\n<br />             label = "级数：" ;\n<br />         }\n<br />         :text {\n<br />             value = "mm" ;\n<br />         }\n<br />     }\n<br />     :row {\n<br />         :edit_box {\n<br />             key = "width1" ;\n<br />             label = "步宽：" ;\n<br />         }\n<br />         :text {\n<br />             value = "mm" ;\n<br />         }\n<br />     }\n<br />     :row {\n<br />         :edit_box {\n<br />             key = "width2" ;\n<br />             label = "井宽：" ;\n<br />         }\n<br />         :text {\n<br />             value = "mm" ;\n<br />         }\n<br />     }\n<br />     spacer_1;\n<br />     :row {\n<br />         :text_part {\n<br />             value = "踏步高：" ;\n<br />         }\n<br />         :text_part {\n<br />             key = "h1" ;\n<br />             value = "163.64" ;\n<br />         }\n<br />         :text_part {\n<br />             value = "mm" ;\n<br />         }\n<br />     }\n<br />     spacer_1;\n<br />     ok_cancel;\n<br /> }"))<br /> ;---------------------------------------------------------------------------------------;<br /> ;  层高-heigth  级数-num  步宽-width1  井宽-width2  踏步高-h1  ;<br /> ;---------------------------------------------------------------------------------------;<br />   (NEW_DIALOG "feng" (LOAD_DIALOG dcl))<br />   (MODE_TILE "heigth" 2)<br />   (SET_TILE "heigth" "3600")<br />   (SET_TILE "num" "22")<br />   (SET_TILE "width1" "280")<br />   (SET_TILE "width2" "120")<br />   (SET_TILE "h1" (rtos (/ 3600 22.0) 2 2))<br />   (ACTION_TILE "heigth" "(feng-ht-2stair-hi)")<br />   (ACTION_TILE "num" "(feng-ht-2stair-hi)")<br />   (ACTION_TILE "accept" "(setq li (feng-ht-2stair-done))(DONE_DIALOG 1)")<br />   (if (= (START_DIALOG) 1) (feng-ht-2stair (car li) (cadr li) (last li)))<br />   )<br /> (defun feng-ht-2stair-done ()<br />   (setq width1 (FLOAT (read (GET_TILE "width1")))<br />   width2 (FLOAT (read (GET_TILE "width2")))<br />   num (read (GET_TILE "num"))<br />   )<br />   (list width1 width2 num)<br />   )<br /> (defun feng-ht-2stair-hi ( / h n )<br />   (setq h (GET_TILE "heigth")<br />   n (GET_TILE "num")<br />   )<br />   (cond<br />     ((or (= "" h) (not (VL-EVERY '(LAMBDA (x) (and (>= x 48) (<= x 57))) (VL-STRING->LIST h)))) (SET_TILE "heigth" "参数错误...") (SET_TILE "h1" "参数错误...") (MODE_TILE "heigth" 2))<br />     ((or (= "" n) (= "0" n) (not (VL-EVERY '(LAMBDA (x) (and (>= x 48) (<= x 57))) (VL-STRING->LIST n)))) (SET_TILE "num" "参数错误...") (SET_TILE "h1" "参数错误...") (MODE_TILE "num" 2))<br />     (t (SET_TILE "h1" (rtos (/ (FLOAT (read h)) (read n)) 2 2)))<br />     )<br />   )<br /> ;-------------------------------------------------------------------------------------------------------------------------------;<br /> ;              通用函数                ;<br /> ;-------------------------------------------------------------------------------------------------------------------------------;<br /> ;坐标转换==》(feng-xytoxy1 目标点 坐标角度 新坐标点 转换开关)  转换开关：非nil时，临时坐标系->ucs,否则是ucs->临时坐标系  ;<br /> ;-------------------------------------------------------------------------------------------------------------------------------;<br /> (defun feng-xytoxy1 ( p ang p0 tt / dt dxy )<br />   (if (and p0 tt)<br />     (progn<br />       (setq p (REVERSE (cons 1 (REVERSE p))))<br />       (setq dt (list (list (cos ang) (- (sin ang)) 0 (car p0)) (list (sin ang) (cos ang) 0 (cadr p0)) '(0 0 1 0) '(0 0 0 1)))<br />       )<br />     (progn<br />       (setq p (REVERSE (cons 1 (REVERSE (MAPCAR '- p p0)))))<br />       (setq dt (list (list (cos ang) (sin ang) 0 0) (list (- (sin ang)) (cos ang) 0 0) '(0 0 1 0) '(0 0 0 1)))<br />       )<br />     )<br />   (REVERSE (cdr (REVERSE (MAPCAR<br />     '(LAMBDA (x)<br />        (if (and (<= (setq dxy (apply '+ (MAPCAR '* p x))) 1e-05) (>= dxy -1e-05)) 0 dxy)<br />        )<br />     dt<br />     ))))<br /> )<br /> ;---------------------------------------;<br /> ;    预览楼梯    ;<br /> ;---------------------------------------;<br /> (defun feng-ht-2stair-make ( li / ms doc layers )<br />   (setq ms (vla-get-ModelSpace (setq doc (vla-get-activedocument (vlax-get-acad-object))))<br />   layers (vla-get-layers doc)<br />   )<br />   (if (null (TBLSEARCH "layer" "stair")) (vla-put-color (vla-add layers "stair") 2))<br />   (MAPCAR '(LAMBDA (x)<br />        (vla-put-layer (vla-addline ms (vlax-3d-point (car x)) (vlax-3d-point (cadr x))) "stair")<br />        )<br />     li<br />     )<br />   (redraw)<br />   )  <br /> (defun feng-ht-2stair ( width1 width3 num / po gpo gr ang ln rn tt ttt li tempo width2 width4 lim-width *ERROR* )<br />   (defun *ERROR* (msg)<br />     (redraw)<br />     )<br />   (setq po (getpoint "\n请选择楼梯中间平台左角点:")<br />   ang pi<br />   ln (fix (/ num 2))<br />   rn (- num ln)<br />   tt t<br />   ttt t<br />   width2 1200<br />   )<br />   (princ "\n---\n")(princ ln)(princ "\n---\n")(princ rn)(princ "\n---end---\n")<br />   (princ "\n控制参数->角度(A),踏步数(小键盘4/6),平台宽(小键盘2/8)...")<br />   (while ttt<br />     (setq gr (grread t 12 2))<br />     (cond<br />       ((and (= (car gr) 5) tt) (feng-stair-grvecs<br />          po<br />          (setq gpo (abs (cadr (feng-xytoxy1 (if (setq tempo (OSNAP (cadr gr) "_nea")) tempo (cadr gr)) ang po nil))))<br />          ang<br />          width1<br />          (if (<= width2 (setq lim-width (* (1+ (fix (/ (setq width4 (/ (- gpo width3) 2)) 10))) 10))) (setq width2 lim-width) width2)<br />          width4<br />          ln<br />          rn)<br />        )<br />       ((and (= (car gr) 5) (null tt)) (feng-stair-grvecs po gpo (setq ang (angle po (if (setq tempo (OSNAP (cadr gr) "_nea")) tempo (cadr gr)))) width1 width2 width4 ln rn))<br />       ((and (= (car gr) 2) (= (cadr gr) 52)) (if (or (>= (1+ rn) 19) (<= (1- ln) 2)) ln (setq ln (1- ln))) (setq rn (- num ln)));键盘4<br />       ((and (= (car gr) 2) (= (cadr gr) 54)) (if (or (<= (1- rn) 2) (>= (1+ ln) 19)) ln (setq ln (1+ ln))) (setq rn (- num ln)));键盘6<br />       ((and (= (car gr) 2) (= (cadr gr) 50)) (if (or (<= 1200 lim-width (setq tempo (- width2 10))) (<= lim-width 1200 tempo)) (setq width2 tempo)));键盘2<br />       ((and (= (car gr) 2) (= (cadr gr) 56)) (setq width2 (+ width2 10)));键盘8<br />       ((and (= (car gr) 2) (or (= (cadr gr) 65) (= (cadr gr) 97))) (setq tt nil));键盘A/a<br />       ((and (= (car gr) 3) (null tt)) (setq tt t))<br />       ((and (= (car gr) 3) tt) (feng-ht-2stair-make (feng-stair-grvecs po gpo ang width1 width2 width4 ln rn)) (setq ttt nil))<br />       )<br />     )<br />   )<br /> (defun feng-stair-grvecs ( po width ang width1 width2 width3 ln rn / li n )<br />   (setq n -1)<br />   (repeat ln<br />     (setq li (cons (list (list (+ width2 (* (setq n (1+ n)) width1)) 0 0) (list (+ width2 (* n width1)) (- width3 60) 0)) li))<br />     )<br />   (setq n -1)<br />   (repeat rn<br />     (setq li (cons (list (list (+ width2 (* (setq n (1+ n)) width1)) (- width width3 -60) 0) (list (+ width2 (* n width1)) width 0)) li))<br />     )<br />   (setq n (1- (max ln rn)))<br />   (MAPCAR '(LAMBDA (x) (setq li (cons x li)))<br />     (list (list (list (- width2 60) (- width3 60) 0) (list (+ width2 (* n width1) 60) (- width3 60) 0))<br />     (list (list (- width2 60) (- width3 60) 0) (list (- width2 60) (- width width3 -60) 0))<br />     (list (list (- width2 60) (- width width3 -60) 0) (list (+ width2 (* n width1) 60) (- width width3 -60) 0))<br />     (list (list (+ width2 (* n width1) 60) (- width3 60) 0) (list (+ width2 (* n width1) 60) (- width width3 -60) 0))<br />     (list (list width2 width3 0) (list (+ width2 (* n width1)) width3 0))<br />     (list (list width2 width3 0) (list width2 (- width width3) 0))<br />     (list (list width2 (- width width3) 0) (list (+ width2 (* n width1)) (- width width3) 0))<br />     (list (list (+ width2 (* n width1)) width3 0) (list (+ width2 (* n width1)) (- width width3) 0))<br />     )<br />     )<br />   (setq li (MAPCAR '(LAMBDA (x)<br />           (list (feng-xytoxy1 (car x) ang po t) (feng-xytoxy1 (cadr x) ang po t))<br />           )<br />        li<br />        )<br />   )<br />   (redraw)<br />   (MAPCAR '(LAMBDA (x)<br />        (GRVECS (cons 2 x))<br />        )<br />     li<br />     )<br />   li<br />   )

434939575

挺好的，还可动态拉伸

上层建筑

顶你一下顶你一下

大展红图

初学，观摩一下

xiaxiang

半夜睡不着爬起来看帖，顶你一下

仲文玉

支持下，自学成才

feng582304

谢谢大家支持……

完整武器

很好的程序啊 顶你！！支持楼主继续来个剖面的就完美了！！！

lichenxui

支持一下很不错

feng582304

俺第一个lisp就是画楼梯剖面，现在第一个整合dcl又是楼梯，晕，刚开始也想直接做个剖面的，但没想好要做到哪种功能深度，而且之前那个画剖面的虽没优化，可已用惯了，就算了，做个还没做过的，练习一下刚开始学习的对话框，概念成熟后

qcw911

2. 
   
3. 这里的内容时怎么写的  \n 怎么加的？
   
4. 
   
5. 
   
6. 
   
7. 
   
8.   "feng:dialog {\n
   
9.     label = "平面二跑楼梯" ;\n
   
10.     spacer_1;\n
    
11.     :row {\n
    
12.         :edit_box {\n
    
13.             key = "heigth" ;\n
    
14.             label = "层高：" ;\n
    
15.         }\n
    
16.         :text {\n
    
17.             value = "mm" ;\n
    
18.         }\n
    
19.     }\n
    
20.     :row {\n
    
21.         :edit_box {\n
    
22.             key = "num" ;\n
    
23.             label = "级数：" ;\n
    
24.         }\n
    
25.         :text {\n
    
26.             value = "mm" ;\n
    
27.         }\n
    
28.     }\n
    
29.     :row {\n
    
30.         :edit_box {\n
    
31.             key = "width1" ;\n
    
32.             label = "步宽：" ;\n
    
33.         }\n
    
34.         :text {\n
    
35.             value = "mm" ;\n
    
36.         }\n
    
37.     }\n
    
38.     :row {\n
    
39.         :edit_box {\n
    
40.             key = "width2" ;\n
    
41.             label = "井宽：" ;\n
    
42.         }\n
    
43.         :text {\n
    
44.             value = "mm" ;\n
    
45.         }\n
    
46.     }\n
    
47.     spacer_1;\n
    
48.     :row {\n
    
49.         :text_part {\n
    
50.             value = "踏步高：" ;\n
    
51.         }\n
    
52.         :text_part {\n
    
53.             key = "h1" ;\n
    
54.             value = "163.64" ;\n
    
55.         }\n
    
56.         :text_part {\n
    
57.             value = "mm" ;\n
    
58.         }\n
    
59.     }\n
    
60.     spacer_1;\n
    
61.     ok_cancel;\n
    
62. }"

<br /> 这里的内容时怎么写的  \n 怎么加的？<br /> <br /> <br /> <br /> <br />   "feng:dialog {\n<br />     label = "平面二跑楼梯" ;\n<br />     spacer_1;\n<br />     :row {\n<br />         :edit_box {\n<br />             key = "heigth" ;\n<br />             label = "层高：" ;\n<br />         }\n<br />         :text {\n<br />             value = "mm" ;\n<br />         }\n<br />     }\n<br />     :row {\n<br />         :edit_box {\n<br />             key = "num" ;\n<br />             label = "级数：" ;\n<br />         }\n<br />         :text {\n<br />             value = "mm" ;\n<br />         }\n<br />     }\n<br />     :row {\n<br />         :edit_box {\n<br />             key = "width1" ;\n<br />             label = "步宽：" ;\n<br />         }\n<br />         :text {\n<br />             value = "mm" ;\n<br />         }\n<br />     }\n<br />     :row {\n<br />         :edit_box {\n<br />             key = "width2" ;\n<br />             label = "井宽：" ;\n<br />         }\n<br />         :text {\n<br />             value = "mm" ;\n<br />         }\n<br />     }\n<br />     spacer_1;\n<br />     :row {\n<br />         :text_part {\n<br />             value = "踏步高：" ;\n<br />         }\n<br />         :text_part {\n<br />             key = "h1" ;\n<br />             value = "163.64" ;\n<br />         }\n<br />         :text_part {\n<br />             value = "mm" ;\n<br />         }\n<br />     }\n<br />     spacer_1;\n<br />     ok_cancel;\n<br /> }"

greatvictory

楼主的代码对我有所启发，谢谢！

feng582304

qcw911 发表于 2011-12-26 09:36

怎么加\n？很奇怪的问题，不是自己输入进去的吗？晕。