Member of CADopia.SelectionSet
Selects objects passing through a point, and adds them to the SelectionSet.
Syntax
object. SelectAtPoint(Point, [FilterType], [FilterData])
Where:
object is a SelectionSet object;
Point is a CADopia Point object specifying the point to use for selection;
FilterType is an optional parameter for specifying how to filter data selection;
FilterData is an optional parameter for specifying filter data.
Selects objects within the rectangle specified by two points, and adds them to the SelectionSet.
Syntax
object.Select(Type, [Point1], [Point2], [FilterType], [FilterData])
Where:
object is a SelectionSet object;
Type is one of the following SelectionSetType constants corresponding to the various selection modes:
vicSelectionSetAll = 11
vicSelectionSetCrossingCircle = 3
vicSelectionSetCrossingPolygon = 0
vicSelectionSetCrossingWindow = 6
vicSelectionSetFence = 12
vicSelectionSetInsideCircle = 5
vicSelectionSetInsidePolygon = 2
vicSelectionSetInsideWindow = 8
vicSelectionSetLast = 10
vicSelectionSetOutsideCircle = 4
vicSelectionSetOutsidePolygon = 1
vicSelectionSetOutsideWindow = 7
vicSelectionSetPrevious = 9
Point1 and Point2 are CADopia Point objects defining a rectangle for those applicable selection modes;
FilterType is an optional parameter for specifying how to filter data selection;
FilterData is an optional parameter for specifying filter data.
Scrolls the window horizontally, vertically or both.
Syntax
object.Scroll(FlagsX, FlagsY)
Where:
object is a CADopia Window object;
FlagsX controls horizontal scrolling with one of the following CADopia constants:
vicScrollLeft = 0
vicScrollLeftPage = 2
vicScrollNoneX = 9
vicScrollRight = 1
vicScrollRightPage = 3
vicScrollToLeft = 6
vicScrollToRight = 7
FlagsY controls vertical scrolling with one of the following CADopia constants:
vicScrollDown = 1
vicScrollDownPage = 3
vicScrollNoneY = 9
vicScrollToBottom = 7
vicScrollToTop = 6
vicScrollUp = 0
vicScrollUpPage = 2
Scales the entity or members of a selection set by a given scale factor.
Syntax
object.ScaleEntity(BasePoint, ScaleFactor)
Where:
object is a CADopia entity;
BasePoint is a CADopia Point object representing the point about which the entity will be scaled;
ScaleFactor is a double-precision variable (or value) representing the factor by which to scale the entity or entities.
Runs a specified script file.
Syntax
Sub RunScript(ScriptName)
Where:
ScriptName is a string variable representing the name of the script file.
Scales the entity or members of a selection set by a given scale factor.
Syntax
object.ScaleEntity(BasePoint, ScaleFactor)
Where:
object is a CADopia entity;
BasePoint is a CADopia Point object representing the point about which the entity will be scaled;
ScaleFactor is a double-precision variable (or value) representing the factor by which to scale the entity or entities.
Executes a CADopia command as if it were typed in the command line.
Syntax
Sub RunCommand(Command)
Where:
Command is a string variable representing the name of a CADopia command.
Examples...
RunCommand method example
Executes a CADopia command as if it were typed in the command line.
Syntax
Sub RunCommand(Command)
Where:
Command is a string variable representing the name of a CADopia command.
Examples...
RunCommand method example
Rotates the selection set and all its members about an axis formed by two points. The direction of the axis is from point1 to point2.
Syntax
object.Rotate3D(Point1, Point2, RotationAngle)
Where:
object is a CADopia entity;
Point1 is a CADopia Point object representing the first point of the axis about which objects will be rotated;
Point2 is a CADopia Point object representing the second point of the axis about which objects will be rotated;
RotationAngle is a double-precision variable (or value) representing the angle in radians.
Private Sub Rotate3D_Example()
' This example creates a cone in model space.
' It then rotates the cone about an axis.
Dim coneObj As CADopia.PolygonMesh
Dim rotateConeObj As CADopia.PolygonMesh
Dim conePt As CADopia.Point
Dim rotPt1 As CADopia.Point
Dim rotPt2 As CADopia.Point
Set conePt = Library.CreatePoint(2, 2, 0)
Set rotPt1 = Library.CreatePoint(1, 2, 0)
Set rotPt2 = Library.CreatePoint(3, 4, 0)
Set coneObj = ThisDocument.ModelSpace.AddCone(conePt, 3, 4)
coneObj.Update
' Rotate the cone
coneObj.Rotate3D rotPt1, rotPt2, 10
ThisDocument.ActiveViewport.ZoomAll
End Sub
Rotates an object or selection set.
Syntax
object.Rotate(BasePoint, RotationAngle)
Where:
object is a CADopia entity;
BasePoint is a CADopia Point object representing the point about which objects will be rotated;
RotationAngle is a double-precision variable (or value) representing the angle in radians.
Private Sub Copy_and_Rotate_Example()
' This example creates a line and then copies it.
' The new line is then rotated 10 radians.
' Create the line
Dim myDoc As CADopia.Document
Dim myLine As CADopia.Line
Dim myStartPt As CADopia.Point
Dim myEndPt As CADopia.Point
Set myDoc = Application.ActiveDocument
Set myStartPt = Library.CreatePoint(4, 4)
Set myEndPt = Library.CreatePoint(7, 3)
Set myLine = myDoc.ModelSpace.AddLine(myStartPt, myEndPt)
myLine.Update
' Copy and rotate the line
Dim copymyLine As CADopia.Line
Set copymyLine = myLine.Copy()
copymyLine.Rotate myStartPt, 10
MsgBox "Rotated the copied line 10 radians."
ThisDocument.ActiveViewport.ZoomExtents
End Sub
Sub RemoveItems(Entities)
Removes one or more entities from the SelectionSet.
Syntax
object.RemoveItems(Entities)
Where:
object is a Block or SelectionSet object;
Entities is a selection set object to which the items are to be added.
Private Sub RemoveItemsExample()
' This example creates a selection set, and a line and circle objects.
' It then adds the objects to the selection set and removes them.
Dim ssetObj As CADopia.SelectionSet
Dim I As Integer
Dim lineObj As CADopia.Line
Dim startPoint As CADopia.Point
Dim endPoint As CADopia.Point
Dim circObj As CADopia.Circle
Dim centerPt As CADopia.Point
Dim radius As Double
Dim ssetName
ssetName = InputBox("Type a name for the selection set:")
Set ssetObj = ThisDocument.SelectionSets.Add(ssetName)
' Create a line object in model space
Set startPoint = Library.CreatePoint(3, 1, 0)
Set endPoint = Library.CreatePoint(5, 5, 0)
Set lineObj = ThisDocument.ModelSpace.AddLine(startPoint, endPoint)
' Create a circle object in model space
Set centerPt = Library.CreatePoint(3, 1, 0)
radius = 5
Set circObj = ThisDocument.ModelSpace.AddCircle(centerPt, radius)
' Collect the objects into an array of objects
' to be added to the selection set.
ReDim ssobjs(1 To ThisDocument.ModelSpace.Count) As CADopia.Entity
For I = 1 To ThisDocument.ModelSpace.Count
Set ssobjs(I) = ThisDocument.ModelSpace.Item(I)
Next I
' Add the array of objects to the selection set
ssetObj.AddItems ssobjs
MsgBox "No. of items in sel. set = " & ssetObj.Count
ssetObj.RemoveItems ssobjs
End Sub
Recent Comments