didier

Bonjour, le bug dont tu parles au sujet des Polylignes est un problème AutoCad, celà ne dépend pas de Covadis, une image extraite de l'aide AutoCad nous montre un exemple de création d'arc de POLYLIGNE, et ils ne se mouillent pas ... http://img354.imageshack.us/img354/7392/cadxp096pk.png Quant au reste de ton message, je serai en peine pour te répondre, n'utilisant jamais ces fonctions. Les cartouches sont tellement différents d'une entreprise à l'autre qu'un exemple ne serait en rien explicatif, du moins il me semble. Chaque client m'en demande un différent depuis trente ans ... amicalement

bonjour, au premier message, il faut te répondre correctement, sinon quelle idée vas tu te faire de CAdXP. en appliquant ce qui suit, tu n'auras pas l'associativité des hachures sur l'objet. en l'occurence, je hachure la dernière entité du dessin, souhaitons pour toi que tu as créé une polyligne close, mais le sujet c'est les hachures, le reste tu le gères. (command "_-bhatch" "p" "solid" "a" "a" "n" "" "s" (entlast) "" "") Amicalement

Hello, Mon avis n'est sans doute que consultatif, je ne m'en gênerai pas moins pour le donner. BOF, franchement, celui qui lit CadXp dans ce tortillon, sans barre au A, ni barre au P, je ne voudrais pas le lire en manuscrit. Libre à Toi de choisis le logo que tu veux, ce n'est que de l'aménagement graphique, et s'il te plaît, et ben, il deviendra le logo officiel. amicalement.

bonjour, la version 2000 est bien loin dans mes souvenirs, très bonne version par ailleurs. il me semble avoir résolu ce problème à l'époque en appliquant la compatibilité Windows98 dans les options de l'icône. à vérifier, tu me tiens au courant, car j'ai aussi un "exe" qui calme ce genre de problème. Mode opératoire : clic doit sur l'icône de lancement sur le bureau tout en bas Propriétés Troisième onglet : Compatibilité http://img344.imageshack.us/img344/5167/compatibilit2jl.png Ne pas oublier de sortir par Appliquer Amicalement

Bonjour Madame et Monsieur AutoDesk, La prochaine fois que vous irez dans le lit conjugal pour agrandir la famille de vos enfants. Un tout petit utilisateur d'un tout petit pays souhaiterait que vous pensiez à ajouter une option dans la commande PROLONGER excusez le français, je voulais dire EXTEND. Dans cette commande lorqu'on a choisi par TRAJET une POLYLIGNE, une seule de ses extrémités se prolonge et il faut donc relancer pour l'autre extrémité, Je vous joins deux images pour illustrer mon propos, qui, je le sais d'avance, n'a quasiment aucune chance de vous arriver aux oreilles :D Bien amicalement, http://img297.imageshack.us/img297/9282/cadxp061ys.png le résultat obtenu : http://img297.imageshack.us/img297/4059/cadxp078km.png

bonjour au Bucheron excuse le délai de réponse, mais j'ai zappé ton message :( ben, je ne sais pas ce qu'il en est du lisp dans Autodesk Architectural Desktop. pardon reposte sur le forum spécialisé amicalement

coucou oops :( j'ai omis la dernière question, pour te répondre une recherche sur Google va te laisser pantois devant le choix....

Je te salue Lospablitos, Bienvenue chez CadXp. ;) les réponses sont c'est bien oui oui Je détaille en partant dans le sens inverse de tes interrogations, Les programmations prédéfinies sont dans les Menus Express Les languages reconnus par AutoCad sont le VBA, AutoLisp et VisualLisp, tous les trois sont livrés avec le logiciel. Quant à créer une nomenclature de ton fichier sur Excel, il serait intérressant de savoir le contenu de celle-ci, que veux tu exporter ? amicalement

