didier

hello, tu n'es pas obligé(e) de répondre, mais vu qu'une fois tu parles au féminin et la fois précédente au masculin, ne voulant froisser personne, fais attention à ta frappe, en sachant, on ne fera pas de fautes en te répondant amicalement

coucou Non, reviens, et pose ta question de manière claire, tu trouveras de l'aide, quel que soit ton métier, on se taquine mais c'est gentil, t'inquiète pas ... reviens à la charge, et si quelqu'un peut t'aider, il le fera on sait déjà que tu parles de blocs, bien, télécharger, tu veux dire, sur CadXp ou en général ? pour que ton dessin soit clair ? c'est une légende que tu souhaites ? amicalement

Hello, je viens te proposer une alternative, car à deux têtes on pense deux fois :) Dim i As Integer Dim TabLayer() As Variant ReDim TabLayer(9999) For i = 0 To ThisDrawing.Layers.Count - 1 TabLayer(i) = ThisDrawing.Layers.Item(i).Name Next ReDim Preserve TabLayer(i - 1) c'est juste pour le fun, ce n'est en rien une critique, car il est vrai, qu'on a chacun une façon de faire ... amicalement

Bonjour, j'ai mauvais caractère, en fait je suis entier, je ne vais pas me faire que des amis, mais je m'en fiche car ce que je pense, je le dis; et depuis quelques temps je constate une évolution du site vers des services payants. il me semble que c'est une dérive de l'esprit initial. si on veut faire payer ses services, ce que je comprends tout à fait il ne faut pas se cacher derrière son petit doigt, et afficher la couleur en renvoyant le demandeur vers un site payant, mais je trouve celà dérangeant de le trouver dans la réponse à une question sur un site gratuit. je ne veux pas te fâcher, REBCAO, car c'est à Toi que je pense, mais je comprends mieux maintenant ton entêtement à vouloir trouver de nouveaux donateurs. un grand merci à Patrick_35 qui renvoie vers des sites d'apprentissage. Nous avons tous appris ce qu'on sait aujourd'hui grâce à ces gens. A nous de renvoyer l'ascenseur. En souhaitant être compris et donc ne pas être trop mal jugé pour cet avis qui étant personnel n'engage que moi. amicalement

Hello, ne sois pas frustré du manque de réponses, mais le VBA n'est pas très répandu chez les utilisateurs, je sévis de temps à autre dans ce langage et je ne viens pas assez souvent sur le site pour lire les messages concernant ce langage. si Pako est là, il réponds souvent aussi, d'ailleurs je profite de ce message pour lui transmettre mes amitiés ;) à bientôt

Hello, Le Lips, c'est pas répandu comme langage, on va te répondre en Lisp et tu feras la transformation ;) . Mais tu n'es pas différent de la masse des questionneurs, ta demande est aussi claire dans ta tête, qu'elle est incomplète dans ta question. tes polylignes sont en 2D ou en 3D ? faut il coter des altitudes ou des longueurs ? peut on mettre du TEXTE ? ou, au contraire te faut il des COTES , voire associatives ? en sachant tout ceci, il sera aisé de te guider dans ton Lisp, amicalement

salut, il me semble que ça a déjà été traité, mais ... va voir du côté de BEGINLISP mais par contre je ne sais pas facilement traiter des varaibles lisp en VBA et inversement amicalement

bonjour à toi, Je ne suis pas dans le même secteur d'activités, donc je ne pourrai te répondre, en revanche, je m'offusque du fait que tu veuilles BAISSER les tarifs. c'est à cause de cette façon de faire que les sociétés ne sont plus crédibles, les tarifs plus élevés sont expliqués par une disponibilité, un contrat d'assurance, un suivi des clients et pleins ne choses non apparentes sur un devis. IL NE FAUT PAS NIVELER PAR LE BAS. amicalement et bonne chance

Bonjour, il est encore temps de te souhaiter la bienvenue, venons en à ton souci. je n'ai pas le moyen de vérifier sur d'autres versions que la 2005,mais, le test fait apparaître que les objets insérés via la commande INSERM deviennent eux mêmes un BLOC dans le fichier, il n'est pas décomposable d'ailleurs, De ce fait il est normal qu'il ne soit reconnu qu'un seul Point d'Insertion. En revanche tu peux utiliser les Accrochages classiques à l'intérieur de ce bloc créé par AutoCad. à vérifier sur d'autres versions, merci aux autres. amicalement

