[求助]用户坐标问题（不好意思，同样的问题问过一次）

sharksun

大家都用代码画过这样的图吧，不知道如何做能方便些。 如果用转换矩阵的话，那还不如现在世界坐标下话，画完之后全部选择或者形成块，再move到合适的位置。

sharksun

问题时这样的：


我要画一个平面的三视图，为了画图方便，需要定义3个用户坐标。有没有方便的方法呢？就像转到一个用户坐标中后，直接可以在里面画？

雪山飞狐_lzh

用transformby方法 或

Signature

RetVal = object.TranslateCoordinates(OriginalPoint, From, To, Disp[, OCSNormal])

Object

MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_utility_object.htm" target="_blank" >Utility
The object or objects this method applies to.

OriginalPoint

Variant (three-element array of doubles); input-only
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.

From

AcCoordinateSystem enum; input-only
The coordinate system from which the point originates.

acWorld

acUCS

acOCS

acDisplayDCS

acPaperSpaceDCS

To

AcCoordinateSystem enum; input-only
The coordinate system to which the point will be converted.

acWorld

acUCS

acOCS

acDisplayDCS

acPaperSpaceDCS

Disp

Integer; input-only
A displacement vector flag.

TRUE: OriginalPoint is treated as a displacement vector.

FALSE: OriginalPoint is treated as a point.

OCSNormal

Variant (three-element array of doubles); input-only;optional
The normal for the OCS.

RetVal

Variant (three-element array of doubles)
The translated 3D coordinate.

Remarks

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.

To translate a point on a MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_polyline_object.htm" target="_blank" >Polyline or MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_lightweightpolyline_object.htm" target="_blank" >LightWeightPolyline object from OCS to WCS:

1. Get the X and Y coordinates of the OCS point from the MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_coordinate.htm" target="_blank" >Coordinate or MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_coordinates.htm" target="_blank" >Coordinates property.

2. Get the Z coordinate of the OCS point from the MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_elevation.htm" target="_blank" >Elevation property.

3. Get the Normal for the polyline from the MSITStore:D:\Program%20Files\AutoCAD%202005\help\acadauto.chm::/idh_normal.htm" target="_blank" >Normal property.

4. Call TranslateCoordinates using the X, Y, Z coordinates and the Normal.

sharksun

谢谢飞狐兄弟。


我的意思是先转换到用户坐标，然后直接在里面作图。不是说先在世界坐标里把图做好，在转换到用户坐标里。如果这样的话，那还不如画好，再移动了。

雪山飞狐_lzh

转换到用户坐标，然后直接在里面作图，在VBA里是做不到的

sharksun

明白了。


多谢。