lovecraft

Bonjour chris_mtp, Je vais voir ce que je peux faire au niveau du fichier pour qu'il te convienne. Autrement je me suis permis de supprimer le message du forum covadis et de transferer celui-ci dans le forum lisp. @plus LB

Bonsoir, Il faudrait penser à faire des recherches....; ;) Autrement la solution c'est: entrez sur la ligne de commande: FILEDIA puis mettre la valeur à 1. voila maintenant tout devrait fonctionner. @plus LB

Bonsoir, voici une routine que je viens d'adapter à tes besoins. ; c. 2006 Jeff Rayhorn & LukewarmCoffee.com ;routine adaptée par L.barraud le 29 10 2008 (defun C:T2A ( / txtent ; "TEXT" entity name txtlst ; Entity list for "txtent" attlst ; Entity list for "ATTDEF" ) (setq txtent nil) (while (not txtent) (setq txtent (car (entsel "\n Pick TEXT to convert:")) );end setq (if txtent (setq txtlst (entget txtent))) );end while (if (/= "TEXT" (cdr (assoc 0 txtlst))) ;test if "TEXT" (alert "Only TEXT entities can be converted.") (progn (entdel txtent) (setq txt (cdr(assoc 1 txtlst)));valeur du texte (setq attlst (list '(0 . "ATTDEF") '(100 . "AcDbEntity") (assoc 8 txtlst) '(100 . "AcDbText") (assoc 10 txtlst) (assoc 40 txtlst) '(1 . "") (assoc 50 txtlst) (assoc 41 txtlst) (assoc 51 txtlst) (assoc 7 txtlst) (assoc 71 txtlst) (assoc 72 txtlst) (assoc 11 txtlst) (assoc 210 txtlst) '(100 . "AcDbAttributeDefinition") '(3 . "Prompt") (cons 2 txt) '(70 . 8) );end list );end setq (entmake attlst) );end progn );end if (princ) );end defun J'espère qu'elle te conviendra @plus LB

Bonjour, Tu peux retrouver l'ancienne version via la commande : CALQCLASSIQ @plus LB PS: j'espère que c'est ce que tu recherchais.

Bonsoir, voila c'est réparé ;) Effectivement un petit problème de balise Autrement pour votre problème "peut-être regarder au niveau de l'aperçu de sélection dans les options" @plus LB

Bonjour, une fois la modification du bloc effectuer, tu peux mettre a jour cette modification sans que cela affecte les valeurs des attributs via la commande BATTMAN "cliquez sur synchroniser" @plus LB

Bonjour, As tu pensé à faire un controle de ton dessin ainsi qu'une purge ? Pour ce faire : fichier => Utilitaires de dessin => controler ou purger. @plus LB

bonjour, Ci-dessous le lien pour télécharger un p'tit bloc dynamique XYZ (style étiquette) .............aller c'est cadeau ;) http:// http://cjoint.com/?kxlu5mn72s @plus LB

Bonsoir, Le choix va être difficile, j'en ai vu qui ne prends pas trop de place " celui de la vidéo" hallucinant. @plus LB

Bonsoir, Dans un premier temps, vous pouvez utiliser la commande OVERKILL pour supprimer les objets superposés. @plus LB

Bonsoir, Une piste désactivé le scu dynamique via la touche F6. @plus LB

Bonsoir, En haut à gauche de ton écran, il y a le lien de ta messagerie => tu cliques dessus => puis tu arrives sur une nouvelle page => sur cette page tu as la possibilité de lire tes messages et la possibilité d 'en envoyer " avec le p'tit bouton (Send)" Voila j'espère que j'ai répondu à la question @plus LB

Re, Si tu te souviens plus regarde le premier message du post ;) "et lire le post jusqu'a la fin... ;) @plus LB

bonjour, Tu peux essayer de le faire avec superautoscript "Gratuit" d'Eric. Le fonctionnement, il te permet d'effectuer des scripts sur plusieurs dessin... http://www.caderix.com/crbst_2.html @plus LB

Merci Gile, je n'avais pas fait attention, je suis encore un novice @plus

