-Olivier-

Sinon il y a une icône

Bonjour Steamroller, Il faut passer la variable SELECTIONCYCLING en valeur positive. Olivier

Me revoilà! (setq n (1- n)) permet de soustraire 1 à la valeur n à chaque boucle de la fonction repeat. J'ai écris un code plus condensé et moins compréhensible dans le poste #6 par rapport au postes précédents, je m'en excuse. Si tu as des doutes sur le fonctionnement n'hésite pas à redemander. Olivier

Bonjour dainese, As-tu essayé également d'activer/désactiver l'accélération matérielle ? Olivier

Bonjour SF.Designer, Je viens de lire le titre du topic précisant que tu travail sur un bloc dynamique. Les références de blocs dynamiques n'apparaissent pas avec leur véritables noms. Pour tester : (cdr (assoc 2 (entget (car (entsel))))) Pour les retrouver, il faut sélectionner les blocs de l'espace, faire défiler la sélection en vérififiant le nom effectif du bloc. (setq ss (ssget "_X" (list '(0 . "INSERT") (cons 410 (getvar "ctab"))))) (repeat (setq n (sslength ss)) (if (= "CRTP4PP4" (vla-get-EffectiveName (vlax-ename->vla-object (ssname ss (setq n (1- n)))))) (setq ent (ssname ss n))) ) Olivier

Bonjour, Pas de problème chez moi. Le bloc CRTP4PP4 ne doit pas être dans ton espace actuel. Dans ce cas, supprime le (cons 410 (getvar "ctab")) . Olivier

Bonjour, La variable système "DIMLAYER" est une nouveauté 2016. Olivier

Bonjour, La commande ssget renvoi un jeu de sélection. Ce jeu de sélection contient les ename d'une à plusieurs entité. auparavant, tu utilisais entsel , qui lui renvoi directement l'ename de l'entité + le point cliqué lors de sa sélection. (setq ent (car (entsel)) enregistre donc la première partie soit uniquement l'ename de ton entité. Il te faut donc à partir de ton jeu de sélection récupérer uniquement l'ename de l'entité contenu dans cet jeu. Petit ajout, dans ton cas je pense qu'il est préférable de filtrer la sélection sur l'espace courant. (bit 410) Soit (je te le mes en 2 lignes pour être plus clair : (setq ss (ssget "_X" (list '(0 . "INSERT") '(2 . "CRTP4PP4") (cons 410 (getvar "ctab"))))); création du jeu de sélection (setq ent (ssname ss 0)) ; récupération de l'ename du premier élément du jeu de sélection Olivier

Bonjour Didier, Je n'ai rien constaté non plus. Je crains que cela viennes de ton réseau. Olivier

Là je ne te suis pas. (setq Select (entsel "\nChoisissez votre texte :")) te renvoi quelques chose devant ressembler à ceci : (<Nom d'entité: 7ffffb05aa0> (2073.86 1553.79 0.0)) Soit la position du point cliqué et l'ename de ton objet. ssname lui à besoin d'un jeu de sélection du type : <Selection set: 619> contenant un ou plusieurs objet et renvoi l'ename de l'objet n-1. ce que tu as déjà dans la réponse à (entsel) Donc remplace : (setq elst (ssname Select 0) Par : (setq elst (car (Select)) Olivier

Bonjour, ssname à besoin d'un jeu de sélection. Hors dans ton code tu lui fourni (entsel) soit la positon du point cliqué + l'ename. Dans ton cas le ssname ne sert à rien, un simple (car (entsel)) suffit. Olivier

Bonjour, Pour repasser les hachures en arrière plan, il y a la commande HATCHTOBACK. Olivier

Bonjour Glead, Avec ceci : (command "_-hatch" "P" "nom_du_motif" "" "" "s" ent "" "") Pour la sélection, j'aurai ajouté un filtre sur le bit 70 pour ne sélectionner que les polylignes fermées. (ssget "_X" '((0 . "LWPOLYLINE") (8 . "01323") (70 . 1))) Olivier

Bonjour Rizcolas62, Extrait de l'aide : Olivier

Bonjour DenisH, Il ne faut pas mettre le "-". Et pour que la commande fonctionne dans les autres langues, utilise plutôt "_erase" . Olivier

Bonjour Megeon, Avec les contraintes... Olivier

Bonjour nosset, Tu à vérifié que ton fichier LTYPESHP.SHX était dans tes emplacements de tes fichiers supports ? Olivier PS : pas très inspiré là dessus.

Bonjour Megeon, Avec une "petite bidouille",tu traces 2 traits l'un sur l'autre, un jaune et un vert, un avec un type de ligne continious et l'autre en ACAD_ISO03W100 . J'avais prévenu pour la bidouille :D . Olivier

Bonjour torrent14, Quelle est la valeur de ta variable PROPOBJLIMIT ? Olivier

Bonjour à tous, Concernant le soucis de Philsogood. Lorsque que l'on sort (comme moi) la ligne de commande de son ancrage, alors il faut faire Ctrl F2 pour afficher la fenêtre de texte. Lorsque l'on fait F2 cela augmente le nombre de ligne de la ligne de commande. Le nombre de ligne ajouté est réglable. Olivier Le crabe c'est pas mal mais le dinosaure ? Jamais gouté ! :) Pas de neige chez moi grâce à la douceur angevine. B)

Bonjour muriellelapuce, Utilise le caractère #avant les coordonnées pour forcer en version absolue. Olivier

Nous avions le code source (la dernière mise à jour en 2010 n'a pas posée de problème, mais il y a eu pas mal de transferts depuis et tout n'a pas été récupéré. L'organisation ce n'est pas le point fort de la société. :D Olivier

Bonjour à tous, @(gile) Je me permes d'intervenir dans la discussion même si je ne connais rien au .NET Boris a commencé son stage dans notre société Lundi. Je précise que je suis pas directement le projet Boris. Boris travaille sur un additif à Autocad développé en interne il y a près de 10ans. Sa première mission est de le remettre à jour sur les nouvelles versions d'Autocad puis de faire certaines améliorations. Voilà ce qui explique les décompilations recompilations de bibliothèques sur un programme qu'il ne maîtrise pas. A+ Olivier

C'est bon j'ai fait ce que tu as dit, je n'avais pas comprit :-D J'ai décompilé les deux bibliothèques : GetPointCoord.dll et DLLSelectionSet.dll et j'ai remplacé les références de Autodesk.AutoCAD.Interop et Autodesk.AutoCAD.Interop.Common. Puis ensuite j'i recompilé les deux dll. Après cela je suis allé dans mon programme Traceur pour référencer les deux dll recompilés. Merci gile je n'avais rien comprit quand tu m'as donné la solution.

GetPointCoord est une bibliothèque que je charge dans mon application. J'ai une gros souci quand à GetPointCoord puisque je ne sais pas si il existe une version pour autocad 2016 ou bien si c'est une bibliothèque par défaut. The best overloaded method match for 'GetPointCoord.GetPointCoord.GetPoint(Autodesk.AutoCAD.Interop.AcadDocument, ref object, ref object)' has some invalid arguments H:\CESBRON\Traceur\Doc.cs 201 7 Traceur