Bonjour Jumppy, Bienvenue sur CadXP ;) Ne connaissant pas ton niveau de maîtrise d'AutoCad, je vais te répondre comme pour un débutant, n'y vois pas d'injure ;) Il faut utiliser la commande PURGER Le calque se supprimera d'un fichier si et seulement si : le calque ne contient AUCUNE ENtité le calque n'est pas le calque 0 (zéro) le calque n'est pas le calque courant si le calque s'obstine à rester, alors que tu es sûr qu'il est vide, c'est sûrement parce qu'une définition de bloc a besoin de ce calque, fais une recherche, car sur le site existe une routine de redéfinition des blocs dans le calque 0. il faut aussi savoir que les calques DEFPOINTS et ASHADE sont réservés à AutoCad et il ne les purgera pas. il faut aussi vérifier si les calques à purger ne sont pas utilisés dans l'Espace Papier. je ne vois pas grand chose à rajouter, les omissions seront complétées par les cadors de CadXp ;) amicalement

Bonjour, En relisant, il apparaît une redondance : si tu commences par With ThisDrawing.Utility ensuite tu n'y fais plus appel With ThisDrawing.Utility .getangle "Sélectionnez le premier point: " ensuite tu peux continuer... puis end with amicalement

bonjour, et bon dimanche, j'ai testé et pourtant il n'a pas détecté mon pare-feu. il est peut être un peu ancien, donc il n'est pas référencé. j'envoie une image de ce modèle peu connu, qui a entre autre avantage d'être un véritable Pare-Feu. Amicalement http://img386.imageshack.us/img386/6197/parefeu5ja.jpg

Bonjour, je fais donc partie des âmes charitables, ben ça alors, tu m'en vois ravi :) Etudie ce bout de code qui va dans le sens de ton besoin il fonctionne tout le temps, mais avec des lignes puisque tu veux travailler, je te suggère de l' améliorer pour que lorsque la pente est de 0 il soit écrit "HORIZONTAL" idem pour le cas "VERTICAL" la balle est dans ton camp. Une dernière chose, fais attention à l'orthographe dans les invites, ça la fout mal de voir des fautes, l'utilisateur se pose des questions sur le programmeur... Sub EcrirePente() Dim P1 As Variant, P2 As Variant, P3 As Variant Dim EntLigne As AcadLine Dim Pi As Double Pi = 4 * Atn(1) Dim EntTexte As AcadText ' ne fonctionne qu'avec des lignes 'à toi de mettre un filtre ThisDrawing.Utility.GetEntity EntLigne, Point, "Sélectionnez une LIGNE ..." If EntLigne.EntityType = acLine Then P1 = EntLigne.StartPoint P2 = EntLigne.EndPoint Else MsgBox "il faut sélectionner une LIGNE" End End If 'Position de l'écriture PointX = ThisDrawing.Utility.TranslateCoordinates(Point, acWorld, acUCS, False) P3 = ThisDrawing.Utility.GetPoint(Point, "Où est ce que je vais mettre cette Pente ?...") 'calcul de la pente pointx1 = ThisDrawing.Utility.TranslateCoordinates(P1, acWorld, acUCS, False) pointx2 = ThisDrawing.Utility.TranslateCoordinates(P2, acWorld, acUCS, False) alpha = ThisDrawing.Utility.AngleFromXAxis(pointx1, pointx2) If alpha > Pi Then alpha = alpha - Pi tg = Abs(Tan(alpha)) ' pente locale signe = Sgn(alpha): If signe = 0 Then signe = 1 alpha = ThisDrawing.Utility.AngleFromXAxis(P1, P2) If alpha > Pi Then alpha = alpha - Pi ' HauteurTexte du texte PointX = ThisDrawing.Utility.TranslateCoordinates(P3, acWorld, acUCS, False) HauteurTexte = ThisDrawing.Utility.GetDistance(PointX, "Hauteur du texte :") Set EntTexte = ThisDrawing.ModelSpace.AddText(Format(tg, "0.0##%"), P3, HauteurTexte) If (alpha > Pi / 2) Then EntTexte.Rotation = alpha - Pi Else EntTexte.Rotation = alpha EntTexte.HorizontalAlignment = acHorizontalAlignmentCenter EntTexte.VerticalAlignment = acVerticalAlignmentBottom EntTexte.TextAlignmentPoint = P3 EntTexte.StyleName = ThisDrawing.ActiveTextStyle.Name EntTexte.ScaleFactor = ThisDrawing.ActiveTextStyle.Width EntTexte.Update End If End Sub Amicalement

