didier

Bonjour Aucune différence de comportement chez moi. La fenêtre de l'Explorer s'ouvre comme la dernière fois qu'elle a été fermée... Amicalement

Bonjour. À mon tour de proposer mes routines, pas toujours dans l'académique, mais ça fait le job. J'ai respecté la demande initiale de faire un testFIB et un testGOLD Fibonacci : (defun spiralfib ( cen nb / b dir li li2 n p pol rac2) (setvar "cmdecho" 0) (defun suitefib (nb) (setq li '(1 0)) (repeat nb (setq li (cons (+ (car li) (cadr li)) li)) ) (reverse li) ) ;(setq li2 '()) (setq li (cdr (suitefib nb))) (setq dir (/ pi 4) rac2 (sqrt 2.0) ) (setq li2 (cons (list (+ (car cen) 1)(cadr cen)) li2)) (foreach ele li (setq li2 (cons (polar (car li2) (setq dir (+ dir (/ pi 2))) (* rac2 ele)) li2)) ) (setq b (/ (sin (/ pi 8))(cos (/ pi 8)))) (entmakex (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 38 0) (cons 90 (length li2)) (cons 70 0) (cons 62 1) ) (mapcar '(lambda (p) (cons 10 p)) li2) );_ Fin de append ) ;_ Fin de entmake (entmakex (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 38 0) (cons 90 (length li2)) (cons 70 0)(cons 62 6) ) (mapcar '(lambda (p) (cons 10 p)) li2) );_ Fin de append ) (setq n -1) (setq pol (vlax-ename->vla-object (entlast))) (repeat (cdr (assoc 90 (entget (entlast)))) (vla-SetBulge pol (setq n (1+ n)) -0.414214) ) (vla-Update pol) (setq n 0) (setq li22 (reverse li2)) (setq oldosmode (getvar 'osmode)) (setvar "osmode" 0) (repeat (length li2) (command "_rectang" (nth n li2) (nth (1+ n) li2)) (setq n (+ 1 n)) ) (setvar "osmode" oldosmode) (setq li2 (reverse li2)) ) (defun c:testfib (/ p i) (and (setq p (getpoint "\nPoint de départ: ")) (setq i (getint "\nNombre d'arcs [4-32]: ")) (and (< 3 i)(< i 33)) (spiralFib p i) ) (princ) ) Et maintenant Spirale d'Or (ne faites pas de bruit, la spirale dort) (defun spiralgold ( cen nb / gold b dir li li2 n p pol rac2) (setvar "cmdecho" 0) (setq li '(1)) (setq gold (/ ( + 1 (sqrt 5)) 2)) (repeat nb (setq li (cons (* (car li) gold) li)) ) (setq li (reverse li)) (setq dir (/ pi 4) rac2 (sqrt 2.0) ) (setq li2 (cons (list (+ (car cen) 1)(cadr cen)) li2)) (foreach ele li (setq li2 (cons (polar (car li2) (setq dir (+ dir (/ pi 2))) (* rac2 ele)) li2)) ) (setq b (* (/ (sin (/ pi 8))(cos (/ pi 8)))-1)) (entmakex (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 38 0) (cons 90 (length li2)) (cons 70 0) (cons 62 1) ) (mapcar '(lambda (p) (cons 10 p)) li2) );_ Fin de append ) ;_ Fin de entmake (entmakex (append (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") (cons 38 0) (cons 90 (length li2)) (cons 70 0)(cons 62 2) ) (mapcar '(lambda (p) (cons 10 p)) li2) );_ Fin de append ) (setq n -1) (setq pol (vlax-ename->vla-object (entlast))) (repeat (cdr (assoc 90 (entget (entlast)))) (vla-SetBulge pol (setq n (1+ n)) b) ) (vla-Update pol) (setq n 0) (setq li22 (reverse li2)) (setq oldosmode (getvar 'osmode)) (setvar "osmode" 0) (repeat (length li2) (command "_rectang" (nth n li2) (nth (1+ n) li2)) (setq n (+ 1 n)) ) (setvar "osmode" oldosmode) (setq li2 (reverse li2)) ) Amicalement

