winfield

:casstet: Ha bon ? Je croyais qu'il y avai aussi une version mac ?

Je vais faire appel aux Lispeurs, ou plutot aux VLispeurs. Ce qu'on appelle Reactor, (dites moi si je me trompe) : ce "n'est" qu'une manière d'intercepter la commande que l'utilisateur à pris et de faire des choses en conséquence, non ? :casstet:

Bonjour, Je me souviens d'un fichier autocad que Didier avait fait passer, et dans lequel on ne pouvait pas effacer une ligne déjà présente. Le bout de code qui était avec ce fichier, ne serait-ce pas le début d'un code pour les réactors ?

Bonjour, C'est un 1er jet mais bon... Par contre, pour les explications de GetSubEntity, je laisse ça à qqn de plus compétant que moi... Bonne continuation

Bonsoir, J'ai fais une copie d'un fichier DVB, effacer la quasi totalité des routines pour n'en garder qu'une. Seulement, je me retrouve avec un fichier encore plus volumineux :casstet: . Qqn pourrait m'expliquer ce qui se passe ? Merci

Je ne suis pas lispeur, mais plutot vba-i-ste. De mon côté, j'essaye de devenir le "Maîîître du moonnde" en vba , mais devant vos travaux, je ne puis qu'être admiratif. Alors je vous dis : Bravo, félicitations et surtout : bonne continuation. De tout coeur.

Oups ! Désolé, j'avais mal compris le . Effectivement ça marche. Bon ben vu que t'as fais le plus gros du taf (pour pas dire tout), vais quand même tenter de faire en sorte qu'on ait pas à déclenché le " proche" ;) En tout cas merci, mais je comprends toujours pas comment on peut trouver une intersection dans un cas comme celui-là :casstet:

