EDITING OBJECTS in Word

Generator QR Code in Word EDITING OBJECTS

'set plane of reflection to be the XY plane dblPlanePoint2(0) = 1# dblPlanePoint3(1) = 1# objDrawingObject.Mirror3D dblPlanePoint1, dblPlanePoint2, dblPlanePoint3 End Sub

Use the Move method to perform three-dimensional translations on drawing objects. This method has the following syntax: DrawingObject.Move Point1, Point2 Table 10-3 explains this method s parameters. Table 10-3. Move Method Parameters

A three-element array of doubles specifying the 3-D WCS coordinates of the translation vector s starting point. A three-element array of doubles specifying the 3-D WCS coordinates of the translation vector s ending point.

The following example shows how to implement this method. The user first picks a selection of objects to be moved and specifies the translation vector on the screen.

Public Sub MoveObjects() Dim varPoint1 As Variant Dim varPoint2 As Variant Dim objSelectionSet As AcadSelectionSet Dim objDrawingObject As AcadEntity 'choose a selection set name that you only use as temporary storage and 'ensure that it does not currently exist On Error Resume Next ThisDrawing.SelectionSets("TempSSet").Delete Set objSelectionSet = ThisDrawing.SelectionSets.Add("TempSSet") 'ask user to pick entities on the screen objSelectionSet.SelectOnScreen varPoint1 = ThisDrawing.Utility.GetPoint(, vbCrLf _ & "Base point of displacement: ") varPoint2 = ThisDrawing.Utility.GetPoint(varPoint1, vbCrLf _ & "Second point of displacement: ") 'move the selection of entities For Each objDrawingObject In objSelectionSet objDrawingObject.Move varPoint1, varPoint2 objDrawingObject.Update Next objSelectionSet.Delete End Sub

The Offset method creates a new object with boundaries offset a specified distance from an existing object s boundaries. You can apply this method to the Arc, Circle, Ellipse, Line, LightweightPolyline, Polyline, Spline, and Xline objects. This method returns an array of the newly created object(s). Even though this array frequently contains only one object of the same type as the object from which it is offset, this is not always this case, as seen in the example below. varObjectArray = Object.Offset(OffsetDistance) Table 10-4 explains this method s parameter. Table 10-4. The Object.Offset Method Parameter

A nonzero number that indicates the offset s size and direction. Negative numbers mean that the offset makes the new object smaller than the original. If this has no meaning, as for a single straight line, a negative number positions the new object closer to the WCS origin.

In Figure 10-4, the center object is an Ellipse from which the two other objects have been offset. You can see that the new objects are not Ellipses as each point of each new object is the same distance from the original Ellipse. In these cases, the returned object is a Spline. In this example, the negative offset must be greater than 50.

The following code sample creates the Ellipse and Splines in Figure 10-4 and shows the user a message box of the new objects types. Public Sub OffsetEllipse() Dim objEllipse As AcadEllipse Dim varObjectArray As Variant Dim dblCenter(2) As Double Dim dblMajor(2) As Double dblMajor(0) = 100# Set objEllipse = ThisDrawing.ModelSpace.AddEllipse(dblCenter, dblMajor, _ 0.5) varObjectArray = objEllipse.Offset(50) MsgBox "The offset object is a " & varObjectArray(0).ObjectName varObjectArray = objEllipse.Offset(-25) MsgBox "The offset object is a " & varObjectArray(0).ObjectName End Sub

Note For the sake of accuracy, because offsetting an Ellipse creates nonelliptical Spline entities,

instead consider creating new Ellipse entities with calculated geometry. This produces accurate Ellipse entities instead of approximated elliptical Splines. The same is true for offsetting Spline or curve-fitted Polyline or LightweightPolyline entities.

Use the Rotate method to rotate a drawing object around a given point in the User Coordinate System s (UCS) XY plane. This method has the following syntax: DrawingObject.Rotate BasePoint, RotationAngle Table 10-5 explains this method s parameters. Table 10-5. Rotate Method Parameters

A three-element array of doubles that specifies the 3-D WCS coordinates of the point through which the axis of rotation, parallel to the Z-axis of the UCS, passes. The angle of rotation given in radians and measured counterclockwise from the UCS s X-axis.