请问用vba如何判断一个cad图形中的两个实体完全重合？

chman

2.     For Each i In xian
   
3.         For Each j In xian1
   
4.             pderrort = False
   
5.             pderrorw = False
   
6.             pdtt = False
   
7.             pdtw = False
   
8.             pdwt = False
   
9.             pdww = False
   
10.             'i.Handle <> j.Handle&Aring;&Aring;&sup3;&yacute;×&Ocirc;&Eacute;í&Aring;&ETH;&para;&Iuml;&pound;&iexcl;&pound;&iexcl;&pound;&iexcl;&pound;&iexcl;     ×&cent;&Ograve;&acirc;,&acute;&Euml;&acute;&brvbar;&Aring;&ETH;&para;&Iuml;,±&Oslash;&ETH;&euml;&Egrave;&Atilde;I&Ograve;&raquo;&cedil;&ouml;&cedil;&ouml;&micro;&Auml;&Aring;&ETH;&para;&Iuml;,&sup2;&raquo;&Auml;&Uuml;&Ograve;&Aring;&Acirc;&copy;.
    
11.             If i.Handle <> j.Handle And Abs(i.StartPoint(0) - j.StartPoint(0)) < 0.0001 And Abs(i.StartPoint(1) - j.StartPoint(1)) < 0.0001 Then
    
12.                 pdtt = True
    
13.             End If
    
14.             If i.Handle <> j.Handle And Abs(i.StartPoint(0) - j.EndPoint(0)) < 0.0001 And Abs(i.StartPoint(1) - j.EndPoint(1)) < 0.0001 Then
    
15.                 pdtw = True
    
16.             End If
    
17.             If i.Handle <> j.Handle And Abs(i.EndPoint(0) - j.StartPoint(0)) < 0.0001 And Abs(i.EndPoint(1) - j.StartPoint(1)) < 0.0001 Then
    
18.                 pdwt = True
    
19.             End If
    
20.             If i.Handle <> j.Handle And Abs(i.EndPoint(0) - j.EndPoint(0)) < 0.0001 And Abs(i.EndPoint(1) - j.EndPoint(1)) < 0.0001 Then
    
21.                 pdww = True
    
22.             End If
    
23.             '&Ouml;&raquo;&Ograve;&ordf;·&cent;&Iuml;&Ouml;&Oacute;&ETH;&sup1;&sup2;&micro;&atilde;&pound;&not;&frac34;&Iacute;&sup2;&raquo;&Egrave;&Iuml;&Icirc;&ordf;&micro;&atilde;&Aacute;&not;&frac12;&Oacute;&Oacute;&ETH;&Icirc;&Ecirc;&Igrave;&acirc;&iexcl;&pound;
    
24.             If pdtt = True Or pdtw = True Then
    
25.                 pderrort = True
    
26.             '&Iuml;&Acirc;&Atilde;&aelig;&Otilde;&acirc;&cedil;&ouml;&Aring;&ETH;&para;&Iuml;&ordm;&Uuml;&Ouml;&Oslash;&Ograve;&ordf;,&Iuml;&Egrave;&Aring;&ETH;&para;&Iuml;&Ecirc;&Ccedil;·&ntilde;&Oacute;&ETH;&Iacute;·&Icirc;&sup2;&Iuml;à&frac12;&Oacute;,&Egrave;&ccedil;&sup1;&ucirc;&Oacute;&ETH;,&Ocirc;ò&Euml;&micro;&Atilde;÷&Iuml;&szlig;&Ograve;&Ntilde;&frac34;&shy;&Iacute;·&Icirc;&sup2;&para;&frac14;&Icirc;&THORN;&para;&Iuml;&micro;&atilde;!!!!!!!!
    
27.                 If i.Thickness <> 2 And i.Thickness <> 3 Then
    
28.                     i.Thickness = 1
    
29.                 Else
    
30.                     i.Thickness = 3
    
31.                 End If
    
32.             End If
    
33.             If pdwt = True Or pdww = True Then
    
34.                 pderrorw = True
    
