Solved

Autocad - VBA - Delete a selection and insert a text

Posted on 2009-06-27
1
2,394 Views
Last Modified: 2013-12-04
Hi,
I need your help,
in Autocad by a sub in vba. I try to delete some text by a windows selection on the layout tab. The zone of my selection will be always the same.
My selection does'nt work. What am I forgetting?
After, Ii'm gonna have to insert a text at a special point. Could you give me some hint to write this code?

Thanks
Joh

Private SubDelete()

 

    Dim startPoint(0 To 2) As Double

    Dim endPoint(0 To 2) As Double

 

    startPoint(0) = 34.93151714#

    startPoint(1) = 3.30691694#

    startPoint(2) = 0#

 

    endPoint(0) = 42.058499#

    endPoint(1) = -0.0687933#

    endPoint(2) = 0#

 

    On Error Resume Next

     objSelection.Select acSelectionSetWindow, startPoint, endPoint

     objSelection.AddItems 

    objSelection.Erase    

 

End Sub

Open in new window

0
Comment
Question by:joh90
1 Comment
 
LVL 11

Accepted Solution

by:
darrenmcwi earned 50 total points
ID: 24739072
1) Don't make the sub-private unless you need to. That's a little more indepth than we'll want to get into here.

2) Dimension and set a new Selection Set object. Here, I'm looking to see if the selection set name already exists and if it does, I clear it or it's contents. If it doesn't exist, I then create it.

3) AddItems method is not used. This is for adding individual items to an existing selection set.

If this still doesn't work, here's a few things to check, are you in the proper page you're trying to select in?

Have you manually tried drawing a box using the coordinates in your code? This might flush out a problem if it's not where you think it is, if the UCS is different than you expect, etc.

Add code to zoom out slightly from those coordinates. When you select via Window/Crossing, etc., AutoCAD translates the screen pixed coordinates into the graphical coordinates you specified. If those coordinates (the object you are trying to select) are outside the drawing editor, you're not going to be able to select it as AutoCAD ignores coordinates once outside the drawing editor. If it watched all the coordinates, on-screen selection would take forever because AutoCAD would have to continuously check the entire drawing, not just what's on screen. It's one of many ways AutoCAD keeps it's performance up.
ublic Sub SSDelete()

 

    Dim objSelection As AcadSelectionSet

    Set objSelection = ThisDrawing.SelectionSets.Item("SS1")

    If objSelection Is Nothing Then

        Set objSelection = ThisDrawing.SelectionSets.Add("SS1")

    Else

        objSelection.Clear

    End If

    

    Dim startPoint(0 To 2) As Double

    Dim endPoint(0 To 2) As Double

    

    Dim pts As Variant

    Dim pte As Variant

    

    startPoint(0) = 34.93151714

    startPoint(1) = 3.30691694

    startPoint(2) = 0#

    endPoint(0) = 42.058499

    endPoint(1) = -0.0687933

    endPoint(2) = 0#

    

    objSelection.Select acSelectionSetWindow, startPoint, endPoin

    objSelection.Erase

End Sub

Open in new window

0

Featured Post

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
SAP PM 5 116
Help in WHSCRIPT 9 48
Macro which automatically sends attachment to Outlook 14 62
IF ELSE Statement in Excel Macro VBA 16 36
Article by: Martin
Here are a few simple, working, games that you can use as-is or as the basis for your own games. Tic-Tac-Toe This is one of the simplest of all games.   The game allows for a choice of who goes first and keeps track of the number of wins for…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Get people started with the process of using Access VBA to control Outlook using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Microsoft Outlook. Using automation, an Access applic…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…

863 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

23 Experts available now in Live!

Get 1:1 Help Now