bonsoir, il me semble que tu as compris mais, faisons tous un effort pour être explicite. Si le FICHIER TATA contient des textes écrits avec un STYLE nommé PIC,qui utilise la POLICE ARIAL Si le FICHIER TOTO contient des textes écrits avec un STYLE nommé PIC, qui utilise la POLICE SIMPLEX Le résultat de l'insertion de TOTO dans TATA est que : les textes de TATA prendront la POLICE de TOTO, car ils ont le même nom de STYLE, pas de POLICE Si les deux styles utilisent la même police, aucun souci. Si le style n'esxiste pas dans le fichier hôte, il est créé au moment de l'insertion de celui-ci. amicalement

;) ;) ;) ;) 1 : prendre l'ascenseur 2 : les meubles IKEA, c'est pas fait pour les chiens... je suis plié de rire, j'ai honte, mais je suis plié quand même. vous connaissez pas un Kiné pour me déplier ? âme y calmant

bonsoir, pour les messages d'erreurs AutoCad, il va falloir que tu trouves un spécialiste sur le Net. requête : cherche un traducteur qui parle le japonais médiéval, première époque, pour traduire en bas breton, le souci c'est qu'un mot sur deux est dans la langue inverse. c'est relativement simple, mais je suis un pur fainéant ;) ;) amicalement

Bonjour, ben quelle question !!!!! C'est absolument NORMAL Dans le fichier TOTO, le STYLE "standard" utilise la POLICE "arial" Si tu insères le fichier TATA, ce sera avec les paramètres de TOTO, c'est lui qui reçoit, il commande, non mais! De même, si dans TOTO et TATA, il y a un calque qui a le même nom, mais des couleurs différentes, c'est encore celui qui reçoit qui a la priorité. c'est aussi vrai pour les définitions de blocs et bien d'autres choses... amicalement

Bonjour Si j'ai bien compris, une input box te pose une question, tu lui réponds en français dans le texte, par exemple "gris" "rouge" donc il ne reste plus qu' à "traduire" pour que VBA comprenne, il n'y a qu'à faire une correspondance de valeur, rouge = AcRed etc ... si je suis hors sujet, reviens à la charge amicalement

hello, t'as pas de chance, jamais vu, jamais entendu parler. quelle est l'origine du fichier qui pose problème ? c'est peut être dans cette direction qu'il faut chercher. amicalement

bonjour, la variable qui stocke le nom du style de texte en cours c'est TEXTSTYLE exemple (setq StyleEnCours (getvar "TEXTSTYLE")) (setvar "TEXTSTYLE" "monstylependantleprogramme") bla bla et à la fin du programme (setvar "TEXTSTYLE" "StyleEnCours") amicalement

hello ben, moi aussi, amicalement

coucou ce que j'en pense ? de quoi ? des petits carrés avec une croix rouge au milieu, on dirait une cible :( comme disait ma grand mère : quand on voit ce qu'on voit et qu'on entend ce qu'on entend on a raison de penser ce qu'on pense. je vous laisse réfléchir là dessus et je vais faire dormir mes yeux ... amicalement

bonsoir, je suis une triple buse de niveau planétaire :( :( :( en arrivant à la maison, que trouvé-je dans ma boîte à mails ? le code d'ALIBRE. eh oui, le pôv garçon il donne son adresse perso et il attend au bureau ... j'ai ce qu'il faut désormais pour télécharger et m'inscrire, je vais tester et vous déranger si j'ai des questions. sur ce une petite sieste et au lit ... une longue semaine de profils en travers avec travail de nuit en prime m'attend ... salutations à toutes et à tous

coucou excuse le délai de réponse mais je ne suis pas là souvent, envoie moi un message privé on se contactera ensuite par mail, ton souci est sur le point de se résoudre... une fois qu'on aura fait le tour du problème le lisp sera sur le site pour les futurs apprentis amicalement

hello, il va falloir voir à voir :( à priori, pas de souci, les "Xdatas" sont différentes pour chaque aire ? d'ailleurs dans ton vocabulaire, c'est quoi une aire ? perso, une aire est une valeur de résultat, pas un objet. donc, explique toi :exclam: amicalement

hello, t'as choisi le bon avatar, tu as bien raison de te têter la gratte, te gratter le tête voulai-je dire... ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;) ;)