帮我看看这个效果是怎么实现的呢 ？我自己写的代码不知道哪里有问题》

bingshuier

2. (defun c:xxxx()
   
3.   (func1)
   
4.   (func2)
   
5.   (func3)
   
6.   (func4)
   
7.   )
   
8. 
   
9. (defun func1()
   
10.   (if (not (tblsearch "layer" "S-BEAM-标注箍筋)"))
    
11.     (command "layer" "m" "S-BEAM-标注箍筋" "c" 135 "l" "CONTINUOUS" "")
    
12.     (command "layer" "s" "S-BEAM-标注箍筋" "")
    
13.     (prin1)
    
14.   )
    
15. )
    
16. 
    
17. (defun func2()
    
18.     (if (not (tblsearch "dimstyle" "标注箍筋"))
    
19.        (command "dimstyle" "s" "标注箍筋")
    
20.        (command "dimstyle" "v" "标注箍筋")
    
21.     )
    
22. )
    
23. 
    
24. (defun func3()
    
25.     (setvar "dimASO" "关")
    
26.     (setvar "dimSTYLE" "TSSD_100_100")
    
27.     (setvar "dimADEC" 0)
    
28.     (setvar "dimALT" 关)
    
29.     (setvar "dimALTD" 2)
    
30.     (setvar "dimALTF" 25.40)
    
31.     (setvar "dimALTRND" 0.00)
    
32.     (setvar "dimALTTD" 2)
    
33.     (setvar "dimALTTZ" 0)
    
34.     (setvar "dimALTU" 2)
    
35.     (setvar "dimALTZ" 0)
    
36.     (setvar "dimAPOST" "")
    
37.     (setvar "dimASZ" 100.00)
    
38.     (setvar "dimATFIT" 3)
    
39.     (setvar "dimAUNIT" 0)
    
40.     (setvar "dimAZIN" 0)
    
41.     (setvar "dimBLK" ArchTick)
    
42.     (setvar "dimBLK1" ArchTick)
    
43.     (setvar "dimBLK2" ArchTick)
    
44.     (setvar "dimCEN" 0.00)
    
45.     (setvar "dimCLRD" 0)
    
46.     (setvar "dimCLRE" 0)
    
47.     (setvar "dimDEC" 0)
    
48.     (setvar "dimDLE" 100.00)
    
49.     (setvar "dimDLI" 0.00)
    
50.     (setvar "dimDSEP" .)
    
51.     (setvar "dimEXE" 100.00)
    
52.     (setvar "dimEXO" 250.00)
    
53.     (setvar "dimFRAC" 0)
    
54.     (setvar "dimGAP" 30.00)
    
55.     (setvar "dimJUST" 0)
    
56.     (setvar "dimLDRBLK" 实心闭合)
    
57.     (setvar "dimLFAC" 1.00)
    
58.     (setvar "dimLIM" 关)
    
59.     (setvar "dimLUNIT" 2)
    
60.     (setvar "dimLWD" -2)
    
61.     (setvar "dimLWE" -2)
    
62.     (setvar "dimPOST" "")
    
63.     (setvar "dimRND" 0.00)
    
64.     (setvar "dimSAH" 关)
    
65.     (setvar "dimSCALE" 1.00)
    
66.     (setvar "dimSD1" 关)
    
67.     (setvar "dimSD2" 关)
    
68.     (setvar "dimSE1" 关)
    
69.     (setvar "dimSE2" 关)
    
70.     (setvar "dimSOXD" 关)
    
71.     (setvar "dimTAD" 1)
    
72.     (setvar "dimTDEC" 0)
    
73.     (setvar "dimTFAC" 1.00)
    
74.     (setvar "dimTIH" 关)
    
75.     (setvar "dimTIX" 开)
    
76.     (setvar "dimTM" 0.00)
    
77.     (setvar "dimTMOVE" 2)
    
78.     (setvar "dimTOFL" 开)
    
79.     (setvar "dimTOH" 关)
    
80.     (setvar "dimTOL" 关)
    
81.     (setvar "dimTOLJ" 1)
    
82.     (setvar "dimTP" 0.00)
    
83.     (setvar "dimTSZ" 0.00)
    
84.     (setvar "dimTVP" 0.00)
    
85.     (setvar "dimTXSTY" TSSD_dimension)
    
86.     (setvar "dimTXT" 350.00)
    
87.     (setvar "dimTZIN" 0)
    
88.     (setvar "dimUPT" 关)
    
89.     (setvar "dimZIN" 0)
    
90.   )
    