Je suis vraiment désolé, accrochage actif avec proche, mais ça m'insère qu'un nodal au point cliqué :(

Rebonsoir nazemrap, D'abord, merci de m'aider, ça fait chaud au coeur en ces temps où on se gèle ...tout :P Un truc qui cloche enfin.......à mon avis. On peux pas demander l'intersection d'un nodal avec la ligne, vu que le nodal ne croise pas la ligne. Je pensais passer par un chemin similaire au tien mais, mais.. le prob c'est que j'ai pas réussi à faire un double GetEntity, je m'explique : 1er GetEntity = Selection de la poly on l'explose second GetEntity mais automatique, l'utilisateur n'a pas à "bosser" (normalement ça va selectionner la ligne qui est la plus proche) on demande le StartPoint et EndPoint de la ligne Et le tour est joué :D Mais malheureusement, soit je m'y prend mal ou cette solution ne marche pô :( .......second GetEntity="" apparemment Je continu mes recherches :cool:

Bonsoir, Tu as tout compris Didier :D Merci nazemrap, vais étudier ton code

Bonsoir, bonne et heureuse année à toutes et à tous. (Encore avec une heure d'avance environ ;) ) Mon problème est le suivant : Comment en sélectionnant une polyligne (via GetEntity) qui a au minimum 3 sommets, connaitre les n° de sommets qui correspondent aux extrémités du segment de droite de l'endroit cliqué ? Ex : Une figure en forme de "V", sommet A,B et C. Le sommet B étant celui qui se trouve en bas. AB=100 : BC=10. Je clique sur le segment AB mais proche du sommet B. Si je demande les 2 sommets les plus proches pour avoir les extrémités du segment, ce sera faux car le sommet C est plus proche que le sommet B, et il ne fait pas partie de mon segment :( . Comment puis-je faire ? Merci de votre aide

Alors là !!! Mille MERCI Philippe ! Code tiré de http:// http://www.cad.dp.ua/stats/a_vba/content.php?content=acentity.html Option Explicit Private Declare Function acedSetColorDialog Lib _ "acad.exe" (color As Long, ByVal bAllowMetaColor _ As Boolean, ByVal nCurLayerColor As Long) As Boolean Private Function ChooseColor(ByVal lngInitClr As Long, _ ByVal blnMetaColor As Boolean, ByVal _ lngCurClr As Long) As Long ChooseColor = -1 On Error Resume Next If acedSetColorDialog(lngInitClr, _ blnMetaColor, lngCurClr) Then ChooseColor = lngInitClr End If End Function Public Sub TEST_ChangeColor() Dim objEnt As AcadEntity Dim varPnt As Variant Dim strPrmt As String On Error GoTo Err_Control strPrmt = vbCr & "Select an entity: " ThisDrawing.Utility.GetEntity objEnt, _ varPnt, strPrmt objEnt.color = ChooseColor(objEnt.color, _ True, objEnt.color) Exit_Here: Exit Sub Err_Control: Debug.Print Err.Description Resume Exit_Here End Sub .....et il y a encore pleins d'autres sources Merci encore Philippe et merci à Victor Tkachenko

Bonjour, Comment faire pour afficher la palette de couleur ? et bien sûr récuperer la valeur.. Merci pour votre aide.

Bonjour à toutes et à tous, Je suis à la recherche d'idées. Qqn pourrait me dire ce qu'on peut mettre comme "matériau" sur du plâtre à la place de l'eternelle tapisserie ?, Je pensais à faire comme les voitures Ferrari (18 couches de peinture je crois :P ) mais bon, comme le plâtre est un boit-sans-soif, je me demandais si ça n'allait pas trop entamer...non....finir mes économies :casstet: Merci

Bonjour, En espèrant que ça puisse t'aider : Sub CalqueEtText() Dim ObjCalque As AcadLayer Dim StrNomCalque As String StrNomCalque = "MonCalque" Dim ObjStyleText As AcadTextStyle Dim StrStyleText As String Dim Pt(0 To 2) As Double Dim ObjText As AcadText Pt(0) = 50: Pt(1) = 50: Pt(2) = 0 StrStyleText = "MonStyleTxt" On Error Resume Next Set ObjCalque = ThisDrawing.Layers(StrNomCalque) If Err <> 0 Then Err.Clear Set ObjCalque = ThisDrawing.Layers.Add(StrNomCalque) ObjCalque.Color = acCyan End If ThisDrawing.ActiveLayer = ObjCalque Set ObjStyleText = ThisDrawing.TextStyles(StrStyleText) If Err <> 0 Then Err.Clear Set ObjStyleText = ThisDrawing.TextStyles.Add(StrStyleText) ObjStyleText.fontFile = "Romand.shx" End If Set ObjText = ThisDrawing.ModelSpace.AddText("Bonnes fêtes !", Pt, 5) ObjText.StyleName = StrStyleText End Sub Bonne continuation

Bonsoir Christian, Je te remercie pour tes voeux, et je te souhaite le "pareillement" (il me semble me souvenir que du côté de Metz, c'était le terme utilisé) m'enfin...chez toi c'est peut-être encore différent ...quoique, autour d'une bonne bouteille de gewurtz, on fini tous par parler la même langue :D J'en profite pour souhaiter à mon tour un joyeu Noël et une bonne année 2006 à CadXP, au webmestre, et à tous les membres et visiteurs. .......encore quelques jours et ils ne nous restera plus qu'à prendre les bonnes résolutions !!!..........là ça va être dur :(

Bonsoir, Peut-être une question bête, mais comment fait-on pour copier toute une selection d'objets d'un fichier à un autre fichier ?( genre le fameux Ctrl+C et Ctrl+V ), J'ai eu vent d'un SendKey, mais..echec total :( Merci de votre aide

Que : A=5:B=6:C=B:C=A ;) Je te le dirais dans ...........94 ans :P

Je bossai Je bossai chez un drôle de géo........mais bon...no comment :) Chez lui, j'étais un dessinateur de base (ce que je suis toujours....je suis un éternel débutant) mais maintenant je suis ds le béton armé. Mais quand je bossai chez le géo, tous les plans pour la DDE passaient par moi (en clair, c'est moi qui me les tapaient, eux (les autres du cabinet) n'aimaient pas faire les plans de la DDE, moi oui, chacun ses goûts). Mais dis-moi, si je me trompe, tes types lignes, c'est ceux de Cova ?

Tu bosses pour la DDE ? FH=Limites (objets : haies, clôtures, murs, etc…) FH1H Limites (haut de murs) FH1B Limites (pied de murs) FHS Limites (symbolique : hachurage des murs) FHT Limites (texte) etc Autrement tu bosses chez un géo :)

On peut même plus parler de l'Amiral Christopher Cradock ??? :( :cool: http:// http://de.wikipedia.org/wiki/Christopher_Cradock

Vu ton lien tu veux que je tape du Lisp ;) Peut-être un jour....... En attendant d'avoir un vrai accrochage d'un rectangle, j'utilise le truc de Patrick (cur+cur)/2 très pratique d'ailleur :D :( J'ai dis au revoir à 2006 lorsque j'ai changé de boss...entre la peste et le choléra, j'ai dû choisir :exclam:

Bé non, justement, le fait de le décomposer ne permet plus de modifier et encore moins depuis le centre. :( et dans mon cas, il faut que ça reste un rectangle de base. Mais je vais creuser l'idée...

Bonsoir LeCrabe - Centre de gravité, je connaissais le terme mais franchement je pensais que ça avait a voir avec la RDM - Barycentre (dsl, je connais que son frère...le chanteur ;) ) - Centroid (moyen), dommage, j'aimais bien ce terme, ça fait faisait intello :D Ceci dit, si t'as une astuce au sujet de mes demandes coincé entre tes pinces, je suis preneur :D

Je tombe sur cette citation ici même Franchement , ça me laisse rêveur :P