[求助]：各位大哥帮帮忙！看看这个程序应该如何做？关于外部参照的

lyousme

各位大哥，小弟刚学vba编程，想做这样的一个程序，应该如何做？
将外部的一个程序作为外部参照加入到当前图纸中，同时在图纸插入的位置进行UCS登录
输入过程如下：
①外部参照文件名的输入
②插入原点的输入
③插入X坐标轴上的点的输入
④插入Y坐标轴上的点的输入
程序进行的操作
1.在插入位置上进行UCS设定
2.在设定的ucs的XY平面上插入dwg外部参照

下面是我写的一些程序
这段程序用来设定ucs坐标，可是每回都一样，高手们快来看看到底出了什么问题？

1. 
   
2.             Set oPoint = ThisDrawing.Utility.GetPoint(, "原点：")
   
3.             If Err Then
   
4.                 Exit Do
   
5.             End If
   
6.         
   
7.             Set xPoint = ThisDrawing.Utility.GetPoint(, "X坐标轴上的点：")
   
8.             If Err Then
   
9.                 Exit Do
   
10.             End If
    
11.         
    
12.             Set ypoint = ThisDrawing.Utility.GetPoint(, "Y坐标轴上的点：")
    
13.             If Err Then
    
14.                 Exit Do
    
15.             End If
    
16.             
    
17.             Set xAxisVector = Library.CreateVector(xPoint.x, xPoint.y, xPoint.z, oPoint.x, oPoint.y, oPoint.z)
    
18.             Set yAxisVector = Library.CreateVector(ypoint.x, ypoint.y, ypoint.z, oPoint.x, oPoint.y, oPoint.z)
    
19.             Set ucsObj = ThisDrawing.UserCoordinateSystems.Add(oPoint, xAxisVector, yAxisVector,"TEST_NAME")
    
20.             ThisDrawing.ActiveUCS = ucsObj
    
21.             ThisDrawing.ActiveViewport.UCSIconOn = True
    
22.             ThisDrawing.ActiveViewport.UCSIconAtOrigin = True
    

复制代码

这段程序是帮助文件上的一段程序,为什么我用来插入的外部参照看不见？是不是我忽略了什么

2. 
   
3. Private Sub AddXRef_Example()
   
4. 
   
5. ' This example adds an external reference using the MAP.DWG file
   
6. 
   
7. ' found in the Samples folder. You may need to change the path and
   
8. 
   
9. ' filename for your system.
   
10. 
    
11.      
    
12. 
    
13.      Dim insPt As IntelliCAD.Point
    
14. 
    
15.      Dim insertedXRef As IntelliCAD.ExternalReference
    
16. 
    
17.      Dim msg As String, PathName As String, XrefName As String
    
18. 
    
19.      XrefName = InputBox("Type an XRef name")
    
20. 
    
21.      Set insPt = Library.CreatePoint(1, 1, 0)
    
22. 
    
23.      PathName = "c:\program files\ProgeSOFT IntelliCAD\Samples\map.dwg"
    
24. 
    
25.      ' Add the external reference to the drawing
    
26. 
    
27.      Set insertedXRef = ThisDocument.ModelSpace.AttachExternalReference(PathName, XrefName, insPt, 1, 1, 1, 0, False)
    
28. 
    
29.      MsgBox "The external reference '" & XrefName & "' is attached."
    
30. 
    
31. End Sub
    

<br /> Private Sub AddXRef_Example()<br /> <br /> ' This example adds an external reference using the MAP.DWG file<br /> <br /> ' found in the Samples folder. You may need to change the path and <br /> <br /> ' filename for your system.<br /> <br />      <br /> <br />      Dim insPt As IntelliCAD.Point<br /> <br />      Dim insertedXRef As IntelliCAD.ExternalReference<br /> <br />      Dim msg As String, PathName As String, XrefName As String<br /> <br />      XrefName = InputBox("Type an XRef name")<br /> <br />      Set insPt = Library.CreatePoint(1, 1, 0)<br /> <br />      PathName = "c:\program files\ProgeSOFT IntelliCAD\Samples\map.dwg"<br /> <br />      ' Add the external reference to the drawing<br /> <br />      Set insertedXRef = ThisDocument.ModelSpace.AttachExternalReference(PathName, XrefName, insPt, 1, 1, 1, 0, False)<br /> <br />      MsgBox "The external reference '" & XrefName & "' is attached."<br /> <br /> End Sub<br />