35.                 If i.Thickness <> 1 And i.Thickness <> 3 Then
    
36.                     i.Thickness = 2
    
37.                 Else
    
38.                     i.Thickness = 3
    
39.                 End If
    
40.             End If
    
41.         Next j
    
42. ''        jingdutiao = jingdutiao + 1
    
43. ''        ThisDrawing.Utility.Prompt jingdutiao & "/" & tongji
    
44.         '&AElig;&eth;&micro;&atilde;&Aring;&ETH;&para;&Iuml;&Icirc;&ordf;FALSE &pound;&not;&Euml;&micro;&Atilde;÷&AElig;&eth;&micro;&atilde;&Ecirc;&Ccedil;&sup1;&Acirc;&Aacute;&cent;&micro;&atilde;&iexcl;&pound;&Ograve;&Ocirc;&AElig;&eth;&micro;&atilde;&Icirc;&ordf;°&euml;&frac34;&para;&pound;&not;&frac14;&Oacute;&cedil;&ouml;×&cent;&frac14;&Ccedil;&iexcl;&pound;&iexcl;&pound;&iexcl;&pound;&iexcl;&pound;&Oacute;&Atilde;&Ecirc;&sup2;&Atilde;&acute;×&cent;&frac14;&Ccedil;&ordm;&Atilde;&Auml;&Oslash;&iexcl;&pound;°&yen;&iexcl;&pound;&iexcl;&pound;&para;à&micro;&atilde;&ordm;&Uuml;&frac12;ü&Ecirc;±&pound;&not;&ordm;&Uuml;&Auml;&Ntilde;×&frac14;&Egrave;·&sup2;é&iquest;&acute;&Auml;&Auml;&cedil;&ouml;&micro;&atilde;&Oacute;&ETH;&Icirc;&Ecirc;&Igrave;&acirc;
    
45.         
    
46.     Next i
    
47.    
    
48. ''''''''''''''''''''''''''''''''''''''''''''''×&cent;&Ograve;&acirc;,&Eacute;&Iuml;&Atilde;&aelig;&Ograve;&Ntilde;&frac34;&shy;&Aring;&ETH;&para;&Iuml;&Aacute;&Euml;&Euml;ù&Oacute;&ETH;&para;&Euml;&micro;&atilde;&Oacute;&euml;&para;&Iuml;&micro;&atilde;&Ouml;&reg;&frac14;&auml;&Ecirc;&Ccedil;·&ntilde;&sup1;&sup2;&micro;&atilde;,,,,
    
49. '''''''''''''''''''''''''''''''''''''''''''''&Igrave;&Oslash;±&eth;&Ecirc;&Ccedil;&frac12;&laquo;&Oacute;&ETH;&Aacute;&not;&frac12;&Oacute;&Iuml;&szlig;&Iacute;¨&sup1;&yacute;THickness&Aring;&ETH;&para;&Iuml;&sup3;&ouml;&Agrave;&acute;&Aacute;&Euml;
    
50. 
    
51. '''''''''''''''''''''''''''''''''''' 3        &acute;ú±í&Iacute;·&Icirc;&sup2;&para;&frac14;&Oacute;&ETH;&sup1;&sup2;&micro;&atilde;
    
52. '''''''''''''''''''''''''''''''''''  2        &acute;ú±í&Iuml;&szlig;&para;&Icirc;&Auml;&copy;&para;&Euml;&Oacute;&ETH;&sup1;&sup2;&micro;&atilde;
    
53. '''''''''''''''''''''''''''''''''''  1        &acute;ú±í&Iuml;&szlig;&para;&Icirc;&AElig;&eth;&micro;&atilde;&Oacute;&ETH;&sup1;&sup2;&micro;&atilde;
    
