[VBA函数]：如何在ucs中用vba画直线？

ibluesky

我画的直线都是在wcs中
怎么才能在我定义的某个ucs中画呢？

lijiao

最初由 ibluesky 发布
[B]我画的直线都是在wcs中
怎么才能在我定义的某个ucs中画呢？ [/B]

这是坐标转换的帮助信息

2. 
   
3.   [FONT=courier new]
   
4. RetVal = object.TranslateCoordinates(OriginalPoint, From, To, Disp[, OCSNormal])
   
5. 
   
6. Object
   
7. 
   
8. Utility
   
9. The object or objects this method applies to.
   
10. 
    
11. OriginalPoint
    
12. 
    
13. Variant (three-element array of doubles); input-only
    
14. The 3D WCS coordinates specifying the original coordinates to be translated. This parameter can be treated as a point or a displacement vector depending on the value of Disp.
    
15. 
    
16. From
    
17. 
    
18. AcCoordinateSystem enum; input-only
    
19. The coordinate system from which the point originates.
    
20. 
    
21. acWorld
    
22. 
    
23. acUCS
    
24. 
    
25. acOCS
    
26. 
    
27. acDisplayDCS
    
28. 
    
29. acPaperSpaceDCS
    
30. 
    
31. To
    
32. 
    
33. AcCoordinateSystem enum; input-only
    
34. The coordinate system to which the point will be converted.
    
35. 
    
36. acWorld
    
37. 
    
38. acUCS
    
39. 
    
40. acOCS
    
41. 
    
42. acDisplayDCS
    
43. 
    
44. acPaperSpaceDCS
    
45. 
    
46. Disp
    
47. 
    
48. Integer; input-only
    
49. A displacement vector flag.
    
50. 
    
51. TRUE: OriginalPoint is treated as a displacement vector.
    
52. 
    
53. FALSE: OriginalPoint is treated as a point.
    
54. 
    
55. OCSNormal
    
56. 
    
57. Variant (three-element array of doubles); input-only;optional
    
58. The normal for the OCS.
    
59. 
    
60. RetVal
    
61. 
    
62. Variant (three-element array of doubles)
    
63. The translated 3D coordinate.
    
64. 
    
65. Remarks
    
66. 
    
67. You cannot directly translate a coordinate from one OCS to another OCS. To do this, first translate the coordinate from one OCS to an intermediary coordinate system such as the WCS. Then translate that coordinate into the second OCS.
    
68. 
    
69. To translate a point on a Polyline or LightWeightPolyline object from OCS to WCS:
    
70. 
    
71. 1. Get the X and Y coordinates of the OCS point from the Coordinate or Coordinates property.
    
72. 
    
73. 2. Get the Z coordinate of the OCS point from the Elevation property.
    
74. 
    
75. 3. Get the normal for the polyline from the Normal property.
    
76. 
    
77. 4. Call TranslateCoordinates using the X, Y, Z coordinates and the Normal.
    
78. 
    
79.   [/FONT]
    

<br />   [FONT=courier new]<br /> RetVal = object.TranslateCoordinates(OriginalPoint, From, To, Disp[, OCSNormal]) <br /> <br /> Object<br /> <br /> Utility<br /> The object or objects this method applies to. <br /> <br /> OriginalPoint<br /> <br /> Variant (three-element array of doubles); input-only<br /> The 3D WCS coordinates specifying the original coordinates to be translated. This parameter can be treated as a point or a displacement vector depending on the value of Disp. <br /> <br /> From<br /> <br /> AcCoordinateSystem enum; input-only<br /> The coordinate system from which the point originates. <br /> <br /> acWorld <br /> <br /> acUCS <br /> <br /> acOCS <br /> <br /> acDisplayDCS <br /> <br /> acPaperSpaceDCS <br /> <br /> To<br /> <br /> AcCoordinateSystem enum; input-only<br /> The coordinate system to which the point will be converted. <br /> <br /> acWorld <br /> <br /> acUCS <br /> <br /> acOCS <br /> <br /> acDisplayDCS <br /> <br /> acPaperSpaceDCS <br /> <br /> Disp<br /> <br /> Integer; input-only<br /> A displacement vector flag. <br /> <br /> TRUE: OriginalPoint is treated as a displacement vector. <br /> <br /> FALSE: OriginalPoint is treated as a point. <br /> <br /> OCSNormal<br /> <br /> Variant (three-element array of doubles); input-only;optional<br /> The normal for the OCS. <br /> <br /> RetVal<br /> <br /> Variant (three-element array of doubles)<br /> The translated 3D coordinate. <br /> <br /> Remarks <br /> <br /> You cannot directly translate a coordinate from one OCS to another OCS. To do this, first translate the coordinate from one OCS to an intermediary coordinate system such as the WCS. Then translate that coordinate into the second OCS. <br /> <br /> To translate a point on a Polyline or LightWeightPolyline object from OCS to WCS: <br /> <br /> 1. Get the X and Y coordinates of the OCS point from the Coordinate or Coordinates property. <br /> <br /> 2. Get the Z coordinate of the OCS point from the Elevation property. <br /> <br /> 3. Get the normal for the polyline from the Normal property. <br /> <br /> 4. Call TranslateCoordinates using the X, Y, Z coordinates and the Normal. <br /> <br />   [/FONT]<br />