je te salue l'ami Eric, tu as une bonne mémoire, je vois ça. Exemples de la Loi de Pareto : 85 % des dégradations sont dues à 15 % des élèves 70 % des dépenses de santé concernent 10 % des malades 80 % des subventions vont à 20 % des agriculteurs 95 % des absences viennent de 15 % des professeurs... Je vous laisse libre de calculer une application sur CadXp !!!! amicalement, c'est dimanche soir, faut que je prenne la route ! à la semaine prochaine ...

salut Eric, bon dimanche à toutes et à tous, tu parles de rabat-joie ? tu n'es pas, rassure toi, c'est une simple constatation du genre humain, et encore, tu ne parles pas de ceux qui donnent des réponses ... c'est un fait, c'est ainsi, si triste que celà soit :mad: je pense qu'à la fin de mon déplacement, je pourrai venir vous rejoindre, à bientôt amicalement

hello ah !! les clotho :( ça fait causer et on cherche toujours l'hypothétique décimale ... dans la réalité, jai réussi un vba qui dessine une SPLINE qui respecte parfaitement les données de l'axe en plan, mon seul souci est de l'intégrer dans le module Covadis, c'est impossible, car l'entité n'est pas créée par Covadis et il n'en veut pas, obligé de travailler avec ces pu.. de polylignes segmentées, qui modifient, entre autre, les coordonnées des sommets :mad: souhaitons une évolution. amicalement

Bonjour à Toi, pour ta deuxième question je te propose une alternative : (setq ent (car(entsel"\nChoix de l'Objet\n")) ......... ent2 (entget ent) ......... pins (cdr(assoc 10 (entget ent))) ......... z-actuel (caddr pins) ......... z-nouveau (cons 10(list (car pins)(cadr pins)0)) ......... ent (subst z-nouveau (assoc 10 ent2) ent2) ......... ) (entmod ent) je t'en souhaite une bonne utilisation. amicalement

hello RebCao je te demande pardon, mais tes propos n'ont RIEN à faire sur le site, l'humour est une chose, le prosélytisme en est une autre. avis personnel, bien sûr

hello, je vais finir par te prendre par la main ;) sous répertoire INF fais une recherche en sélectionnant les sous répertoires à tout de suite si je comprends bien ;)

hello Esbe, ce qui va sans dire va mieux en le disant : choisir l'option : afficher même les fichiers cachés il est dans le répertoire de Windows... amitiés

hello, bienvenue sur CadXp, ta question est déroutante, ce n'est plus débuter, c'est à peine démarrer voire s'initier ... mais je suis dans un jour de grande mansuétude ;) c'est parti : un fois le dessin réalisé, l'unité dessin étant le mètre, lance la commande TRACEUR, dans la fenêtre qui s'ouvre, tu as plein de choix, mais ta question portant sur les échelles, 1> Tracer l'Espace Objet: le choix de l'échelle de sortie se joue dans la case mm = unités tu renseignes le premier par 1000 le deuxième par : le nombre de millimètres sur le traceur qui représenteront UN mètre sur le terrain. par exemple : 1000=100 (1000 millimètres tracés = 100 mètres sur le terrain) traçage au 1/100 2 > Tracer l'espace Papier le choix de l'échelle est plus simple, c'est 1 pour 1, mais il faut pour celà que l'unité de l'Espace Papier soit le millimètre, donc pour dessiner un A4, tracer un rectangle de 297 par 210. à l'intérieur de celui-ci faire une FMULT, c'est à l'intérieur de celle-ci qu'on choisit le facteur de zoom qui définira l'échelle, un zoom de 20XP signifie : 20 millimètres pour une unité dessin de l'espace objet en l'occurence traçage au 1/50. en souhaitant t'avoir dépatouillé, à bientôt, mais il va falloir penser à une vraie formation, car on ne va pas t'aider ainsi pour toutes les commandes amicalement

coucou ben, je vois ça, il a du faire un mauvais CALCUL, d'ailleurs il a été opéré pour ses calculs, maintenant il ne devrait plus se faire de bile, par manque de vésicule :( a m i c a l m e n t

