dr.loveless

Bonjour, Apres avoir dessiner une ligne, je souhaiterias la forcer comme étant toujours dessus, comment dois-je m'y prendre? Dim A(0 To 2) As Double Dim B(0 To 2) As Double Dim MaLigne as acadLine A(0) = 0: A(1) = 0: A(2) = 0 B(0) = 0: B(1) = 1000: B(2) = 0 Set MaLigne= ThisDrawing.ModelSpace..AddLine(A,B) ?????-> Ordre d'affichage Merci

Heu, je sais que j'ai du mal, mais çà je connais merci, ce que je veux c'est pouvoir integrer la boite de dialogue couleur d'autocad dans un programme, donc en cliquant sur un bouton de commande d'un userform, je voudrais que la boite de dialogue couleur s'affiche.( je parle de la boite de couleur disponible en faisant "option" "affichage" "couleur" et en selectionnant "selectionner une autre couleur" dans la liste déroulante). j'espère avoir été plus clair!! merci Pako, tjs présent au poste je vois. Au fait pkoi tu voulais savoir ma nationalité?

Salut, je cherche à utiliser la boite de dialogue couleur d'Autocad 2004 depuis un Userform que j'ai créer, est-ce possible? je sais qu'on peut utiliser la boite standard de Windows, mais celle d'Autocad dispose des couleurs "RAL" utilisées dans mon entreprise. merci

La dernière équation n'est pas bonne : x²+y²=100 (L-x)/y=(l-y)/x donc (L-x)x = (l-y)y -> Lx-x² = ly-y² -> Lx-ly = x²-y² et non pas x²+y² sauf erreur de ma part. J'arrive donc à une équation : rac = racine ly-L.rac(100-y²)+100-2y²=0 Bon courage à ceux qui voudrait la simplifiée!

Non, je pratique autrement en fait. A chaque création de fichier je créer une nouvelle ligne dans la base access avec toutes les informations que j'ai remplit dans la boite de dialogue.Des que je valide la création d'un nouveau plan, une ligne se crée dans Access, et un champ comporte le cheminement complet du plan ( l'endroit ou il est enregistrer sur le disque), puis un cartouche s'insere automatiquement et est également remplit automatiquement, et enfin le plan est enregistrer, access lui à attribuer un numéro. Par la suite, j'ai creer un prog VB avec l'aide des forumiteux de CadXP que je remercie une nouvelle fois au passage, qui permet d'identifier un plan. En effet des son ouverture le programme l'examine, s'il fait parti du fichier de gestion des plan, le logicile me demande si je veux changer d'indice, si je choisi oui, une boite de dialogue apparait, je l'a remplit et je valide, une nouvelle ligne est créer dans access comportant les indications nécessaires, le cartouche est incrémenté et enfin le fichier ancien indice est enregistrer en archivage. Pour la recherche d'un plan, j'ai créer un autre programme. une boite de dialogue s'affiche me demandant le numéro du chantier ( à faire evoluer pour améliorer les recherche) et la logiciel fouille dans access et m'affiche un listing des plans correspondant. dans se listing quand je selectionne un plan, un aperçu s'affiche et si c'est le plan qui m'interresse je peux l'ouvrir. Mais attention, tout çà n'est possible qu'a partir du moment ou la demande et l'organisation propre à l'entreprise est fiable, pour ma boite, on a revu tout le systeme de gestions des plans (méthodologie d'enregistrement de nom de fichier, de nombre de caractère dans chaque nom de fichier) avant même d'avoir fait le moindre programme. Celà n'est possible ici que depuis 15 jours ici, et m'a demandé enormément de travail. N'hésite pas à demander mon aide !!! Allez courage, et n'oublie d'identifier précisemment tes besoins en établissant un cahier des charges précis avant de t'engager dans des programmes. Quand çà c'est fait, le plus dure est fait, la prog s'est simple que quand on est rigoureux et on trouve de l'aide sur CadXP !! Bonne journée

J'en ai créer un propre à mon entreprise via Access, c'est chiant à faire d'auatnt plus que moi non plus je ne connaissait pas access, mais maintenant que c'est mis en place personne ne pourrait s'en passer, un gain de temps énorme !! Bon courage!