91. 
    
92. (defun func4()
    
93.   (command "dimlinear" pause pause "t" "\\u+00828@120(2)" pause)
    
94.   )

(defun c:xxxx()<br />   (func1)<br />   (func2)<br />   (func3)<br />   (func4)<br />   )<br /> <br /> (defun func1()<br />   (if (not (tblsearch "layer" "S-BEAM-标注箍筋)"))<br />     (command "layer" "m" "S-BEAM-标注箍筋" "c" 135 "l" "CONTINUOUS" "")<br />     (command "layer" "s" "S-BEAM-标注箍筋" "")<br />     (prin1)<br />   )<br /> )<br /> <br /> (defun func2()<br />     (if (not (tblsearch "dimstyle" "标注箍筋"))<br />        (command "dimstyle" "s" "标注箍筋")<br />        (command "dimstyle" "v" "标注箍筋")<br />     )<br /> )<br /> <br /> (defun func3()<br />     (setvar "dimASO" "关")<br />     (setvar "dimSTYLE" "TSSD_100_100")<br />     (setvar "dimADEC" 0)<br />     (setvar "dimALT" 关)<br />     (setvar "dimALTD" 2)<br />     (setvar "dimALTF" 25.40)<br />     (setvar "dimALTRND" 0.00)<br />     (setvar "dimALTTD" 2)<br />     (setvar "dimALTTZ" 0)<br />     (setvar "dimALTU" 2)<br />     (setvar "dimALTZ" 0)<br />     (setvar "dimAPOST" "")<br />     (setvar "dimASZ" 100.00)<br />     (setvar "dimATFIT" 3)<br />     (setvar "dimAUNIT" 0)<br />     (setvar "dimAZIN" 0)<br />     (setvar "dimBLK" ArchTick)<br />     (setvar "dimBLK1" ArchTick)<br />     (setvar "dimBLK2" ArchTick)<br />     (setvar "dimCEN" 0.00)<br />     (setvar "dimCLRD" 0)<br />     (setvar "dimCLRE" 0)<br />     (setvar "dimDEC" 0)<br />     (setvar "dimDLE" 100.00)<br />     (setvar "dimDLI" 0.00)<br />     (setvar "dimDSEP" .)<br />     (setvar "dimEXE" 100.00)<br />     (setvar "dimEXO" 250.00)<br />     (setvar "dimFRAC" 0)<br />     (setvar "dimGAP" 30.00)<br />     (setvar "dimJUST" 0)<br />     (setvar "dimLDRBLK" 实心闭合)<br />     (setvar "dimLFAC" 1.00)<br />     (setvar "dimLIM" 关)<br />     (setvar "dimLUNIT" 2)<br />     (setvar "dimLWD" -2)<br />     (setvar "dimLWE" -2)<br />     (setvar "dimPOST" "")<br />     (setvar "dimRND" 0.00)<br />     (setvar "dimSAH" 关)<br />     (setvar "dimSCALE" 1.00)<br />     (setvar "dimSD1" 关)<br />     (setvar "dimSD2" 关)<br />     (setvar "dimSE1" 关)<br />     (setvar "dimSE2" 关)<br />     (setvar "dimSOXD" 关)<br />     (setvar "dimTAD" 1)<br />     (setvar "dimTDEC" 0)<br />     (setvar "dimTFAC" 1.00)<br />     (setvar "dimTIH" 关)<br />     (setvar "dimTIX" 开)<br />     (setvar "dimTM" 0.00)<br />     (setvar "dimTMOVE" 2)<br />     (setvar "dimTOFL" 开)<br />     (setvar "dimTOH" 关)<br />     (setvar "dimTOL" 关)<br />     (setvar "dimTOLJ" 1)<br />     (setvar "dimTP" 0.00)<br />     (setvar "dimTSZ" 0.00)<br />     (setvar "dimTVP" 0.00)<br />     (setvar "dimTXSTY" TSSD_dimension)<br />     (setvar "dimTXT" 350.00)<br />     (setvar "dimTZIN" 0)<br />     (setvar "dimUPT" 关)<br />     (setvar "dimZIN" 0)<br />   )<br /> <br /> (defun func4()<br />   (command "dimlinear" pause pause "t" "\\u+00828@120(2)" pause)<br />   )

