User input with GetEntity
Its not clear what you are trying to do. Can you explain each step and option?
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
That code is wrong and doesn't have enough information to describe what you want to do. Please describe in English what you want, the steps that a user should take. Then we can provide you the code.
By the way, GetEntity cannot get a string. It's designed to only get an Entity.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
This should get you started.
Sub WorkWithBlock()
Dim kwordlist As String
kworkdlist = "Pick Name"
Dim Response As String
Dim MySS As AcadSelectionSet
ThisDrawing.Utility.InitializeUserInput 38, kwordlist
Response = ThisDrawing.Utility.GetKeyword("\nChoose whether to select block by Picking on-screen or entering its Name. [Pick/Name] : <Pick>")
Select Case Response
Case Is = "Pick"
Set MySS = GetSS_BlockFilter
Case Is = "Name"
Set MySS = GetSS_BlockAtt
End Select
'Do something with MySS
End Sub
Public Function GetSS_BlockFilter() As AcadSelectionSet
'creates an ss of Blocks only
Dim s1 As AcadSelectionSet 'for pfss
Dim s2 As AcadSelectionSet 'for filtered ss
Dim intFtyp(0) As Integer ' setup for the filter
Dim varFval(0) As Variant
Dim varFilter1, varFilter2 As Variant
intFtyp(0) = 0: varFval(0) = "INSERT" ' get only blocks
varFilter1 = intFtyp: varFilter2 = varFval
Set s2 = AddSelectionSet("ssBlockFilter") ' create or get the set
s2.Clear ' clear the set
s2.SelectOnScreen varFilter1, varFilter2 ' do it
s2.Highlight True
s2.Update
Set GetSS_BlockFilter = s2
End Function
Public Function GetSS_BlockAtt(AttName As String) As AcadSelectionSet
'creates a ss of blocks with the name supplied in the argument
Dim s2 As AcadSelectionSet
Set s2 = AddSelectionSet("ssBlocks") ' create ss with a name
s2.Clear ' clear the set
Dim intFtyp(0) As Integer ' setup for the filter
Dim varFval(0) As Variant
Dim varFilter1, varFilter2 As Variant
intFtyp(0) = 0: varFval(0) = "INSERT" ' get only blocks
varFilter1 = intFtyp: varFilter2 = varFval
s2.Select acSelectionSetAll, , , varFilter1, varFilter2 ' do it
Dim oBlk As AcadBlockReference
Dim oAtt As AcadAttributeReference
For Each oBlk In s2
Dim oAtts As Variant
Dim cnt As Integer
If oBlk.HasAttributes Then
Set oAtts = oBlk.GetAttributes
For i = 0 To UBound(oAtts)
If oAtts(i).TextString = AttName Then
Dim ary(0) As Variant
Set ary(0) = oAtts(i)
s2.AddItems ary
End If
Next i
End If
Next oBlk
Set GetSS_AttName = s2
End Function
Public Function AddSelectionSet(SetName As String) As AcadSelectionSet
' This routine does the error trapping neccessary for when you want to create a
' selectin set. It takes the proposed name and either adds it to the selectionsets
' collection or sets it.
On Error Resume Next
Set AddSelectionSet = ThisDrawing.SelectionSets.add(SetName)
If Err.Number <> 0 Then
Set AddSelectionSet = ThisDrawing.SelectionSets.Item(SetName)
AddSelectionSet.Clear
End If
End Function
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
@a0503809662 wrote:
Thank you so much for the work you have done, I know about the possibility of filtering the input.
But that's not what I wanted. I do not want to press P or N every time. I want to click a string asattribute name for example the number 10 or 25 or 70 ... or just select it from the screen.
I will attach the DWG file for the blocks I have in the drawing.
That's the kind of description I asked for when I said describe in English what you want to do. I can't read your mind.
What is different about what you want to do from just clicking on an entity? "Just select it from the screen." How is this different from selecting a block attribute?
If you don't filter for a block, how will the program know that you didn't select a line or circle? A program follows specific instructions. It can't read your mind either.
Also, if you are having difficulty describing in English, use your native language and I'll use Google Translate.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
GetEntity can't do what you're asking (read the help topic). As the name implies, it gets an Entity, not a String. That's why I structured the command the way I did in my first post. You can only use the tools that your are given. With GetKeyword instead of GetEntity, you can get user input to help you make processing decisions.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
No, it's not possible to rewrite the GetEntity method. GetXX is just short for all the Get methods, XX are variables. You substitute Entity..Point..Real..Integer, etc. They belong to ThisDrawing.Utility.
Ed
Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
How to post your code.
