Curlygoth

Oui c'est ce que Luna disait 😉

tu te contredis :

je suis à fort à ce jeu la XD

ben j'espere que le vba a belle avenir devant lui sinon au revoir a plus de 5 ans de dev vba sur autocad XD OK merci (gile) !!!!!

@Fraid Oui merci mais j'étais pas sur de la variable à utiliser ! et j'ai bien fait de poster ! merci @Lunamerci @La Lozère @didier non ??!? alors je comprends plus le débat de "la fin du VBA est proche"... ben du coup si vous savez faire du lisp vous savez faire du VBA XD

attention du perds la geoposition !

c'est qu'une illusion 😉 j'arrive à lire le lisp maintennant ! donc la seule chose que j'ai à faire c'est de traduire mais chut.... Mais tu sais je refais pas des choses qui existe ! si je trouve ce que je veux en lisp je prends ! mais c'est trop rare... donc je suis obliger de faire de ce language "Dont-on-ne-prononce-pas-le-nom"

trop fort ! c'est ça ! (confirmation avec internet et autocad)

ok vendu ! merci (vla-SetTextHeight 0.4) et ça pour modifier la valeur. mais effectivement mieux vaut la laissé a 0 dans mon cas XD

Bonjour, Quelle est la variable permettant de changer la taille de la police par défault ? mais si vous savez bien : La hauteur du style de texte ! c'est bien ça ? : (vla-SetTextHeight 0.4) pour une hauteur par défault à 0.4 ? par exemple ?

j'utilise cette méthiode pour numéroter des numero de soudure et leur imputer des données par exemple... c'est pratique ! mais je suis hors sujet car c'est pas du lisp ...

dans les raccourcis mettre DI, *DIST

MOUhahahhahaha 😈

Beaucoup, Beaucoup de lispeur m'ont dit que le vba n’était pas efficient... par rapport au lisp ! Maintennant, que j'entends l'inverse je vais vous dire le fond de ma pensé : Personnellement pour des taches "simple" sans de boucle le VBA est peut être plus rapide... mais soyons honnête : quand vous faites des outils (genre quickhull que j'avoue n'ai pas commencé XD/ Le challenge à luna) ou autre programme plus lourd (genre tourné tous les blocs d'un certain angle) le lisp est plus rapide ! Note perso : sachez que je suis les conversation lisp car je les combine avec du VBA et c'est juste génialissime !

moi ça m'a pas fait peur ^^ mais je suis d'accord avec toi je parle bien du VBA qui est moins performant que le lisp pour certaine taches ! @Luna instant pub : je propose des formations si tu veux

moi non plus... Mais j'imagine que les garanties ne sont pas les mêmes...

Je reste à disposition pour t'aider à écrire le VBA si tu as besoin mais pourquoi ? il est plus accessible pour un poil moins de performance ! moi il me va largement (10 ans je l'utilise)

propriété .Area en VBA ;-) Dim returnObj As AcadEntity ThisDrawing.Utility.GetEntity returnObj, basePnt, "Selectionné un objet" Msgbox "Surface de la polyligne : " & returnObj.Area

je t'ai envoyé un e-mail j'ai vu que tu avais écris sur du VBA ! Je t'ai laissé mon numero de téléphone si besoin

Ok merci beaucoup ! J'adore les maths, donc ça va aller !! J'ai trouvé l’équivalent pour le VBA c'est nikel ! je vais revoir certain de mes codes pour avoir des arcs plus jolie sur mes polylignes ^^

sur autocadCivil je sais pas... mais en programmation VBA ou lisp c'est possible ^^

OK interréssant ! Donc moyenne pour 128 itérations d'une polyligne de 10.000 sommets (car je l'ai fait plusieurs fois) 1170 milisecond / 9.14 milisecond Attention je pense que le vba tiens compte aussi de la config pc (j'ai rééllement une bonne config, je le ferais sur mon pc perso pour comparé ^^) 292 millisecond pour 32 itération sur polyligne de 10.000 sommets Sub TEST_POLYLIGNE() Dim returnobj As AcadLWPolyline Dim points() As Double Nombre_de_POINTS = 10000 ReDim Preserve points(Nombre_de_POINTS * 2 - 1) Dim T As Single T = Timer For ite = 1 To 100 cpt = 0 For i = 0 To UBound(points) points(i) = RAMDON Next i Set returnobj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points) returnobj.Update retcoord = returnobj.Coordinates Dim POINT(0 To 1) As Double Dim LISTPOINT() As Variant NOMBREPOINT = (UBound(retcoord) + 1) / 2 ReDim Preserve LISTPOINT(NOMBREPOINT) k = LBound(retcoord) L = UBound(retcoord) For B = k To L Step 2 POINT(0) = retcoord(B) POINT(1) = retcoord(B + 1) LISTPOINT(cpt) = POINT cpt = cpt + 1 Next B returnobj.Delete Next ite Dim strduree As String strduree = Format(Timer - T, "00:00:00.00") MsgBox strduree End Sub

tu penses bien ^^ Mais c'est pour ça qu'il faut acheter la coque a part

moi j'ai écrit ça : ça me fait tout inférieur à 1s... c'est bizzarre... j'ai oublié quelque chose ?

bonjour, Alors je conseil les Surface Pro de Microsoft a acheter uniquement en solde ! Pour 50 jours par an ca va aller : on a une Surface Pro 3 qui tiens encore 6h ! alors qu'on l'utilise 5j/7 8h par jours ! on a acheté une Surface Pro 7 avec un i5 pour un nouveau... mais du coup moins bonne autonomie ! (6h neuve !) Gros defaut : La fragilité de l'écran !!!! prévoir une coque ! Avantage : Compatibilité avec suite Microsoft ! (je fais mes programmes pour ce collegue d'ailleurs) Batterie durable Grand ecran ! Posibilité de travail qu'avec le stylet ou stylet/doigt Bonne luminosité en été ! (attention pompe sur la batterie)