Bonjour @La Lozère Ce que tu demandes est d'ouvrir l'Explorer de Ouine Dose pour lister les dossiers ? Si c'est le cas, voici la ligne à taper… (startapp "Explorer" (strcat "/N,/E," (getvar "DWGPREFIX"))) Amicalement

Coucou Je n'ai pas regardé la différence dans le code, mais ça fonctionne maintenant. Questions : Enrobage ? tu en tiens compte on non ? Chevauchement ? Dans un coin de ma mémoire le chevauchement est une largeur de maille, tu as l'air d'en faire plus, non ? Chevauchement bis ? on trouve des endroits avec quatre épaisseurs de treillis ! Tes choix sont-ils issus d'une norme ? Amicalement

Je n'arrive pas à reproduire...

Bonjour @Curlygoth Tout est possible, mais si le dessin passe entre des mains inexpertes et qu'une rotation de SCU est faite, tu ne vas pas me dire qu'il te passe un coup de fil pour que tu remettes le bloc indiquant le nord dans la bonne direction !. Je reste sur mon idée que c'est une "fausse bonne idée" pour l'instant, car je ne vois pas de preuve de pérennité du fichier. Amicalement

Dans un mois, c'est mort alors... Sur ta machine, la même requête de dessin à partir d'un rectangle donne quel visuel ?

Bonjour @DenisHen Je te remercie pour ce partage. Toutefois, j'aimerais savoir si tous les contrôles furent réalisés avant de lâcher une routine comme ça sans explication. J'ai demandé le dessin en m'appuyant sur un simple rectangle et le résultat est quelque peu erratique. Tu nous en dis plus s'il te plaît... Amicalement

Bonjour @(gile) Je viens de répondre à ce membre sur le même genre de remarque et je n'ai pas voulu répondre deux fois pour la même question. Voir ICI Si j'ai été explicite, il devrait se servir de ce nouveau savoir pour charger tes programmes sans mettre en cause le programmeur. Amicalement

Bonjour @sylarr Avant de répondre, j'ai vérifié ce que je voulais répondre et mon propos prévu s'est avéré. Le fichier proposé par notre très cher @lecrabe, actuellement en vacances sans AutoCAD sous la main, fonctionne parfaitement. Donc, comment faire ? Copier-coller le texte du premier point-virgule à la dernière parenthèse fermante Ouvrir Notepad et coller le presse-papier Enregistrer sous n'importe quel nom qui va bien, mais surtout avec l'extension .LSP Ouvrir l'Explorer sur le dossier qui contient ce fichier Glisser-déposer ce fichier depuis l'Explorer dans l'interface graphique AutoCAD Une case de dialogue devrait s'ouvrir en proposant de charger, répondre "toujours charger". Depuis la ligne de commande AutoCAD taper DEL_BLOCK Choisir le bloc qui doit être supprimé à l'écran et appuyer sur Enter. C'est fini Attention c'est du violent, que le bloc soit inséré sur un calque gelé ou qu'il soit dans l'espace papier, il va disparaître ! En souhaitant avoir été utile Amicalement

Coucou Je suis prêt. Je temporise quelque peu pour répondre. Amicalement

Bonjour Merci @(gile) de nous faire des devoirs de vacances. Tu crois qu'on n'a pas assez de ceux des petits-enfants qu'il faut corriger, passer au correcteur, rajouter des S pour les pluriels et autres joyeusetés qu'on subit quand on a 9 ans ? Blague à part, j'aime ce qui est beau et il se trouve que cette suite est belle et que la spirale résultante l'est tout autant. Donc, je me m'inscris sur la liste des participants, maintenant, il va falloir ménager du temps entre les siestes et les cahiers de vacances... Amicalement

Bonjour @Luna Hélas non, tu as parfaitement raison. Les barrières tombent. Je suis triste que toute cette intelligence soit utilisée pour dévoyer les bénéfices de ces forums. Quel est leur but final ? Croient-ils réellement que quelqu'un va suivre leurs liens ? Ou bien c'est juste pour s'amuser, mais ça je n'y crois pas...

