希望高手帮我看看程序

风流少年时

我的程序主要功能是建立图层，但输入比例却会出现问题，不相关联。下面的是我的程序：

2. (defun c:wc ()
   
3. 
   
4. (setvar "cmdecho" 0)
   
5. (setq ur1 (getvar "userr1"))
   
6. (if (= ur1 0) (setq ur1 1))
   
7. (setq ur2 (getreal (strcat "\n打印比例 1:" "<" (rtos ur1 2) ">")))
   
8. (if (= ur2 nil) (setq ur2 ur1))
   
9. 
   
10. (setq r2 (/ ur2 100))
    
11. (setvar "userr1" ur2)
    
12. 
    
13. (command "-linetype" "l" "center"  "" "" "")
    
14. (command "-linetype" "l" "dash1"  "" "" "")
    
15. (command "-linetype" "l" "dash"  "" "" "")
    
16. (command "ltscale" (* ur2 10))
    
17. 
    
18. (command "-style" "GB" "gbxwxt.shx,gbhzfs.shx" (* 250 r2) "0.7" "" "" "" "")
    
19. (command "-style" "BH" "romanc.shx" "" "" "" "" "" "")
    
20. (command "-style" "DIM_Font" "simplex.shx" "" "" "" "" "" "")
    
21. (command "-style" "TM" "SIMFANG.TTF" (* 700 r2) "" "" "" "" "")
    
22. 
    
23. ;(command "dimstyle" "s" "STANDARD" "y" "")
    
24. 
    
25. (setq p0 (list 0.0 0.0 0.0))
    
26. (command "-insert" "whblk.dwg" p0 "1" "1" "1" "0")
    
27.   (setq en1 (entlast))
    
28.   (entdel en1)
    
29. 
    
30. 
    
31.         
    
32. (command "dimasz" (* 80 r2) )
    
33. 
    
34. (command "dimcen" (* 300 r2))
    
35. (command "dimclrt" 7)
    
36. (command "dimdec" 0)
    
37. (command "dimdli" 0.0000)
    
38. (command "dimexe" (* 200 r2))
    
39. (command "dimexo" (* 300 r2))
    
40. (command "dimgap" (* 80 r2))
    
41. (command "dimtxsty" "GB")
    
42. (command "dimtxt" (* 250 r2))
    
43. (command "dimtmove" 2)
    
44. 
    
45. (command "layer" "m" "DOTE" "m" "AXIS" "m" "AXIS_TEXT" "m" "DIM" "m" "DT" "m" "DT-BH" "m" "DT-FZ" "")
    
46. (command "layer" "m" "C-T0" "m" "C-T1" "m" "C-H" "m" "Q-L0" "m" "Q-H" "m" "R-L0" "m" "R-L1" "")
    
47. (command "layer" "m" "L-K0" "m" "L-K1" "m" "L-BH" "m" "L-HH" "m" "L-H" "m" "L-VV" "m" "L-V" "")
    
48. (command "layer" "m" "BJ-L" "m" "BJ-T" "m" "JB-L" "m" "JB-H" "m" "HJ-H" "m" "H0" "m" "R0" "m" "R1" "")
    
49. (command "layer"  "m" "TM" "m" "JM" "m" "LK" "m" "D0" "m" "D1" "m" "1" "m" "2" "m" "defpoints" "")  
    
50. 
    
51. 
    
52. ;(command "layer" "n" "DOTE,AXIS,AXIS_TEXT,C-T0,C-T1,C-H,DIM,Q-L0,Q-H,R-L0,R-L1" "")
    
53. 
    
54. ;(command "layer" "n" "L-K0,L-K1,L-BH,L-HH,L-H,L-VV,L-V,BJ-L,BJ-T,JB-L,JB-H,LK,HJ-H" "")
    
55. 
    
56. ;(command "layer" "n" "DT,DT-BH,DT-FZ,R0,R1,TM,JM,D0,D1,H0,1,2,defpoints" "")
    
57. 
    
58. ;(command "layer" "n" "JC-L,CT-X,CT-S,ZH-L,ZH-L400,ZH-L500,ZH-L600,ZBH" "")
    
59. ;(command "layer" "n" "D-W,D-E,D-H,D-T,D-G" "")
    
60. 
    
61. (command "layer" "c" 1 "DOTE,JB-H" "")
    
62. (command "layer" "c" 2 "BJ-L,R0,R1,2" "")
    
63. (command "layer" "c" 3 "AXIS,DIM,Q-L0,L-BH,BJ-T,LK,HJ-H,DT,DT-FZ,TM,1" "")
    
64. (command "layer" "c" 4 "L-K0,L-K1,JB-L,JM" "")
    
65. (command "layer" "c" 8 "C-H" "c" 9 "H0" "c" 10 "D0,D1" "c" 11 "R-L0,R-L1" "c" 50 "C-T0,C-T1" "")
    
66. 
    
67. (command "layer" "l" "CENTER"  "DOTE" "l" "DASH1" "HJ-H" "")
    
68. (command "layer" "l" "DASH"  "C-T1,R-L1,L-K1,R1,D1" "")
    
69. (command "regen")
    
70. (princ)
    
71. (princ)(princ)(princ)(princ)(princ)
    
72. 
    
73. )

