Sélectionner tout, nouveaux objets créés

[mariano.boi]

Bonjour tout le monde,
J'ai écrit un code pour transformer un cercle en polyligne,
pour le faire, avec l'ordre de dessiner. sendcommand "divis", j'ai créé des points en sélectionnant le cercle.
Jusqu'ici tout va bien, mais quand je dois sélectionner des points pour créer de la polylinea, ils ne sont pas sélectionnés.
placer le code ci-dessous:

fonction privée circle_point() comme acadselectionset
dim setdiverss comme acadselectionset

suite de l'erreur
si non isdbnull(thesdrawing.selectionsets.item("divise")) alors
setdivss = thisdrawing.selectionsets.item("divises")
setdivss.delete()
fin si

setdivss = thisdrawing.selectionsets.add("divises")

setdivess.selectonscreen()


pour chaque ojarc dans setdivess
ojarc.color = acad_color.acyellow
suivant
retour setdivess
fin de la fonction

privé sous-diviser_cercle(parval ojarc comme acadentité)
dim div en entier
dim commandstr comme chaîne

div = cedrawing.utility.getinteger("numero dividnti: ")

commandstr = "_diviser" + ojarc.handle + """ + ")" & vbcr & div & vbcr


si aucune paix = 1 ou aucune paix = 0 alors
Autre
cedrawing.sendcommand(commandstr)
fin si


fin sous

 <autodesk.autocad.runtime.commandmethod("arcdiv")> _
public sous divcirc()
dim newsset comme acadselectionset
dim setdiverss comme acadselectionset
dim filtype(0) aussi court
dim fildata(0) comme objet

setdiverss = cercle_point()

diviser le cercle(setdivss.item(0))

suite de l'erreur
si non isdbnull(thesdrawing.selectionsets.item("newselset")) alors
newsset = thisdrawing.selectionsets.item("newselset")
newsset.delete()
fin si



newsset = thisdrawing.selectionsets.add("newselset")

newsset.select(acselect.acselectionsetall,,,filtype,fildata)

msgbox(newsset.count)

fin sous

dim commandstr comme chaîne</autodesk.autocad.runtime.commandmethod("arcdiv")>

Je vous demande si vous pouvez trouver une autre solution.
Bien sûr, la commande sera partagée avec l'ensemble du forum.

Merci d'avance.

Mariaux

ps: J'utilise autocad 2012

 

[Tristan]

Je suis désolé, Marian, je ne peux pas vous aider, mais je me demande à quoi sert ce commandement ? vous obtenez quelque chose de similaire avec des outils natifs d'autocad en moins de 5 secondes..

 

[mariano.boi]

Merci, vous aviez raison d'utiliser la création d'un polygone avec de nombreux côtés.
Bonjour.