ZZXXQQ

2. (defun func3()
   
3.   (setvar "dimASO" 0)
   
4.   (setvar "dimSTYLE" "TSSD_100_100")
   
5.   (setvar "dimADEC" 0)
   
6.   (setvar "dimALT" 0)
   
7.   (setvar "dimALTD" 2)
   
8.   (setvar "dimALTF" 25.4)
   
9.   (setvar "dimALTRND" 0.0)
   
10.   (setvar "dimALTTD" 2)
    
11.   (setvar "dimALTTZ" 0)
    
12.   (setvar "dimALTU" 2)
    
13.   (setvar "dimALTZ" 0)
    
14.   (setvar "dimAPOST" "")
    
15.   (setvar "dimASZ" 100.0)
    
16.   (setvar "dimATFIT" 3)
    
17.   (setvar "dimAUNIT" 0)
    
18.   (setvar "dimAZIN" 0)
    
19.   (setvar "dimBLK" "_ARCHTICK")
    
20.   (setvar "dimBLK1" "_ARCHTICK")
    
21.   (setvar "dimBLK2" "_ARCHTICK")
    
22.   (setvar "dimCEN" 0.00)
    
23.   (setvar "dimCLRD" 0)
    
24.   (setvar "dimCLRE" 0)
    
25.   (setvar "dimDEC" 0)
    
26.   (setvar "dimDLE" 100.00)
    
27.   (setvar "dimDLI" 0.00)
    
28.   (setvar "dimDSEP" .)
    
29.   (setvar "dimEXE" 100.00)
    
30.   (setvar "dimEXO" 250.00)
    
31.   (setvar "dimFRAC" 0)
    
32.   (setvar "dimGAP" 30.00)
    
33.   (setvar "dimJUST" 0)
    
34.   (setvar "dimLDRBLK" "")
    
35.   (setvar "dimLFAC" 1.00)
    
36.   (setvar "dimLIM" 0)
    
37.   (setvar "dimLUNIT" 2)
    
38.   (setvar "dimLWD" -2)
    
39.   (setvar "dimLWE" -2)
    
40.   (setvar "dimPOST" "")
    
41.   (setvar "dimRND" 0.00)
    
42.   (setvar "dimSAH" 0)
    
43.   (setvar "dimSCALE" 1.00)
    
44.   (setvar "dimSD1" 0)
    
45.   (setvar "dimSD2" 0)
    
46.   (setvar "dimSE1" 0)
    
47.   (setvar "dimSE2" 0)
    
48.   (setvar "dimSOXD" 0)
    
49.   (setvar "dimTAD" 1)
    
50.   (setvar "dimTDEC" 0)
    
51.   (setvar "dimTFAC" 1.00)
    
52.   (setvar "dimTIH" 0)
    
53.   (setvar "dimTIX" 1)
    
54.   (setvar "dimTM" 0.00)
    
55.   (setvar "dimTMOVE" 2)
    
56.   (setvar "dimTOFL" 1)
    
57.   (setvar "dimTOH" 0)
    
58.   (setvar "dimTOL" 0)
    
59.   (setvar "dimTOLJ" 1)
    
60.   (setvar "dimTP" 0.00)
    
61.   (setvar "dimTSZ" 0.00)
    
62.   (setvar "dimTVP" 0.00)
    
63.   (setvar "dimTXSTY" "TSSD_dimension")
    
64.   (setvar "dimTXT" 350.00)
    
65.   (setvar "dimTZIN" 0)
    
66.   (setvar "dimUPT" 0)
    
67.   (setvar "dimZIN" 0)
    
68. )
    

