lovecraft

Merci j'ai pu faire ce que je voulais: 1) creation d'un bloc avec trois attribut 1er attribut (champ expression diesel ====>$(getvar,users1) 2sd attribut (champ expression diesel ====>$(getvar,users2) 3ieme attribut (champ expression diesel ====>$(+,$(getvar,users1),$(getvar,users2)) Creation d'un icone avec la macro ci-dessous ^C^C_.'attdia;0;_.'users1;\_.'users2;\_.-insert;"NOM-DU-BLOC_3ATT";\1;0;;;; Merci à toi bonuscad

re, Pour la version compléte AUTOCAD 2007 pour être plus précis. Merci

bonjour, Je présente mon sujet: Soit un bloc avec 3 attribut: Dans le premier un valeur dans le second une autre valeur, dans le troisieme je voudrais la somme des deux premiers attributs. Merci de votre aide.....

re, lili2006 t'as pas repondu au second ;) @plus

bonsoir, Ce n'est pas grave.le principal c'est que vous l'avez vu ;) @plus

bonsoir, Moi je dis pas mal, pendant des années je cherchais une solution, j'utilisais donc une méthode peut etre babare (celle de creer des wipeout), mais elle fonctionnait "Avec quelques bugs lors des impressions et en plus ça allourdi le système; mais là, j'avoue c'est top. Merci pour cette astuce. @plus

Bonjour esbe, Est ce que t'es point sont en 3D. @plus

bonjour, je suppose que tu possedes covadis puisque t'as déposé le sujet (covadis) donc si c'est le cas tu fais cov-edition---------- >polylignes----------------> polyligne 3D->2D. voilà @plus

bonjour patrick, est ce que t'as le chemin d'accès de tous les fichiers autocad ( base excel)avec lesquelles tu veux realisé l'opération de zoom etendu. @plus PS: Si oui j'ai qqe chose pour toi alors.....

re, Là je pense que tu te precipites un peu vite , dans ton dernier message tu nous dis que t'es a l'arme et qu'il te reste encore 3 ans à faire...... d'ici-là on demandera certainement BAC + 15.......;) Allez c'était une boutade PS: Autrement par rapport a ta situation je connais pas mal d'ancien militaire qui se sont reconvertis entant que dessinateur voir même projeteur. Bonne continuation

Bonjour, ben je suis d'accord avec toi patrick sur la qualité des dessins de nos jours enfin ce n'était pas le sujet. je pense que le plupart des gens confondent dessinateur et projeteur. -une dessinateur c'est pour faire du dessin "bête et méchant" pas besoin d'avoir une grande expérience. c'est un travaille d'excutant. -un Projeteur excécute les missions que lui donne l'ingénieurs donc il a besoin de connaissance afin de méné a bien son projet. après il faut savoir ce que tu recherches =====> si tu veux travailler dans le monde de l'industrie,mécanique, du batiment , genie civil, architecture, ou les travaux publics ou encore même dans les cabinets de géomètre. Bonne chance PS: Il existe des formations en alternance dans les gretas.

re, je vois tu dois avoir windows vista? Donc dans la macro il faut que tu modifie la ligne suivante: repertimp = "c:/" =====>donne un autre chemin pour ton fichier car tu ne doit pas avoir l'authorisation d'ecrire sur la racine directement exemple repertimp="c:/script/" Voila j'espere que j'ai repondu a ta question

re, Voici le lien ci-dessous, j'espère que cette macro vous sera utile. Vous pouvez faire vos commentaires afin de l'améliorer. @plus http:// http://cjoint.com/?izqz4rKK5G

>effectivement celma fonctionne très bien sous XP en faisant la manip ci-dessus, on retrouve les fichiers. je confirme que sous VISTA avec la même manip on ne retrouve pas les fichiers ..... Mais ou sont ils ?

Bonjour, je viens de faire une p'tite macro sous un fichier excel, afin de generer un fichier script pour dessinner une polyligne 3D ou 2D sous autocad. Mais commment fait on pour lier une fichier sur le forum. Merci

bonjour, Arf je n'arrive pas à trouver ces fichiers , ont ils une extension pârticuliere. Si j'ai bien compris ils se trouvent bien dans le dossier des fichiers temporaire d'internet. Merci de votre aide. PS: Pour info j'utilise windows VISTA.

bonsoir, tu peux essayer avec la variable mirrtext: 0 Conserve la direction du texte. 1 Le texte est à l'envers, comme dans un miroir En espérant que ceci va t'aider. @plus

bonjour, Merci gile pour tes versions. donc voici la miennes, Merci de vos commentaires. ;*************************************************************************** (defun c:EFVAL() (initget 1 "1 2") (setq choix (getkword "tapez 1 pour effacer les valeurs mini ou 2 pour effacer les valeurs max: ")) (if (= choix "1") (progn (while (/= (setq sstext (ssget)) nil) (setq ent1 (ssname sstext 0)) (setq bdent1 (entget ent1)) (setq txt1 (cdr (assoc 1 bdent1))) (setq vtxt1 (atof txt1)) (setq ent2 (ssname sstext 1)) (setq bdent2 (entget ent2)) (setq txt2 (cdr (assoc 1 bdent2))) (setq vtxt2 (atof txt2)) (if ( (command "effacer" txtmin "" ) );fin du while );fin du progn (progn (while (/= (setq sstext (ssget)) nil) (setq ent1 (ssname sstext 0)) (setq bdent1 (entget ent1)) (setq txt1 (cdr (assoc 1 bdent1))) (setq vtxt1 (atof txt1)) (setq ent2 (ssname sstext 1)) (setq bdent2 (entget ent2)) (setq txt2 (cdr (assoc 1 bdent2))) (setq vtxt2 (atof txt2)) (if (> vtxt1 vtxt2) (setq txtmax ent1) (setq txtmax ent2)) (command "effacer" txtmax "" ) );fin du while );fin du progn );fin du if );fin deu defun ;*********************************************************************************

Merci patrick pour ce p'tit lisp, il est clair qu'il n'est pas facile de comprendre ce lisp mais je vais essayer . Enfin demain je mettrai ce que j'ai fait mais develloppé en lisp et non en Vlisp. encore merci

bonjour, Gile, merci d'avoir regarder ma demande. On peut dire en quelques sorte que c'est un p'tit challenge. T'as bien compris ce que je voulais faire. donc j'ai un peu commencé, mais comme tu le sais je ne suis qu'un debutant ..... Voila ce que j'ai commencé a faire.(c'est pas encore ca) Mais si vous avez des améliorations je suis a votre ecoute, même pour les conseils. ;*********************************************************************** defun c:cmax() (setq sstext (ssget)) (setq i 1) (repeat (sslength sstext) (setq enttxt (ssname sstext i)) (setq bdenttxt (entget enttxt)) (setq enttxt1 (entnext enttxt)) (setq bdenttxt1 (entget enttxt1)) (setq txt1 (cdr (assoc 1 bdenttxt1))) (setq txt2 (cdr (assoc 1 bdenttxt))) (setq vtxt1 (atof txt1)) (setq vtxt2 (atof txt2)) (if ( (command "effacer" txtmax "" ) );fin du repeat );fin du defun ;******************************************************************** Merci

Bonjour à tous, Je recherche un lisp, qui me permettrait de selectionner deux valeurs (texte), et d'avoir l'option de supprimer la valeur la plus grande ou la plus petite. Merci de votre aide. Lovecraft

Bonjour, Ci-dessous une de mes premieres contribution. cette routine permet d'exporter les coordonnées d'une polyligne 3D vers excel. Si vous avez des commentaires ou des améliorations a apporter merci d'en faire part. ******************************************************************************** Sub OUVRIR_EXCEL() Static applicationexcel As Object Static classeurexcel As Object Static feuilleexcel As Object Dim valeur As String Set applicationexcel = GetObject(, "excel.application") ' ouvre le classeur courant Set applicationexcel = CreateObject("excel.application") applicationexcel.Application.Visible = True Set classeurexcel = applicationexcel.Workbooks.Add Set feuilleexcel = applicationexcel.ActiveSheet Dim selObj As AcadObject Dim retCoord As Variant Dim k, l As Integer Dim nbr_of_segments As Long Dim nbr_of_vertices As Long Dim segment As Long On Error Resume Next ThisDrawing.Utility.GetEntity selObj, "Sélectionner une polyligne." retCoord = selObj.Coordinates h = selObj.Count segment = 0 k = LBound(retCoord) l = UBound(retCoord) nbr_sommet = (((l - k) + 1) / 3) 'Ecriture dans excel Dim i As Integer 'boucle x Dim ii As Integer Dim u As Integer 'boucle y Dim j As Integer 'boucle z 'presentation tableau feuilleexcel.Cells(6, 1).Value = "X" feuilleexcel.Cells(6, 1).HorizontalAlignment = xlCenter feuilleexcel.Cells(6, 2).Value = "Y" feuilleexcel.Cells(6, 2).HorizontalAlignment = xlCenter feuilleexcel.Cells(6, 3).Value = "Z" feuilleexcel.Cells(6, 3).HorizontalAlignment = xlCenter ii = 0 For i = k To l Step 3 feuilleexcel.Cells(7 + ii, 1).Value = retCoord(i) ii = ii + 1 Next i ii = 0 For u = 1 To l Step 3 feuilleexcel.Cells(7 + ii, 2).Value = retCoord(u) ii = ii + 1 Next u ii = 0 For j = 2 To l Step 3 feuilleexcel.Cells(7 + ii, 3).Value = retCoord(j) ii = ii + 1 Next j ' Determine the number of segments in the polyline. If selObj.Closed Then nbr_of_segments = nbr_sommet Else nbr_of_segments = nbr_sommet - 1 End If MsgBox "La polyligne sélectionnée est composée de " & nbr_of_segments & " segments." **************************************************************************** End Sub @plus

Bonjour, pour repondre a ta question a niveau de l'anneau : Quand tu dessines un anneau avec autocad en fait il te dessine un polyligne avec une épaisseur. donc quand tu ajustes il t'ajuste la polyligne (qui est la moyenne des deux cercles constituant l'anneau) Donc si tu veux faire des anneaux je te conseilles de la faire avec des cercles @plus

re essaies ca desactive l'agrandissment de la fenetre en faisant un clique droit en bas de ton ecran "la parti grise ou il y a les coordonnées l'objet etc" desolé je ne connais pas le nom de cette partie de l'ecran. @plus

bonjour, je viens mettre mon grain de sable un peu tardivement mais bon. en ce qui me concerne, pour gerer mes xrefs j'utilise dans les options puis dans l'onglet fichier: chemin de recherche de fichier de projet. Je vous conseille d'essayer ;) @plus