Chaque fois que j'essaie de déboguer ou d'exécuter le programme et qu'il rencontre une erreur, le VBE (Autocad) n'affiche pas la ligne où se trouve l'erreur, contrairement aux autres IDEs, il arrivait à cette ligne et surlignait avec la couleur jaune. En outre, le défilement ne fonctionne pas. Je sais que je devrais installer des plugins mais je suis incapable de m'aider. Débogage dans autocad VBA ide n'affiche pas l'erreur
Option Explicit
Sub Test()
'Declarations
'Opened Document
Dim acDocu As AcadDocument
Set acDocu = ThisDrawing.Application.ActiveDocument
'Select on screen
Dim acSelectionSet As AcadSelectionSet
Set acSelectionSet = ThisDrawing.SelectionSets.Add("SjjEffffT")
acSelectionSet.SelectOnScreen
'Manipulating in loops for finding group names having objects selected
Dim entity As AcadEntity
Dim entityhandle() As String
Dim Grp As AcadGroup
Dim groupname() As String
Dim i As Integer
i = 0
Dim j As Integer
j = 0
Dim temp As Integer
temp = 0
Dim GrpEnt As AcadEntity
Dim grpenthandle As String
Dim entity_count As Integer
'Dim entity_array As Variant
entity_count = acSelectionSet.Count
ReDim entityhandle(entity_count)
ReDim groupname(entity_count)
For Each entity In acSelectionSet
'entity_array = entity
entityhandle(i) = entity.Handle
For Each Grp In ThisDrawing.groups
For Each GrpEnt In Grp
grpenthandle = GrpEnt.Handle
If entityhandle(i) = grpenthandle Then
If temp = 0 Then
groupname(j) = Grp.Name
Debug.Print "Group in selection:" & groupname(j)
j = j + 1
End If
End If
temp = temp + 1
Next
temp = 0
Next
i = i + 1
Next
'Copying the objects and pasting into new drawing
Dim acDocto As AcadDocument
Dim file_name As String
'file_name = InputBox("Enter the file name along with full path and extension")
file_name = "D:\PI_Tool_files_3223\D00440023new.DWG"
Set acDocto = Documents.Open(file_name)
Dim acObject As AcadObject
Dim retvalue As Variant
retvalue = acDocu.CopyObjects(entityhandle, acDocto.ModelSpace)
acSelectionSet.Delete
End Sub
Le code est écrit ci-dessus. Mais je pense que le problème est avec le complément car je ne peux pas déboguer.
Sans le code, toute réponse est un coup de couteau dans l'obscurité. – Gareth
@Gareth Hey, mon problème principal est de déboguer, car je suis incapable d'obtenir la ligne exacte, où il montre l'erreur. peut être à cause du plugin. je ne sais pas – Divyanshu
cela arrive parce que le moteur VBA ne peut pas trouver l'objet et la méthode sur la bibliothèque, donc quand il essaie d'exécuter la méthode, il renvoie l'erreur. C'est pourquoi vous ne pouvez pas voir la ligne où cela arrive. Par exemple, vous pouvez créer un autre sub et vous appeler la routine test(). –