(defun c:wc () <br /> <br /> (setvar "cmdecho" 0)<br /> (setq ur1 (getvar "userr1"))<br /> (if (= ur1 0) (setq ur1 1))<br /> (setq ur2 (getreal (strcat "\n打印比例 1:" "<" (rtos ur1 2) ">")))<br /> (if (= ur2 nil) (setq ur2 ur1))<br /> <br /> (setq r2 (/ ur2 100))<br /> (setvar "userr1" ur2)<br /> <br /> (command "-linetype" "l" "center"  "" "" "")<br /> (command "-linetype" "l" "dash1"  "" "" "")<br /> (command "-linetype" "l" "dash"  "" "" "")<br /> (command "ltscale" (* ur2 10))<br /> <br /> (command "-style" "GB" "gbxwxt.shx,gbhzfs.shx" (* 250 r2) "0.7" "" "" "" "")<br /> (command "-style" "BH" "romanc.shx" "" "" "" "" "" "")<br /> (command "-style" "DIM_Font" "simplex.shx" "" "" "" "" "" "")<br /> (command "-style" "TM" "SIMFANG.TTF" (* 700 r2) "" "" "" "" "")<br /> <br /> ;(command "dimstyle" "s" "STANDARD" "y" "")<br /> <br /> (setq p0 (list 0.0 0.0 0.0))<br /> (command "-insert" "whblk.dwg" p0 "1" "1" "1" "0")<br />   (setq en1 (entlast)) <br />   (entdel en1)<br /> <br /> <br />         <br /> (command "dimasz" (* 80 r2) )<br /> <br /> (command "dimcen" (* 300 r2))<br /> (command "dimclrt" 7)<br /> (command "dimdec" 0)<br /> (command "dimdli" 0.0000)<br /> (command "dimexe" (* 200 r2))<br /> (command "dimexo" (* 300 r2))<br /> (command "dimgap" (* 80 r2))<br /> (command "dimtxsty" "GB")<br /> (command "dimtxt" (* 250 r2))<br /> (command "dimtmove" 2)<br /> <br /> (command "layer" "m" "DOTE" "m" "AXIS" "m" "AXIS_TEXT" "m" "DIM" "m" "DT" "m" "DT-BH" "m" "DT-FZ" "")<br /> (command "layer" "m" "C-T0" "m" "C-T1" "m" "C-H" "m" "Q-L0" "m" "Q-H" "m" "R-L0" "m" "R-L1" "")<br /> (command "layer" "m" "L-K0" "m" "L-K1" "m" "L-BH" "m" "L-HH" "m" "L-H" "m" "L-VV" "m" "L-V" "")<br /> (command "layer" "m" "BJ-L" "m" "BJ-T" "m" "JB-L" "m" "JB-H" "m" "HJ-H" "m" "H0" "m" "R0" "m" "R1" "")<br /> (command "layer"  "m" "TM" "m" "JM" "m" "LK" "m" "D0" "m" "D1" "m" "1" "m" "2" "m" "defpoints" "")  <br /> <br /> <br /> ;(command "layer" "n" "DOTE,AXIS,AXIS_TEXT,C-T0,C-T1,C-H,DIM,Q-L0,Q-H,R-L0,R-L1" "")<br /> <br /> ;(command "layer" "n" "L-K0,L-K1,L-BH,L-HH,L-H,L-VV,L-V,BJ-L,BJ-T,JB-L,JB-H,LK,HJ-H" "")<br /> <br /> ;(command "layer" "n" "DT,DT-BH,DT-FZ,R0,R1,TM,JM,D0,D1,H0,1,2,defpoints" "")<br /> <br /> ;(command "layer" "n" "JC-L,CT-X,CT-S,ZH-L,ZH-L400,ZH-L500,ZH-L600,ZBH" "")<br /> ;(command "layer" "n" "D-W,D-E,D-H,D-T,D-G" "")<br /> <br /> (command "layer" "c" 1 "DOTE,JB-H" "")<br /> (command "layer" "c" 2 "BJ-L,R0,R1,2" "")<br /> (command "layer" "c" 3 "AXIS,DIM,Q-L0,L-BH,BJ-T,LK,HJ-H,DT,DT-FZ,TM,1" "")<br /> (command "layer" "c" 4 "L-K0,L-K1,JB-L,JM" "")<br /> (command "layer" "c" 8 "C-H" "c" 9 "H0" "c" 10 "D0,D1" "c" 11 "R-L0,R-L1" "c" 50 "C-T0,C-T1" "")<br /> <br /> (command "layer" "l" "CENTER"  "DOTE" "l" "DASH1" "HJ-H" "")<br /> (command "layer" "l" "DASH"  "C-T1,R-L1,L-K1,R1,D1" "")<br /> (command "regen")<br /> (princ)<br /> (princ)(princ)(princ)(princ)(princ)<br /> <br /> )

风流少年时

希望楼主帮我看看啊。谢谢各位了。

风流少年时

上面打错了，希望版主帮我看看啊。

风流少年时

这么多年过去了，发现自己也知道了最基本的东西，求人不如求自己，多学习总会有长进。