Salut, Developpant actuellement un programme permettant de faire des élévation de cloisons rapidement, je voudrais pouvoir avoir un apercu dans un coin de mon Userform, dans le même principe que la fenêtre des style de côtes ( mise à jour de l'apercu par rapport aux données entrées). Quelqu'un saurait-il comment on s'y prend et quel type de contrôle on doit utiliser? Merci

OK, merci pour ces explications concernant les "plans". En ce qui concerne le programme va falloir que je fouille en VBA, je vous tiendrai au courant si celle-ci sont fructueuses. Merci encore à tous et bonnes vacances

Je vois que Pako m'a compris, c'est bien çà que je veux faire, des que dans Autocad je change de plan ( donc j'active un nouveau plan ou dessin ) un lisp doit être éxecuté automatiquement. Je comprends pas l'incompréhension de Patrick et Didier ?? Je ne dispose certainement pas d'un vocabulaire suffisant. Pourquoi quand je parle de plan (dessin) , on me parle de layer (calque)?? merci. Je recapèpète : Avec la fonction Startup, on peut executé un Lisp automatiquement à chaque ouverture ou création d'un dessin. Je cherche un moyen d'executé un lisp à chaque activation de celui-ci, j'entends par activation le fait le rendre le dessin "actif" donc d'avoir la possibilité de travailler dessus. Par exemple, j'ouvre le dessin n°1 ( avec Startup, un lisp s'execute ), j'ouvre un autre dessin ( dessin n°2 ; avec startup le même lisp que précédemment s'execute), ensuite je veux pouvoir poursuivre le dessin n°1, donc je vais dans "fenêtre" et en bas je choisis "dessin1" ( donc je l'active), et là le startup ne s'execute plus vu qu'il ne s'execute que lors de l'ouverture du dessin. Je cherche donc le moyen d'executer un lisp systématiquement à ce niveau ( donc à chaque activation d'un dessin). Voilà, j'espère avoir été assez explicit cette fois ci. Merci

J'ai pas compris le rapport !!

Salut, je voulais savoir si qq conaitrait une méthode pour executer automatiquement un programme lisp à chaque activation d'un plan ( par ex, je suis sur un plan, je veux changer de plan donc je vais dans fen^tre et je choisis le nouveau plan, à ce moment je voudrais executer un lisp automatiquement. Il existe la fonction startup pour chaque ouverture de plan, mais j'ai rien trouver pour chaque activation de plan!! Ca me parait impossible, mais sait-on jamais !! Merci

Merci Pako, çà fonctionne nikel, mais à titre indicatif, est-il possible d'augmentar la qualité de l'aperçu? Merci encore!!

Merci de ton explication j'essayerai demain au boulot! D'ailleur j'ai télécharger le version 1.7 au boulot, et je ne trouve plus le site où je l'ai chopé, on sais jamais y aviat p'ete d'autre controle interressant, en revanche je n'ai trouver aucune trace d'une version 1.9 Ich Bin Franzosich

J'ai trouvé la version 1.7 que j'ai téléchargée, mais apres j'en fais quoi?C'est pour une utilisation dans VBA et non dans VB, parce que j'ai trouvé des explicatifs mais uniquement pour une utilisation en VB !! Le fichier ocx, j'en fais quoi? Moi pas connaitre, çà être trop compliquer pour ma petite tête. Merci

Salut Afin de completer l'exporateur de plan developpé pour mon entreprise, je cherche à intégrer un apercu du plan selectionner dans cette Userform (comme le fais l'explorateur de fichier d'Autocad). Quelqu'un saurait-il comment on si prend ?? pour ma part j'ai beau fouiller sur le web, je n'ai vraiment aucune idée de la manière de pratiquer. Merci

Salut, merci de vos réponses Solution par boites dialogues : ne correspond pas à ce que je voudrais comme résultats,dans la continuité du programme. Changer la police : j'ai essayé plusieurs polices, et plusieurs hauteur de texte, toujours 80~81 caractéres. LineLen : Comprends pas !! Résolution d'écran : tjs 80 caractères. Qualqu'un pourrais me dire si il a également 80 caractères max dans la ligne au dessus de la ligne de commande? Sincèrement merci

Bon pour clore la discussion, j'ai enfin réussi à trouver la solution à mon probleme : Pour effectuer un chargement automatique, il faut placer le code suivant dans un fichier mnl, qui dois porter le même nom que le fichier de menu (* mnu ) charger par Autocad : - pour un fichier lisp, vlx : (load "monlisp.lsp) - pour un fichier dvb : (vl-vbaload "monVB.dvb") Il faut pour celà que les fichiers soient dans le même repertoire, sinon il faut indiuer l'arborescence complète : - pour un lisp : (load "C:/monrepertoire/mon fichier.lsp) ou (load C:\\monrepertoire\\monfichier.lsp) - pour un dvb : (vl-vbaload "C:/monrepertoire/mon fichier.dvb") ou (vl-vbaload "C:\\monrepertoire\\monfichier.dvb)" Et voilà, le tour est joué :cool: Merci à tous

Merci Didier, mon sauveur ;-) :D

Merci pour ces explicatifs, mais je ne vois pas comment l'adapter à mon probleme. En fait il y a déjà une userform dans lequel j'ai entré les nouvelles valeurs d'attributs. Quand je valide, je voudrais que çà me change directement les attributs, sans avoir à selectionner le bloc ( le bloc aura tjs le même nom). Le probleme que je rencontre, c'est que : dim obj cartouche as acadblock , alors je ne peux pas utiliser la fonction getattributes dim objcartocuhe as acadblcokreference, alors je peux utiliser la fonction getattribute, mais je n'arrive pas à selectionner mon objet via set : Set objCartouche = ThisDrawing.Blocks ("Cartouche") -> erreur C'est assez complexe, j'espère que tu auras compris sinon c'est pas grave, je bosserai sur plus sur la méthode que tu me proposes. Bonne nuit

Salut, je cherche à modifer les attributs d'un cartouche. Le cartouche est déjà insérés, je veux modifiés les attributs pour effectuer un changement d'indice. Si j'écris le code ci-dessous, çà va me réinserer un cartouche : Private Sub cmdGrandFormat_Click() Dim objCartouche As AcadBlockReference Dim PtInsert(0 To 2) As Double PtInsert(0) = 0: PtInsert(1) = 0: PtInsert(2) = 0 Set objCartouche = ThisDrawing.ModelSpace.InsertBlock(PtInsert, "R:\0-DAO-Gestion\Cartouches\04-Cartouche direct.dwg", 1, 1, 1, 0) objCartouche.GetAttributes(0).TextString = nomduplan1 objCartouche.GetAttributes(1).TextString = nomduplan2 objCartouche.GetAttributes(2).TextString = numerodaffaire objCartouche.GetAttributes(3).TextString = Typedeplan objCartouche.GetAttributes(4).TextString = numerodeplan Unload Me End Sub Le bouquin que j'ai ne m'en explique pas d'avantage, je veux seuleument modifier les attributs déjà dans le block. Merci

Salut, je cherche à déplacer un fichier d'un repertoire vers un autre : object.MoveFile source, destination object correspond à quoi ?? merci

Ma devise : pourquoi faire simple quand on peut faire compliqué... franchement je me complique la vie. Merci Didier

Bonjour à tous, Je ne trouve pas la méthode me permettant de choisir et d'afficher automatiquement un certain onglet d'une multipage placé dans une boite de dialogue ?? Pour détailler, j'ai placé une multipage composée de 28 onglets (index de 0 à 27). Lors de l'exectuion de mon programme et en fonction du déroulement de celui-ci, je voudrais voir s'afficher directement un des onglets (pas toujours le même) lors de l'affichage de la boite de dialogue, et une fois encore je bloque sur la méthode ?? Pourtant je vous jure que je fouille.... mais rien n'y fais!! Merci

Salut, Quand on créer un fichier VLX depuis visual lisp en mode expert, il est stipuler qu'on peut y mettre également des fichiers dvb ( visual basic) hors j'ai beau avoir essayer, rien n'y fais! Impossible ! Pourtant c'est marquer qu'on peut ?? Est-ce normal?? Suis-je stupide ??

Merci, je vais essayer çà !