ereur d execution 2147418113(8000fff)\'

[rahim853]

Bonjour, qlq un peut m aider, quant j exécute la macro suivante j ai une erreur 2147418113(8000fff)' lors de l exécution de la boucle sur next; a soivoir sur mon dessin il y a des lignes , des polyline et des bolck

 

Dim pointsArray(0 To 11) As Double

pointsArray(0) = 148: pointsArray(1) = 142: pointsArray(2) = 0

pointsArray(3) = 180: pointsArray(4) = 114: pointsArray(5) = 0

pointsArray(6) = 339: pointsArray(7) = 114: pointsArray(8) = 0

pointsArray(9) = 344: pointsArray(10) = 142: pointsArray(11) = 0

Dim ssetObj As AcadSelectionSet

Set ssetObj = ThisDrawing.SelectionSets.Add("TEST_SSET2")

ssetObj.SelectByPolygon acSelectionSetCrossingPolygon, pointsArray

ssetObj.Highlight True

 

Dim entry As AcadEntity

For Each entry In ssetObj

MsgBox entry.ObjectName

Next

 

[sechanbask]

la seule erreur que j'arrive à réproduire c'est :

 

-2145320851 'jeu de sélection dupliqué

 

donc je ne peux pas t'aider

 

dis nous en plus.. chez moi la macro ne sélectionne qu'un seul point alors que j'ai plusieurs point plusieur polyligne , lignes etc..