re, Voici une méthode pour réaliser ce que tu recherches (il y a certainement d'autres), mais n'ayant pas covadis sous la main je ne peux d'autres test. Donc dans une première phase il faut que tu crées la polyligne 3D passant par l'axe de tes profils au niveau du fond de forme (du profil 1 au XX) Ensuite tu crées une polyligne 2D passant par l'axe de tes profils OU tu transformes la polyligne 3D en 2D (Covaids 3D => Gestion des polylignes 3D => transformer en 2D) Attention il faut conserver la polyligne3D et creer une nouvelle polyligne 2D avec Z=0) Ensuite, il faut que tu plaques la polyligne 2D sur ton MNT récolement (réception) Attention petite subtilité (Dans covadis il existe plusieurs méthodes pour le plaquage d'entité 2D / MNT. Ici il faudra utiliser celle ci-dessous "pourquoi" parce que nous devons conserver le même nombres de sommet, il ne faut pas que le plaquage s'intersecte avec les arêtes du MNT mais uniquement sur le sommet de la polyligne. Pour ce faire ( Covadis 3D => Gestion des polylignes 2D => Convertir en polyligne 3D) tu selectionnes la polyligne 2D, valider puis maintenant il faut que tu choisisses l'options MNT , tu choisis ton mnt reception puis suivre les étapes. Maintenant, nous avons deux polylignes 3D une representant le fond de forme projet l'autre representant le fond de forme reception. Pour finir, il faut recupérer les coordonnées XYZ des deux polylignes cf lisp ci-dessous. le lisp créé un fichier texte sur la racine :/XYPOLY3D.txt ;Programme pour creer un listing en cliquant une polyligne ; le 30 mai 2006 ;***************************************************************** (defun c:xypoly () (setq ent (car (entsel "\nCliquez une polyligne :"))) (setq bdent (entget ent)) (setq typent (cdr (assoc 0 bdent))) (if (= typent "LWPOLYLINE") (progn (setq nomfic "C:/XYPOLY2D.txt") (setq fic (open nomfic "w")) (setq i 0) (repeat (length bdent) (setq entit (nth i bdent)) (setq codeentit (car entit)) (if (= codeentit 10) (progn (setq xentit (car (cdr entit))) (setq yentit (cadr (cdr entit))) (setq xyentit (strcat (rtos xentit 2 3) " " (rtos yentit 2 3))) (write-line xyentit fic) );fin du progn );fin du if (setq i (+ i 1)) );fin du repeat );fin du progn );fin du if (if (= typent "POLYLINE") (progn (setq nomfic "C:/XYPOLY3D.txt") (setq fic (open nomfic "w")) (setq i 0) (setq ent1 (entnext ent)) (setq bdent1 (entget ent1)) (setq typent1 (cdr (assoc 0 bdent1))) (while (= typent1 "VERTEX") (setq code10 (cdr (assoc 10 bdent1))) (setq xentit (car code10)) (setq yentit (cadr code10)) (setq zentit (caddr code10)) (setq xyzentit (strcat (rtos xentit 2 3) " " (rtos yentit 2 3) " " (rtos zentit 2 3))) (write-line xyzentit fic) (setq ent1 (entnext ent1)) (setq bdent1 (entget ent1)) (setq typent1 (cdr (assoc 0 bdent1))) );fin du while );fin du progn );fin du if (close fic) );fin du defun c:xypoly Voila maintenant à toi d'assembler tout ça avec excel. @plus LB

Bonsoir, Voici le code permettant de réaliser la demande ci-dessus: Elle a été réaliser par T.Willey (defun c:TileSelect (/ AcObj ActDoc DocCol DocList DiaRtn RtnLen HorOpt tempDoc cDocSel oWinStList) ; Tile selected drawings. (vl-load-com) (setq AcObj (vlax-get-Acad-Object)) (setq ActDoc (vla-get-ActiveDocument AcObj)) (setq DocCol (vla-get-Documents AcObj)) (vlax-for i DocCol (setq DocList (cons (cons (vla-get-Name i) i) DocList)) (setq oWinStList (cons (cons (vla-get-WindowState i) i) oWinStList)) (while (not (equal (vlax-get i 'WindowState) 2)) (vlax-put i 'WindowState 2) ) ) (setq DocList (vl-sort DocList '(lambda (a b) ( (if (and (> (length DocList) 1) (setq DiaRtn (MultiSelect (mapcar 'car DocList) "Check to tile horizontal." T)) (if (equal (type (car DiaRtn)) 'INT) (> (setq RtnLen (length DiaRtn)) 1) (progn (setq HorOpt T) (setq DiaRtn (cdr DiaRtn)) (> (setq RtnLen (length DiaRtn)) 1) ) ) ) (progn (setq HorOpt (if HorOpt "_Horizontal" "_Vertical" ) ) (foreach i DiaRtn (setq tempDoc (cdr (nth i DocList))) (if (equal tempDoc ActDoc) (setq cDocSel T) ) (vlax-put tempDoc 'WindowState 1) ) (vlax-put ActDoc 'WindowState 1) (if (not cDocSel) (vlax-put ActDoc 'WindowState 2) ) (vla-Activate ActDoc) (command "_.syswindows" HorOpt) ) (foreach i oWinStList (while (not (equal (vla-get-WindowState (cdr i)) (car i))) (vla-put-WindowState (cdr i) (car i)) ) ) ) (princ) ) (defun MultiSelect (Listof Message Toggle / DiaLoad tmpStr tmpTog tmpList) (setq DiaLoad (load_dialog "MyDialogs.dcl")) (if (new_dialog "MultiSelect" DiaLOad) (progn (start_list "listbox" 3) (mapcar 'add_list Listof) (end_list) (if Message (set_tile "text1" Message) ) (if (not Toggle) (mode_tile "toggle1" 1) ) (mode_tile "listbox" 2) (action_tile "accept" "(progn (setq tmpStr (get_tile \"listbox\")) (if Toggle (setq tmpTog (get_tile \"toggle1\")) ) (done_dialog 1) )" ) (action_tile "cancel" "(done_dialog 0)") (if (= (start_dialog) 1) (progn (if tmpStr (setq tmpList (read (strcat "(" tmpStr ")"))) ) (if (= tmpTog "1") (cons T tmpList) tmpList ) ) ) ) ) ) Voici la boite de dialogue .dcl (ne pas oublier de mettre le fichier dans le repertoire de recherche de fichier support) MultiSelect : dialog{ label = "Select Item"; : list_box { key = "listbox"; width = 55; height = 25; multiple_select = true; } : toggle { key = "toggle1"; } : text { key = "text1"; } : row { : spacer { width = 1; } : button { label = "OK"; is_default = true; allow_accept = true; key = "accept"; width = 8; fixed_width = true; } : button { label = "Cancel"; is_cancel = true; key = "cancel"; width = 8; fixed_width = true; } : spacer { width = 1;} } } //------------------------------------------------------------------------------------------- @plus LB

Bonsoir, Dans un premier temps puis je connaitre la version de covadis que vous utilisez, car plusieurs méthode s'offre à vous. Voici une piste en attendant: Dans Covadis 3D => analyse du relief => Projections d'objets liénaires "pour la projection des tabulations sur le récolement" Pour votre contrôle, il vous faut uniquement un listing d'axe projet et récolement (puis le Delta Z) ? @plus LB

Bonsoir, Oui c'est réalisable, mais je te conseille de gérer plusieurs espaces de travail suivant les tâches que tu effectues. A moins que tu as un écran 30 pouces ;). @plus LB PS: Pour le nombre de menu affichage je ne sais pas (j'ai fais un test avec 45 menus => c'est ok) maintenant à toi de voir.

Bonsoir, Voici ce que j'ai trouvé sur le site d'autodesk: Windows XP 1. Dans le menu Démarrer de Windows, cliquez sur Paramètres > Panneau de configuration. 2. Dans le panneau de configuration, cliquez sur "Ajout/Suppression de programmes". 3. Dans la fenêtre "Ajouter ou supprimer des programmes", sélectionnez l'option Afficher les mises à jour. 4. Recherchez la mise à jour appropriée dans la liste des programmes. Cliquez sur Supprimer. Windows Vista 1. Dans le menu Démarrer de Windows, cliquez sur Panneau de configuration. 2. Cliquez sur Programmes. 3. Cliquez sur Programmes et fonctionnalités. 4. Dans le volet gauche de la fenêtre Programmes et fonctionnalités, cliquez sur Afficher les mises à jour installées. 5. Recherchez la mise à jour appropriée dans la liste des mises à jour. Cliquez sur Désinstaller. J'espère que cela va solutionner ton poblème. @plus LB

re, Tu peux regarder ce sujet "zebulon" à faire une petite routine qui peut résoudre ton probème. http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=6870#pid24934 @plus LB PS: Je viens d'apprendre à l'occasion que ECHLTP n'était pas une variable mais une commande "Sorry"

Bonjour, (defun c:ptatdist () (vl-load-com) (setq *acdoc* (vla-get-ActiveDocument (vlax-get-acad-object))) (setq sp (if (= 1 (getvar "CVPORT")) (vla-get-PaperSpace *acdoc*) (vla-get-ModelSpace *acdoc*) ) ) (setq ent (car (entsel))) (setq compteur 1) (while (/= (setq x (getdist "\nDistance depuis départ :")) nil) (setq vlaobj (vlax-ename->vla-object ent) ;;; le reste est pour mémoire, pour voir ce qu'on peut faire avec les fonctions vlax-curve pt_org (vlax-curve-getStartPoint vlaobj) pt_end (vlax-curve-getEndPoint vlaobj) param_start (vlax-curve-getStartParam vlaobj) param_end (vlax-curve-getEndParam vlaobj) perim_obj (vlax-curve-getDistAtParam vlaobj param_end) ;;; fin pour mémoire ) (vla-addPoint sp (vlax-3d-point (vlax-curve-getPointAtParam vlaobj (vlax-curve-getParamAtDist vlaobj x))) ) );fin du while ) Voici le code de Zebulon modifié @plus LB

re, Tout est bon pour moi, mais je reçu un mail et non un message privé :) @plus LB

bonjour, As tu regardé la variable ECHLTP ? car Covadis a l'habitude de modifier cette variable pour les échelles de dessin " C'est le petit message que covadis demande à chaque ouverture ou si tu demandes une autre échelle" (il intervient sur cette variable) @plus LB

Bonjour, Autocad 2007=>2009 Covadis VRD Infrastructure Civil 3D @plus LB