Bonjour @DenisHen Tu ne prends pas la peine de regarder ce qui a déjà été fait (cette phrase a un petit air de répétition) (gile) a pourtant pris le soin de créer et de mettre à notre disposition plein de bibliothèques franchement terribles. Je te laisse chercher cette fonction "gc:SubstAt" pour admirer le travail partagé et le remercier. Amicalement

Bonjour @ClemAuto Merci pour le fichier, car le souci n'est pas mis en évidence dans la question Les entités concernées sont dans des blocs. Deux solutions : Il faut redéfinir ces blocs, en entrant dans l'éditeur et mettre tout à zéro DANS le bloc. Décomposer les blocs et applique la translation vers Zéro en Z Amicalement

Bonjour @ClemAuto Pour ce genre de question, il faut fournir un dessin avec le problème existant. Les commandes citées fonctionnent dans les cas normaux, voyons ce fichier dont il est question… Amicalement

Bonjour @ClemAuto Merci de commencer un autre sujet quand la nouvelle question est sans rapport avec le message en cours, ceci pour la clarté des forums. Amicalement

Hello @philsogood I completely agree, and without mentioning it, it happens that I am often on this site which is one of the best of the kind, well presented, but especially very effective in the explanations of the different meanings of the words. On the other hand, like everything that is written, we must pay attention to typos (hihi). See you soon

Bonjour @Luna Étant donné que tu bricoles des LISP existants… Ben oui !, c'est l'air du temps, je suis atterré de constater que ce genre de situation devient "la normale", on n'apprend plus, on recopie... Et moi qui suis en train de préparer des vidéos d'apprentissage qui me prennent un temps fou pour faire des choses claires et efficaces. Je me demande si je ne perds pas un peu mon temps... C'est la différence entre donner un poisson à quelqu'un et lui apprendre à pêcher... dans une situation, il aura faim à nouveau et réclamera, dans l'autre, il se débrouillera, mais il faut "apprendre" ! (désolé d'avoir écrit un "gros mot") Amicalement

Bonjour @ClemAuto Je vois que le sujet est dans le forum VBA c'est négociable ou faut-il répondre en VBA uniquement ? Amicalement

Bonjour @ClemAuto C'est tout à fait possible en LSP. Toutefois, il faut savoir si la détection doit se faire sur la totalité du dessin avec ou sans filtrage de calques ou si on fait une sélection classique AutoCAD. La différence de temps de traitement sera énorme suivant le nombre d'entités. Amicalement

Bonjour @nen Je me permets de te conseiller de commencer ton apprentissage avec des choses simples. Le premier conseil n'est pas toujours agréable à entendre, mais je continue et je continuerai à le seriner. Ne pas utiliser de copier-coller, taper les lignes de code permet de COMPRENDRE ce qu'on fait, Dans le cas présent, au moment de demander le changement des polylignes en couleur "blanc", au moment de la frappe, le souci (évident) aurait été détecté. Amicalement

Bonjour @nen Je suis content de t'avoir dépatouillé, mais pour la question que tu me poses en dernier, je ne sais pas quoi dire. C'est dans ton code d'origine que la ligne qui change TOUTES les polylignes trouvées en couleur BLANC ent.color = acWhite Si tu ne veux pas de cette action, supprime-la ou mets-la en commentaire. Amicalement

Bonjour @nen Je pense que ces lignes corrigées devraient résoudre ton souci. Amicalement Sub PolylignesOuvertes() For Each ent In ThisDrawing.ModelSpace ent.color = acWhite If ent.ObjectName = "AcDbPolyline" And ent.Layer = "Polygonale" Then If ent.Closed = False Then ent.color = acRed Else ent.color = acGreen End If End If Next ent ThisDrawing.Regen (acActiveViewport) End Sub

Merci @Olivier Eckmann Il est certain qua si j'avais un Covadis sous la main je ne me poserais pas tant de questions. Merci de tes interventions. Amicalement