Select multiple objects

Discussion in 'AutoCAD' started by Leonard Johnson, Dec 7, 2004.

  1. Leonard Johnson

    Leonard Johnson Guest

    I've been working with this example of selecting objects. I can't seem to figure out how to select multiple or more than one object. Can anyone point me in the right direction?

    Public Sub ScaleObject()Dim objDrawingObject As AcadEntityDim varEntityPickedPoint As VariantDim varBasePoint As VariantDim dblScaleFactor As DoubleOn Error Resume Next ThisDrawing.Utility.GetEntity objDrawingObject, varEntityPickedPoint, _ "Please pick an entity to scale: "If objDrawingObject Is Nothing Then MsgBox "You did not choose an object" Exit SubEnd IfvarBasePoint = ThisDrawing.Utility.GetPoint(, _ "Pick a base point for the scale:")dblScaleFactor = ThisDrawing.Utility.GetReal("Enter the scale factor: ")'Scale the objectobjDrawingObject.ScaleEntity varBasePoint, dblScaleFactorobjDrawingObject.UpdateEnd Sub
     
    Leonard Johnson, Dec 7, 2004
    #1
  2. Leonard Johnson

    Jeff Mishler Guest

    Use a selection set.....

    --
    Jeff
    check out www.cadvault.com
    I've been working with this example of selecting objects. I can't seem to
    figure out how to select multiple or more than one object. Can anyone point
    me in the right direction?
     
    Jeff Mishler, Dec 7, 2004
    #2
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads

  1. AutoLISP Program to select the newly created objects!

  2. Need to select both objects

  3. Select all Objects within a polyline

  4. Too Many "select objects"

  5. Too many Select Objects and get Object id

  6. select objects

  7. How can I select/find all objects in a circle?

Loading...