Bonjour Esbe, si tu ne le trouves pas dans la liste des programmes à désinstaller, c'est qu'il est caché, malin le didier, d'avoir trouvé ça, non ? bon, ben, c'est pas tout, pour le rendre visible à la desinstallation, repère le nom du prog, dans le fichier SYSOC.INF sur la ligne du prog recherché, supprime le mot HIDE au prochain démarrage, il devrait apparaître dans la liste. en te souhaitant de la réussite ;) amicalement

salutations pentecôtiennes à tous les présents Qui est ce qui travaille en ce jour , en passant, j'ai vu de la lumière dans le bureau du ci-devant RAFFARIN http://img66.echo.cx/img66/6695/raf06as.jpg Est ce bien raisonnable Jean Pierre ? Je peux t'appeler Jean Pierre, n'est ce pas ? Après tout, tu nous niques le week end ... amicalement tout de même

hello, je te souhaite le bonsoir, quelque chose me turlupine : il se trouve que je sévis dans la même profession, et ça c'est pas banal. depuis les années 75, où on faisait des agrandissement graphiques pour obtenir des coordonnées de sommets, je ne l'ai jamais revu. comme quoi il ne faut jamais dire jamais. amicalement

Bonsoir Patrick, c'est sympa, en cette fin de dimanche studieux, de nous filer un sujet de réflexion :) c'est empirique mais ça fonctionne ... Je te tape vite fait sur le gaz un petit truc qui se base sur le test des gisements. Le principe c'est de comparer le gisement du point sélectionné avec chaque départ de segment de la polyligne dès qu'il y a égalité c'est qu'on est sur le même segment, on l'affiche et on se casse. le souci, c'est que je n'ai pas réussi à envoyer à VBA le fait de sélectionner la Polyligne avec l'accrobj "proche", donc au prompt "choix de la polyligne", il faut taper "pro" puis valider et de ce fait le point sélectionné sera proprement sur un segment Sub zaza() Dim ObjPol As AcadEntity Dim PtSel As Variant Dim Pt1(0 To 2) As Double Dim Pt2(0 To 2) As Double Dim TableauCoord As Variant Dim Tempo As Integer Dim AngleVertex As Variant Dim AngleTest As Variant ThisDrawing.Utility.GetEntity ObjPol, PtSel, "Sélection de la polyligne ..." TableauCoord = ObjPol.Coordinates Tempo = 0 For i = 0 To UBound(TableauCoord) Step 2 Pt1(0) = TableauCoord(i) Pt1(1) = TableauCoord(i + 1) Pt2(0) = TableauCoord(i + 2) Pt2(1) = TableauCoord(i + 3) AngleVertex = ThisDrawing.Utility.AngleFromXAxis(Pt1, Pt2) AngleTest = ThisDrawing.Utility.AngleFromXAxis(Pt1, PtSel) Tempo = 1 + Tempo If AngleVertex = AngleTest Then MsgBox ("Ceci est le Segment : " & Tempo) End End If Next End Sub ben voilà ma contribution à la résolution de ton souci, mais il existe peut être quelque chose de plus "propre", je n'ai pas pris le temps d'une profonde réflexion, saoulé d'AutoCad par ma journée ... amicalement

hello, eh oui, c'est comme dans Excel, lorsqu'il y a trop de feuilles dans un classeur il faut utiliser les petites flèches de gauche pour se déplacer... amicalement

hello, le service du cadastre ne possède pas cette information, à l'extrème rigueur, c'est le registre de la conservation des hypothèques, mais c'est quasi confidentiel comme service. avec un peu d'habitude,en regardant l'immeuble tu vas tomber juste, fourchette de vingt ans. envoie une photo ... amicalement

Bonjour, je sais bien que tu postes dans le forum Lisp, mais puisque tu débutes, pourquoi ne pas se mettre au VBA ? voici ce que tu souhaites réaliser en VBA : Sub DoubleDecal() Dim Objet As AcadEntity ThisDrawing.Utility.GetEntity Objet, basePnt, "Select an object" ObjetDecal1 = Objet.Offset(0.25) ObjetDecal2 = Objet.Offset(-0.25) End Sub simple, propre, efficace ... amicalement