54. '''''''''''''''''''''''''''&Euml;&frac14;&Acirc;·:thinckness = 3&micro;&Auml;&sup2;&raquo;&Ocirc;&Ugrave;&Aring;&ETH;&para;&Iuml;,,,,,,,
    
55.     Dim intPoints  As Variant
    
56.     Dim jdi As Integer, jdj As Integer
    
57.     For Each i In xian
    
58.         pderrort = False
    
59.         pderrorw = False
    
60.         pdtt = False
    
61.         pdww = False
    
62. 
    
63.         If i.Thickness <> 3 Then
    
64. 
    
65.             For Each j In xian1
    
66.             jdi = 0
    
67.             jdj = 0
    
68.                 intPoints = i.IntersectWith(j, acExtendNone)          '&Ocirc;&Uacute;&Aacute;&frac12;&cedil;&ouml;&para;&Ocirc;&Iuml;ó&frac34;ù&sup2;&raquo;&Ntilde;&Oacute;&Eacute;ì&micro;&Auml;&Ccedil;é&iquest;&ouml;&Iuml;&Acirc;,&Ccedil;ó&frac12;&raquo;&micro;&atilde;.
    
69.                 'VarType(intPoints) <> vbEmpty         &Egrave;&ccedil;&sup1;&ucirc;&Atilde;&raquo;&Oacute;&ETH;&frac12;&raquo;&micro;&atilde;,·&micro;&raquo;&Oslash;&Ouml;&micro;&sup2;&raquo;&Ecirc;&Ccedil;&Icirc;&ordf;&Aacute;&atilde;,&para;&oslash;&Ecirc;&Ccedil;&Icirc;&ordf;&iquest;&Otilde;!!!!!!
    
70.                 If VarType(intPoints) <> vbEmpty Then
    
71.                 '&frac12;&raquo;&micro;&atilde;&frac34;&Oacute;&Egrave;&raquo;&iquest;&Eacute;&Auml;&Uuml;&Oacute;&ETH;&Egrave;&ocirc;&cedil;&Eacute;&cedil;&ouml;,&Euml;ù&Ograve;&Ocirc;,&Ograve;&ordf;×÷&Ntilde;&shy;&raquo;·.....                jdi&frac12;&raquo;&micro;&atilde;&cedil;&ouml;&Ecirc;&yacute;            jdj ×&oslash;±êxyz
    
72.                     For jdi = LBound(intPoints) To UBound(intPoints)
    
73.                         If i.Thickness = 1 And Abs(intPoints(jdj) - i.EndPoint(0)) < 0.0001 And Abs(intPoints(jdj + 1) - i.EndPoint(1)) < 0.0001 Then
    
74.                             pdww = True
    
75.                             i.Thickness = 3
    
76.                         End If
    
77.                         If i.Thickness = 2 And Abs(intPoints(jdj) - i.StartPoint(0)) < 0.0001 And Abs(intPoints(jdj + 1) - i.StartPoint(1)) < 0.0001 Then
    
78.                             pdtt = True
    
79.                             i.Thickness = 3
    
80.                         End If
    
81.                         '&acute;&brvbar;&Agrave;í&Ecirc;&frac14;&micro;&atilde;&ordm;&Iacute;&Auml;&copy;&micro;&atilde;,&Otilde;&acirc;&Agrave;&iuml;&raquo;&sup1;&Ograve;&ordf;&frac12;&oslash;&ETH;&ETH;&Aring;&ETH;&para;&Iuml;.....×&cent;&Ograve;&acirc;&Aring;&ETH;&para;&Iuml;&ordm;ó&micro;&Auml;·&frac12;&Iuml;ò&para;&Ocirc;&sup2;&raquo;&para;&Ocirc;!!!
    
82.                         If i.Thickness = 0 And Abs(intPoints(jdj) - i.StartPoint(0)) < 0.0001 And Abs(intPoints(jdj + 1) - i.StartPoint(1)) < 0.0001 Then
    
83.                             If i.Thickness <> 2 And i.Thickness <> 3 Then
    
84.                                 i.Thickness = 1
    
85.                             Else
    
86.                                 i.Thickness = 3
    
87.                             End If
    
88.                         End If
    
89.                         If i.Thickness = 0 And Abs(intPoints(jdj) - i.EndPoint(0)) < 0.0001 And Abs(intPoints(jdj + 1) - i.EndPoint(1)) < 0.0001 Then
    
90.                             If i.Thickness <> 1 And i.Thickness <> 3 Then
    
91.                                 i.Thickness = 2
    
92.                             Else
    
93.                                 i.Thickness = 3
    
94.                             End If
    
95.                         End If
    
96.                         jdi = jdi + 2
    
97.                         jdj = jdj + 3
    
98.                     Next
    
99.                 End If
    
100.             Next j
     
101. 
     
102.         End If
     
103.     Next i
     
104.    
     
105.     '&frac12;&acirc;&frac34;&ouml;
     
106. '    MsgBox tongji
     
107.     '&Ocirc;°&micro;&Auml;°&euml;&frac34;&para;&acute;ó&ETH;&iexcl;&Iacute;&sup3;&Ograve;&raquo;&Eacute;è&Ouml;&Atilde;&iexcl;&pound;&acute;&Euml;&acute;&brvbar;&Icirc;&ordf;circlebig
     
108.    
     
109.     circlebig = 1500
     
110.     '&Iuml;&Ocirc;&Ecirc;&frac34;×&icirc;&Ouml;&Otilde;&frac12;á&sup1;&ucirc;....
     
111.     For Each i In xian
     
112.         If i.Thickness = 2 Then
     
113.             Set MyCircle = ThisDrawing.ModelSpace.AddCircle(i.StartPoint, circlebig)
     
114.         ElseIf i.Thickness = 1 Then
     
115.             Set MyCircle = ThisDrawing.ModelSpace.AddCircle(i.EndPoint, circlebig)
     
116.         ElseIf i.Thickness = 0 Then
     
117.             Set MyCircle = ThisDrawing.ModelSpace.AddCircle(i.EndPoint, circlebig)
     
118.             Set MyCircle = ThisDrawing.ModelSpace.AddCircle(i.StartPoint, circlebig)
     
119. '        Else
     
120. '            i.Layer = "11"
     
121. '            i.Update
     
122.         End If
     
123. 
     
124.     Next i
     
125.     For Each i In xian
     
126.         '&Ouml;&Oslash;&Ouml;&Atilde;&Icirc;&ordf;&sup3;&otilde;&Ecirc;&frac14;&Ouml;&micro;.
     
127. '        I.Thickness = 0
     
128.         i.Thickness = 0
     
129.     Next i

    For Each i In xian<br />         For Each j In xian1<br />             pderrort = False<br />             pderrorw = False<br />             pdtt = False<br />             pdtw = False<br />             pdwt = False<br />             pdww = False<br />             'i.Handle <> j.Handle&Aring;&Aring;&sup3;&yacute;×&Ocirc;&Eacute;í&Aring;&ETH;&para;&Iuml;&pound;&iexcl;&pound;&iexcl;&pound;&iexcl;&pound;&iexcl;     ×&cent;&Ograve;&acirc;,&acute;&Euml;&acute;&brvbar;&Aring;&ETH;&para;&Iuml;,±&Oslash;&ETH;&euml;&Egrave;&Atilde;I&Ograve;&raquo;&cedil;&ouml;&cedil;&ouml;&micro;&Auml;&Aring;&ETH;&para;&Iuml;,&sup2;&raquo;&Auml;&Uuml;&Ograve;&Aring;&Acirc;&copy;.<br />             If i.Handle <> j.Handle And Abs(i.StartPoint(0) - j.StartPoint(0)) < 0.0001 And Abs(i.StartPoint(1) - j.StartPoint(1)) < 0.0001 Then<br />                 pdtt = True<br />             End If<br />             If i.Handle <> j.Handle And Abs(i.StartPoint(0) - j.EndPoint(0)) < 0.0001 And Abs(i.StartPoint(1) - j.EndPoint(1)) < 0.0001 Then<br />                 pdtw = True<br />             End If<br />             If i.Handle <> j.Handle And Abs(i.EndPoint(0) - j.StartPoint(0)) < 0.0001 And Abs(i.EndPoint(1) - j.StartPoint(1)) < 0.0001 Then<br />                 pdwt = True<br />             End If<br />             If i.Handle <> j.Handle And Abs(i.EndPoint(0) - j.EndPoint(0)) < 0.0001 And Abs(i.EndPoint(1) - j.EndPoint(1)) < 0.0001 Then<br />                 pdww = True<br />             End If<br />             '&Ouml;&raquo;&Ograve;&ordf;·&cent;&Iuml;&Ouml;&Oacute;&ETH;&sup1;&sup2;&micro;&atilde;&pound;&not;&frac34;&Iacute;&sup2;&raquo;&Egrave;&Iuml;&Icirc;&ordf;&micro;&atilde;&Aacute;&not;&frac12;&Oacute;&Oacute;&ETH;&Icirc;&Ecirc;&Igrave;&acirc;&iexcl;&pound;<br />             If pdtt = True Or pdtw = True Then<br />                 pderrort = True<br />             '&Iuml;&Acirc;&Atilde;&aelig;&Otilde;&acirc;&cedil;&ouml;&Aring;&ETH;&para;&Iuml;&ordm;&Uuml;&Ouml;&Oslash;&Ograve;&ordf;,&Iuml;&Egrave;&Aring;&ETH;&para;&Iuml;&Ecirc;&Ccedil;·&ntilde;&Oacute;&ETH;&Iacute;·&Icirc;&sup2;&Iuml;à&frac12;&Oacute;,&Egrave;&ccedil;&sup1;&ucirc;&Oacute;&ETH;,&Ocirc;ò&Euml;&micro;&Atilde;÷&Iuml;&szlig;&Ograve;&Ntilde;&frac34;&shy;&Iacute;·&Icirc;&sup2;&para;&frac14;&Icirc;&THORN;&para;&Iuml;&micro;&atilde;!!!!!!!!<br />                 If i.Thickness <> 2 And i.Thickness <> 3 Then<br />                     i.Thickness = 1<br />                 Else<br />                     i.Thickness = 3<br />                 End If<br />             End If<br />             If pdwt = True Or pdww = True Then<br />                 pderrorw = True<br />                 If i.Thickness <> 1 And i.Thickness <> 3 Then<br />                     i.Thickness = 2<br />                 Else<br />                     i.Thickness = 3<br />                 End If<br />             End If<br />         Next j<br /> ''        jingdutiao = jingdutiao + 1<br /> ''        ThisDrawing.Utility.Prompt jingdutiao & "/" & tongji<br />         '&AElig;&eth;&micro;&atilde;&Aring;&ETH;&para;&Iuml;&Icirc;&ordf;FALSE &pound;&not;&Euml;&micro;&Atilde;÷&AElig;&eth;&micro;&atilde;&Ecirc;&Ccedil;&sup1;&Acirc;&Aacute;&cent;&micro;&atilde;&iexcl;&pound;&Ograve;&Ocirc;&AElig;&eth;&micro;&atilde;&Icirc;&ordf;°&euml;&frac34;&para;&pound;&not;&frac14;&Oacute;&cedil;&ouml;×&cent;&frac14;&Ccedil;&iexcl;&pound;&iexcl;&pound;&iexcl;&pound;&iexcl;&pound;&Oacute;&Atilde;&Ecirc;&sup2;&Atilde;&acute;×&cent;&frac14;&Ccedil;&ordm;&Atilde;&Auml;&Oslash;&iexcl;&pound;°&yen;&iexcl;&pound;&iexcl;&pound;&para;à&micro;&atilde;&ordm;&Uuml;&frac12;ü&Ecirc;±&pound;&not;&ordm;&Uuml;&Auml;&Ntilde;×&frac14;&Egrave;·&sup2;é&iquest;&acute;&Auml;&Auml;&cedil;&ouml;&micro;&atilde;&Oacute;&ETH;&Icirc;&Ecirc;&Igrave;&acirc;<br />         <br />     Next i<br />     <br /> ''''''''''''''''''''''''''''''''''''''''''''''×&cent;&Ograve;&acirc;,&Eacute;&Iuml;&Atilde;&aelig;&Ograve;&Ntilde;&frac34;&shy;&Aring;&ETH;&para;&Iuml;&Aacute;&Euml;&Euml;ù&Oacute;&ETH;&para;&Euml;&micro;&atilde;&Oacute;&euml;&para;&Iuml;&micro;&atilde;&Ouml;&reg;&frac14;&auml;&Ecirc;&Ccedil;·&ntilde;&sup1;&sup2;&micro;&atilde;,,,,<br /> '''''''''''''''''''''''''''''''''''''''''''''&Igrave;&Oslash;±&eth;&Ecirc;&Ccedil;&frac12;&laquo;&Oacute;&ETH;&Aacute;&not;&frac12;&Oacute;&Iuml;&szlig;&Iacute;¨&sup1;&yacute;THickness&Aring;&ETH;&para;&Iuml;&sup3;&ouml;&Agrave;&acute;&Aacute;&Euml;<br /> <br /> '''''''''''''''''''''''''''''''''''' 3        &acute;ú±í&Iacute;·&Icirc;&sup2;&para;&frac14;&Oacute;&ETH;&sup1;&sup2;&micro;&atilde;<br /> '''''''''''''''''''''''''''''''''''  2        &acute;ú±í&Iuml;&szlig;&para;&Icirc;&Auml;&copy;&para;&Euml;&Oacute;&ETH;&sup1;&sup2;&micro;&atilde;<br /> '''''''''''''''''''''''''''''''''''  1        &acute;ú±í&Iuml;&szlig;&para;&Icirc;&AElig;&eth;&micro;&atilde;&Oacute;&ETH;&sup1;&sup2;&micro;&atilde;<br /> '''''''''''''''''''''''''''&Euml;&frac14;&Acirc;·:thinckness = 3&micro;&Auml;&sup2;&raquo;&Ocirc;&Ugrave;&Aring;&ETH;&para;&Iuml;,,,,,,,<br />     Dim intPoints  As Variant<br />     Dim jdi As Integer, jdj As Integer<br />     For Each i In xian<br />         pderrort = False<br />         pderrorw = False<br />         pdtt = False<br />         pdww = False<br /> <br />         If i.Thickness <> 3 Then<br /> <br />             For Each j In xian1<br />             jdi = 0<br />             jdj = 0<br />                 intPoints = i.IntersectWith(j, acExtendNone)          '&Ocirc;&Uacute;&Aacute;&frac12;&cedil;&ouml;&para;&Ocirc;&Iuml;ó&frac34;ù&sup2;&raquo;&Ntilde;&Oacute;&Eacute;ì&micro;&Auml;&Ccedil;é&iquest;&ouml;&Iuml;&Acirc;,&Ccedil;ó&frac12;&raquo;&micro;&atilde;.<br />                 'VarType(intPoints) <> vbEmpty         &Egrave;&ccedil;&sup1;&ucirc;&Atilde;&raquo;&Oacute;&ETH;&frac12;&raquo;&micro;&atilde;,·&micro;&raquo;&Oslash;&Ouml;&micro;&sup2;&raquo;&Ecirc;&Ccedil;&Icirc;&ordf;&Aacute;&atilde;,&para;&oslash;&Ecirc;&Ccedil;&Icirc;&ordf;&iquest;&Otilde;!!!!!!<br />                 If VarType(intPoints) <> vbEmpty Then<br />                 '&frac12;&raquo;&micro;&atilde;&frac34;&Oacute;&Egrave;&raquo;&iquest;&Eacute;&Auml;&Uuml;&Oacute;&ETH;&Egrave;&ocirc;&cedil;&Eacute;&cedil;&ouml;,&Euml;ù&Ograve;&Ocirc;,&Ograve;&ordf;×÷&Ntilde;&shy;&raquo;·.....                jdi&frac12;&raquo;&micro;&atilde;&cedil;&ouml;&Ecirc;&yacute;            jdj ×&oslash;±êxyz<br />                     For jdi = LBound(intPoints) To UBound(intPoints)<br />                         If i.Thickness = 1 And Abs(intPoints(jdj) - i.EndPoint(0)) < 0.0001 And Abs(intPoints(jdj + 1) - i.EndPoint(1)) < 0.0001 Then<br />                             pdww = True<br />                             i.Thickness = 3<br />                         End If<br />                         If i.Thickness = 2 And Abs(intPoints(jdj) - i.StartPoint(0)) < 0.0001 And Abs(intPoints(jdj + 1) - i.StartPoint(1)) < 0.0001 Then<br />                             pdtt = True<br />                             i.Thickness = 3<br />                         End If<br />                         '&acute;&brvbar;&Agrave;í&Ecirc;&frac14;&micro;&atilde;&ordm;&Iacute;&Auml;&copy;&micro;&atilde;,&Otilde;&acirc;&Agrave;&iuml;&raquo;&sup1;&Ograve;&ordf;&frac12;&oslash;&ETH;&ETH;&Aring;&ETH;&para;&Iuml;.....×&cent;&Ograve;&acirc;&Aring;&ETH;&para;&Iuml;&ordm;ó&micro;&Auml;·&frac12;&Iuml;ò&para;&Ocirc;&sup2;&raquo;&para;&Ocirc;!!!<br />                         If i.Thickness = 0 And Abs(intPoints(jdj) - i.StartPoint(0)) < 0.0001 And Abs(intPoints(jdj + 1) - i.StartPoint(1)) < 0.0001 Then<br />                             If i.Thickness <> 2 And i.Thickness <> 3 Then<br />                                 i.Thickness = 1<br />                             Else<br />                                 i.Thickness = 3<br />                             End If<br />                         End If<br />                         If i.Thickness = 0 And Abs(intPoints(jdj) - i.EndPoint(0)) < 0.0001 And Abs(intPoints(jdj + 1) - i.EndPoint(1)) < 0.0001 Then<br />                             If i.Thickness <> 1 And i.Thickness <> 3 Then<br />                                 i.Thickness = 2<br />                             Else<br />                                 i.Thickness = 3<br />                             End If<br />                         End If<br />                         jdi = jdi + 2<br />                         jdj = jdj + 3<br />                     Next<br />                 End If<br />             Next j<br /> <br />         End If<br />     Next i<br />     <br />     '&frac12;&acirc;&frac34;&ouml;<br /> '    MsgBox tongji<br />     '&Ocirc;°&micro;&Auml;°&euml;&frac34;&para;&acute;ó&ETH;&iexcl;&Iacute;&sup3;&Ograve;&raquo;&Eacute;è&Ouml;&Atilde;&iexcl;&pound;&acute;&Euml;&acute;&brvbar;&Icirc;&ordf;circlebig<br />     <br />     circlebig = 1500<br />     '&Iuml;&Ocirc;&Ecirc;&frac34;×&icirc;&Ouml;&Otilde;&frac12;á&sup1;&ucirc;....<br />     For Each i In xian<br />         If i.Thickness = 2 Then<br />             Set MyCircle = ThisDrawing.ModelSpace.AddCircle(i.StartPoint, circlebig)<br />         ElseIf i.Thickness = 1 Then<br />             Set MyCircle = ThisDrawing.ModelSpace.AddCircle(i.EndPoint, circlebig)<br />         ElseIf i.Thickness = 0 Then<br />             Set MyCircle = ThisDrawing.ModelSpace.AddCircle(i.EndPoint, circlebig)<br />             Set MyCircle = ThisDrawing.ModelSpace.AddCircle(i.StartPoint, circlebig)<br /> '        Else<br /> '            i.Layer = "11"<br /> '            i.Update<br />         End If<br /> <br />     Next i<br />     For Each i In xian<br />         '&Ouml;&Oslash;&Ouml;&Atilde;&Icirc;&ordf;&sup3;&otilde;&Ecirc;&frac14;&Ouml;&micro;.<br /> '        I.Thickness = 0<br />         i.Thickness = 0<br />     Next i