(defun func3()<br />   (setvar "dimASO" 0)<br />   (setvar "dimSTYLE" "TSSD_100_100")<br />   (setvar "dimADEC" 0)<br />   (setvar "dimALT" 0)<br />   (setvar "dimALTD" 2)<br />   (setvar "dimALTF" 25.4)<br />   (setvar "dimALTRND" 0.0)<br />   (setvar "dimALTTD" 2)<br />   (setvar "dimALTTZ" 0)<br />   (setvar "dimALTU" 2)<br />   (setvar "dimALTZ" 0)<br />   (setvar "dimAPOST" "")<br />   (setvar "dimASZ" 100.0)<br />   (setvar "dimATFIT" 3)<br />   (setvar "dimAUNIT" 0)<br />   (setvar "dimAZIN" 0)<br />   (setvar "dimBLK" "_ARCHTICK")<br />   (setvar "dimBLK1" "_ARCHTICK")<br />   (setvar "dimBLK2" "_ARCHTICK")<br />   (setvar "dimCEN" 0.00)<br />   (setvar "dimCLRD" 0)<br />   (setvar "dimCLRE" 0)<br />   (setvar "dimDEC" 0)<br />   (setvar "dimDLE" 100.00)<br />   (setvar "dimDLI" 0.00)<br />   (setvar "dimDSEP" .)<br />   (setvar "dimEXE" 100.00)<br />   (setvar "dimEXO" 250.00)<br />   (setvar "dimFRAC" 0)<br />   (setvar "dimGAP" 30.00)<br />   (setvar "dimJUST" 0)<br />   (setvar "dimLDRBLK" "")<br />   (setvar "dimLFAC" 1.00)<br />   (setvar "dimLIM" 0)<br />   (setvar "dimLUNIT" 2)<br />   (setvar "dimLWD" -2)<br />   (setvar "dimLWE" -2)<br />   (setvar "dimPOST" "")<br />   (setvar "dimRND" 0.00)<br />   (setvar "dimSAH" 0)<br />   (setvar "dimSCALE" 1.00)<br />   (setvar "dimSD1" 0)<br />   (setvar "dimSD2" 0)<br />   (setvar "dimSE1" 0)<br />   (setvar "dimSE2" 0)<br />   (setvar "dimSOXD" 0)<br />   (setvar "dimTAD" 1)<br />   (setvar "dimTDEC" 0)<br />   (setvar "dimTFAC" 1.00)<br />   (setvar "dimTIH" 0)<br />   (setvar "dimTIX" 1)<br />   (setvar "dimTM" 0.00)<br />   (setvar "dimTMOVE" 2)<br />   (setvar "dimTOFL" 1)<br />   (setvar "dimTOH" 0)<br />   (setvar "dimTOL" 0)<br />   (setvar "dimTOLJ" 1)<br />   (setvar "dimTP" 0.00)<br />   (setvar "dimTSZ" 0.00)<br />   (setvar "dimTVP" 0.00)<br />   (setvar "dimTXSTY" "TSSD_dimension")<br />   (setvar "dimTXT" 350.00)<br />   (setvar "dimTZIN" 0)<br />   (setvar "dimUPT" 0)<br />   (setvar "dimZIN" 0)<br /> )<br />

bingshuier

ZZXXQQ 发表于 2014-11-21 08:09

按照你说的这个改了，但是输入命令就直接退出了，没有提示是未知命令，C:\Documents and Settings\Administrator\桌面\11111111

xyp1964

bingshuier

bingshuier 发表于 2014-11-21 13:15
按照你说的这个改了，但是输入命令就直接退出了，没有提示是未知命令，

这是这种情况哈  不知道哪里有问题呢