cyrkan

Bonjour à tous, J'ai eut un problème d'impression d'images (tiff) en noir et blanc avec pdf créator. Voici la solutions que j'ai obtenu, et qui fonctionne. je fait donc partager. Une fois dans la mise en page: Fichier => Préférences => Général (onglet) => Options Avancées => Choisir le mode suivant Mode BitBlt - BitBlt1 / BitBlt 3 => OK Normalement les images qui apparaissaient est Noir et Blanc sont maintenant en couleurs. [Edité le 4/11/2009 par cyrkan]

koraly a très bien répondus a ta question. Le seul problème que tu va rencontrer avec cette méthode c'est l'inclinaison du sol qui ne correspondra pas avec les lignes. Tu va donc devoir appliqué des rotation a tes ligne pour les faire correspondre par rapport au sol. ca va bien si tu en a une dizaine mais si c'est un grand parking ça peut devenir plus compliqué. A noter que l'on ne peut pas voir sur une vue si la ligne est exactement parfaite, donc pas de soucis de ce coté.

De manière rapide, voila ce que j'arrive a faire. Disons 1/2 heure (a cause des marquages au sol) personnellement les bâtiments je ne l'est met pas, car aucun des objet 3D données ne correspond avec le trip de l'archi. Donc voila trois vue, le résultat est généralement bon pour permettre au client d'avoir une bonne idée. http://img23.imageshack.us/img23/5811/imagerenduexemple.th.jpg http://img23.imageshack.us/img23/5811/imagerenduexemple.th.jpg http://img55.imageshack.us/img55/3219/imagerendusexemple2.th.jpg http://img55.imageshack.us/img55/3219/imagerendusexemple2.th.jpg

J'ai pu tester la toute dernière version moi aussi.... J'ai vraiment apprécié! Je précise que les premières mises à jour corrige quelques bugs (agaçant!) Pour ce qui est des présentations mensura on n'en a pas eut vent chez nous (eurovia)... Apparemment geomensura organise des rencontre par groupe et par région géographique. PS: Bien le bonjour à la screg ^^

J'ai fait une petite recherche google... Ca ma ramener sur le site de l'agence américaine pour la protection de l'environnement... Voici le liens avec vers la fin de page des liens pour le téléchargement du setup du programme. http://www.epa.gov/ednnrmrl/models/swmm/index.htm J'espère que c'est bien ce qui est attendu.

J'ai essayer le codec xvid pour faire des video; il marche du tonnerre! Video nickel et qui ne pèse pas trop lourd... 25mo les 30 secondes environ. Par contre radius, ne fonctionnais pas bien lorsque je l'avait essayer, peut être était t'il mal paramétrer ou autre... Bref Xvid, gratuit et ca marche bien! Encore merci!

Bonjour, Comme beaucoup de monde j'ai eut le joie de passer sur mensura Genius... Je souhaite me dévelloper un peut plus dans le rendus 3D (je suis convaincu que ce sera l'enjeu dans les années a venir) Quelqu'un connait des codec de compression video performant pour l'exportation des avi de mensura. Car pour le moement j'ai droit à des videos... tout en noir, pas une seule image!!! C'est ralant quand on peut imaginer les possibilités du logiciel!!

Sinon pour compléter, il me semble que pour les réseaux france Tel il y a aussi des limites de distance entre borne L2T ou autres. je crois que c'est 50 mètres, donc si deux L2T sont trop éloigné tu est obligé de mettre une L0T entre (ou réorganisé ton réseaux). Puis 25 mètres entre une chambre et un lot à alimenter. Après un autre intervenant a signalé le nombre de lot que tu peut branché sur une chambre de tirage. L2T => 5 lots ; L0T => pour moi ca sert juste de ralonge ^^ :cool: ; L3T => 7 lot ATTENTION: je ne suis pas du tout sur du nombre de branchement par chambre, a vérifier! D'ailleur si quelqu'un a des précision la dessus! :cool: PS: Pour ce qui est des formations, je m'était renseigné pour moi, il existe des licence infrastructure et réseaux (a toulouse); ou des formations (qui ne donne pas de diplome d'état) de un an (toulouse aussi).... environ 5000 euros.... (tonton pourquoi tu tousse??) ;)

Je vais voir ca ce soir... J'éditerais ce message pour donné ce que j'ai fait et le résultat! PS: je rappel que ce lisp a pour but de trier rapidement un plan à son arriver au bureau d'étude de l'endroit ou je travail. il est adapté à mon entreprise et à la façon dont trie les bureau d'études avec lesquels ont travail. c'est a dire que les filtre nominatif ont pour paramètres les noms des calques rencontrer dans les plans que l'on recoit régulièrement. Les filtre du lisp au dessus n'est pas complet c'est juste une version d'essai. En gros le trieur prend les éléments dans les calques et les mets dans les notres. ====================================================== Edit: Mouarf, je ne métrise pas l'annonce des paramètres dans les fonctions... je n'est donc pas obtenus de bon résultat... Quelqu'un a un tuto sur ce sujet?? [Edité le 25/8/2008 par cyrkan]

géniale!!! Je ne connaissait pas!!!! Merci beaucoup! Je retravaille dessus et je vous tiens au courant!! PS: j'ai vérifié mon projet... Il y avait deux erreurs que j'ai corrigé j'ai relancé ue vérification qui na rien donné (en gros tout ok). Mais une fois lancé mon lisp donne toujours une erreur en me disans que le nombre d'argument est trop important... [Edité le 17/8/2008 par cyrkan]

Bonjour... J'ai travailler pendant les vacances et je suis arriver a la conclusion que je n'arriverais pas adapter une boite de dialogue à mon lisp pour le moment. J'ai donc décider d'en faire une version capable d'être utilisé par la ligne de commande. Ainsi j'ai donc créer le lisp suivant. ce lisp reprend une version générale qui fonctionne bien... Mais la je me heurte à un nombre d'argument trop important! J'utilise beaucoup le fonction if en cascade (c'est a dire que j'imbrique des if dans des if....). J'ai aussi régler un problème d'argument trop important dans les if en utilisant la fonction progn. Donc voici mon lisp a l'heure qu'il est. Je rappel que j'ai un problème d'argument trop important. Ma question serais, comment contourné ce problème. Commentaire sur le code: le premier bloc sert à lancé la procédure en posant la question du calque de départ puis de même pour le calque d'arriver avec la seconde question. Ensuite je lance les différents filtres. puis dans un second temps je tris le résultat des filtres. (defun c:tri () (setq varfiltre (getstring "\nquel est le type d'élément à trier? EU, EP, ELec: ")) ;récupération du paramètre objet à filtrer (setq nouvcal (getstring "\nquel est le calque d'arrivé? EU, EP, Elec: ")) ;récupération du paramètre du calque d'arrivé (filtre varfiltre nouvcal ) ;lancement général du filtre avec les deux paramètres (deplacemententite) (setq recom (getstring "\nrelancer la fonction filtre? Oui Non")) (if (= recom "*o*") ( "tri" ) ( nil ) ) ) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun filtre() (if ;lancement du if pour déterminé quel filtre appliquer en fonction de la variable varfiltre (= varfiltre "EU") ;si varfiltre = eu alors faire ce qui suit (progn (setq jeutotal (ssadd)) (setq jeusel1 (ssget "X" (list (cons 8 "*eau usées*,*fl1-v*,*flt-v*,*fls-v*,*res-usée*,*EU*")))) (princ (strcat "Il y a " (itoa (setq nombre (sslength jeusel1))) " entités à changer de calque")) (setq compteur 0) ;mise en place du compteur (repeat (sslength jeusel1) ;boucle en fonction d'une nombre d'entité (ssadd (ssname jeusel1 compteur) jeutotal) ;ajoute l'entité de jeusel1 a jeutotal (setq compteur (1+ compteur)) ;mise a jour du compteur )) ;sinon (si varfiltre n'est pas égale à eu faire ce qui suit) (filtre2) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun filtre2() ;lancement d'un nouveau if par filtre (if(= varfiltre "EP") (progn (setq jeutotal (ssadd)) (setq jeusel1 (ssget "X" (list (cons 8 "*busage*,*pluvial*,*fl1-p*,*fls-p*,*flt-p*,*ep*")))) (princ (strcat "Il y a " (itoa (setq nombre (sslength jeusel1))) " entités à changer de calque")) (setq compteur 0) ;mise en place du compteur (repeat (sslength jeusel1) ;boucle en fonction d'une nombre d'entité (ssadd (ssname jeusel1 compteur) jeutotal) ;ajoute l'entité de jeusel1 a jeutotal (setq compteur (1+ compteur)) ;mise a jour du compteur )) (filtre3) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun filtre3() ;lancement d'un nouveau if par filtre2 (if(= varfiltre "ELec") (progn (setq jeutotal (ssadd)) (setq jeusel1 (ssget "X" (list (cons 8 "*elec*,*edf*,*fo1*,*fos*,*fot*")))) (princ (strcat "Il y a " (itoa (setq nombre (sslength jeusel1))) " entités à changer de calque")) (setq compteur 0) ;mise en place du compteur (repeat (sslength jeusel1) ;boucle en fonction d'une nombre d'entité (ssadd (ssname jeusel1 compteur) jeutotal) ;ajoute l'entité de jeusel1 a jeutotal (setq compteur (1+ compteur)) ;mise a jour du compteur )) (nil) )) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun deplacemententite() (setq compteur2 0) ;initialisation compteur (repeat (sslength jeutotal) ;boucle en fontion du nombre d'entité contenu dans jeu total (setq ancdxf (assoc 8 (entget (ssname jeutotal compteur2)))) ;récupération de l'ancien calque (setq noudxf (cons 8 nouvcal)) ;récupération du nouveau calque (setq nouvelobj (subst noudxf ancdxf (entget (ssname jeutotal compteur2)))) ;substitution de l'ancien calque par le nouveau (print nouvelobj) ;donne toute les donné dans barre de commande (entmod nouvelobj) ;recalcule le tout ce qui permet de mettre a jour le changement de calque (setq compteur2 (1+ compteur2)) ;mise a jour du compteur ) ) Voici la version du cas générale qui ma servis de point de départ! A noter que cette version marche! (defun c:tri () (setq jeutotal (ssadd)) ;création des jeux de selection en début de programme (setq jeusel1 (ssget "X" (list (cons 8 "*filtre1*,*filtre2*,*filtre3*")))) (princ (strcat "Il y a " (itoa (setq nombre (sslength jeusel1))) " entités à changer de calque")) (setq jeusel2 (ssget "X" (list (cons 8 "*filtre4*,*filtre5*,*filtre6*")))) (princ (strcat "Il y a " (itoa (setq nombre1 (sslength jeusel2))) " entités à changer de calque")) (setq jeusel3 (ssget "X" (list (cons 8 "*filtre7*,*filtre8*,*filtre9*")))) (princ (strcat "Il y a " (itoa (setq nombre2 (sslength jeusel3))) " entités à changer de calque")) (setq compteur 0) ;mise en place du compteur (repeat (sslength jeusel1) ;boucle en fonction d'une nombre d'entité (ssadd (ssname jeusel1 compteur) jeutotal) ;ajoute l'entité de jeusel1 a jeutotal (setq compteur (1+ compteur)) ;mise a jour du compteur ) (setq compteur 0) (repeat (sslength jeusel2) (ssadd (ssname jeusel2 compteur) jeutotal) (setq compteur (1+ compteur)) ) (setq compteur 0) (repeat (sslength jeusel3) (ssadd (ssname jeusel3 compteur) jeutotal) (setq compteur (1+ compteur)) ) (setq compteur2 0) ;initialisation compteur (repeat (sslength jeutotal) ;boucle en fontion du nombre d'entité contenu dans jeu total (setq nouvcal "0") ;calque d'arriver temporaire pas automatisé!!!!!!!! (setq ancdxf (assoc 8 (entget (ssname jeutotal compteur2)))) ;récupération de l'ancien calque (setq noudxf (cons 8 nouvcal)) ;récupération du nouveau calque (setq nouvelobj (subst noudxf ancdxf (entget (ssname jeutotal compteur2)))) ;substitution de l'ancien calque par le nouveau (print nouvelobj) ;donne toute les donné dans barre de commande (entmod nouvelobj) ;recalcule le tout ce qui permet de mettre a jour le changement de calque (setq compteur2 (1+ compteur2)) ;mise a jour du compteur ) ) ;fin defun Voila, en espérant qu'une âme charitable passerais par la afin de m'apporter un éclaircissement. [Edité le 16/8/2008 par cyrkan]

Merci pour la version éppuré et modifié... Mais bon malheureusement quand je clique sur la combobox, rien ne ce passe... Mais merci quand même de te creuser la tête pour moi! (Je pars en vacance deux semaine, je n'aurais pas de connexion internet! Mais je vais continuer a chercher et voir si le problème ne viendrais pas d'une erreur de ma pars lors de la fabrication de la boite de dialogue sur opendcl... (ce qui ne serais pas forcément impossible! :P )

Je me suis mal exprimé! désolé! En faite, je disais que jusque à présent, je n'affichait pas tout le code de ma boite de dialogue! Donc on ne voyait jamais le boite ce faire initialisé! Je l'est donc mis en entier dans mon poste précédent! Je confirme que c'est long a paramétrer et long a tester... :cool: Mais bon la je patauge de plus en plus! Donc dans mon code, j'initialise bien la boite, et je pense avoir tenus compte des commentaire fait visant a améliorer celui ci afin qu'il fonctionne. Bref je ne vois plus trop ou peut être le problème!

Oui oui enfin je croit ^^ Ma boite de dialogue est bien initialisé, je ne fait pas apparaitre tout tout le code pour ne pas surchargé (j'ai pleins de commentaire dedans.. mais je croit que je vais tout mettre!!) Faite attention au ; qui traine partout... (désolé) "Button1" est un bouton ok qui ferme la boite de dialogue a l'heure actuelle "Button2" est un bouton qui doit ouvrir (normalement, la il marche pas complètement un fichier d'aide sur un support texte. Et après viens le sujet qui me préocuppe a l'heure actuelle, la combobox, un trentaine dans le futur. ; the following command will ensure the ; appropriate OpenDCL ARX file is loaded (command "OPENDCL") (defun c:Projet () ; call the method to load the projet.odcl file. (dcl_Project_Load "projet" T) ; call the method to show the projet world dialog box example (dcl_Form_Show projet_Form1) (princ) ) (defun c:Projet_Form1_OnInitialize ( /) (dcl_Control_SetCaption projet_Form1_Label1 "TRIEUR DE CALQUES") ) (defun c:Projet_Form1_TextButton1_OnClicked ( /) (dcl_Form_Close projet_Form1) ) (defun c:Projet_Form1_TextButton2_OnClicked ( / shell filename) ;(defun c:test ( / shell filename) (vl-load-com) (if (setq file (findfile "aideproj.txt")) (if (setq app (findfile ;"C:\\Program Files\\Microsoft Office\\Office10\\WINWORD.EXE" "C:\\Program Files\\Windows NT\\Accessoires\\wordpad.exe" ;"C:\\WINDOWS\\system32\\config\\systemprofile\\Menu Démarrer\\Programmes\\Accessoires\\bloc_notes.exe" ) ) (startapp app file) (princ "\nApplication non trouvé") ) (princ "\nFichier non trouvée") ) ; (setq filename (findfile "aideproj.doc")) ; (if filename ; (progn ; (setq shell ; (vla-getinterfaceobject ;; (vlax-get-acad-object) ; "shell Application" ; )) ; (vlax-invoke-method shell 'Open filename) ; (vlax-release-object shell) ; ) ; (alert "fichier d'aide non trouvé") ) ;préparation des listes des combobox (defun Getlistedesfiltres (/ listedesfiltres) (vl-load-com) (vlax-for item (vla-get-blocks (vla-get-activedocument(vlax-get-acad-object))) (if (and (not (wcmatch (vla-get-name item) "*EU_*")) (not (wcmatch (vla-get-name item) "*EP_*")) (not (wcmatch (vla-get-name item) "*ELEC_*")) ) (setq listedesfiltres (cons (vla-get-name item) listedesfiltres)) ) ) ) ;combobox type (defun c:Projet_Form1_ComboBox1_OnInitialize ( / listedesfiltres) ;_OnDropDown (dcl_ComboBox_AddList "Projet" "Form1" "ComboBox1" (Getlistedesfiltres)) )

J'ai donc adapté les deux dernier conseil, j'obtient ceci: ;préparation des listes des combobox (defun Getlistedesfiltres (/ listedesfiltres) (vl-load-com) (vlax-for item (vla-get-blocks (vla-get-activedocument(vlax-get-acad-object))) (if (and (not (wcmatch (vla-get-name item) "*EU_*")) (not (wcmatch (vla-get-name item) "*EP_*")) (not (wcmatch (vla-get-name item) "*ELEC_*")) ) (setq listedesfiltres (cons (vla-get-name item) listedesfiltres)) ) ) ) ;combobox type (defun c:Projet_Form1_ComboBox1_OnInitialize ( / listedesfiltres) ;_OnDropDown (dcl_ComboBox_AddList "Projet" "Form1" "ComboBox1" (Getlistedesfiltres)) ) Problème: J'ai ma fenêtre qui apparait, le bouton pour la fermer fonctionne, l'objet combobox apparait aussi, seulement lorsque je clique dessus aucune liste n'apparait, alors que devrais apparaitre dans le cas présent, "EU; EP; et ELEC".... Je comprend pas d'ou peut venir le problème. Note: quand je clique dessus il n'y a pas de bug, ce ne fait juste rien, comme si il n'y avait pas de liste en faite... est ce que la préparation de mes liste en amont est correct??

Bon je vais te le dire tout de suite.... J'avais moi aussi ce problème, donc soit tu achète lt extender (qui est moins chèr que les 140 euros annoncé (enfin je crois)) sinon tu a aussi toolkit de dr cauto 230 euros (merci au cours du dollars pa rapport à l'euros). A mon avis transformer un lisp en script, ce n'est pas un peut une usine a gaz?

Je pense mettre mal exprimer... Bon comme la dit tramber effectivement il y avait un problème avec un stringlist en trop! Maintenant quand je charge la boite j'ai bien la combobox qui apparait et quand je clique dessus je n'est pas un bug.... mais la liste déroulante n'apparait pas!!!! En faite ce que je souhaite faire, c'est créer en amont de la combobox une liste qui pourra être utilisé dans un vingtaine de combobox différent grâce a un appel au moment de désigné la liste. En regardant l'aide j'ai penser que ce qui suis permet de créer le liste en amont: ;préparation des listes des combobox (defun Getlistedesfiltres (/ listedesfiltres) (vl-load-com) (vlax-for item (vla-get-blocks (vla-get-activedocument(vlax-get-acad-object))) (if (and (not (wcmatch (vla-get-name item) "*EU_*")) (not (wcmatch (vla-get-name item) "*EP_*")) (not (wcmatch (vla-get-name item) "*ELEC_*")) ) (setq listedesfiltres (cons (vla-get-name item) listedesfiltres)) ) ) ) Et enfin en lançant la combobox avec l'appel: ;combobox type (defun c:Projet_Form1_ComboBox1_OnDropDown ( / listedesfiltres) (dcl_ComboBox_AddList Projet_Form1_ComboBox1 (Getlistedesfiltres)) ) Précision, les noms sont générer automatiquement par le logiciel, je ferais une version allégé quand déjà la première version de ma boite marchera (ce qui serais déjà pas si mal!!! :cool: ) Quand a la boite de dialogue et à la combobox elle se charge avant dans le code.

Ok, Je vais voir donc lundi si je peut pas amélioré la chose.... Pour les bordures, bin oups, e effet on utilise les plateformes pour faire les métré de nos projets!!! (on étudie pour avoir les affaires). Donc on importe un dwg, on fait les métré avec le module métrés et on calcul les terrassement, j'utilise jamais le module projet linéaire!!! Bon bin temps pis pour les bordure alors! Sinon il y a une rumeur qui dit que la version génius est pour bientôt... (petite précision on aurais déja dut la recevoir dans l'entreprise mais elle a été retardé a cause de bug... septembre peut être...)

Bonjour, Je me suis mis a faire du rendus 3D pour les affaires de ma boite. Dessin de lotissement et autres fait avec mensura et que je passe en rendus 3D (pour faire plus vendeurs). Mais je trouve que le choix de texture et d'objet est quand même très limité!!!! Existe t'il une bibliothèque ou autre pour avoir plus d'arbre, de voiture, de texture de route... De plus seconde question! Est ce que quelqu'un a réussis a faire apparaitre les bordures sur le rendus?? Merci d'avance!

Attention cependant!!! Il me semble que les distance entre réseaux sec (elec) et l'aep (qui est souvent considéré comme réseaux sec est plus grande... 0.6m... Bien sur les mêmes réseaux peuvent être empilé entre eux. Nous ce serais plutot 0.2, un réseau, 0.2, un autre réseau etc etc puis 0.2 pour terminé 0.1 de sable en dessous et 0.20 au dessus pour enrobage. Bonne journé! PS: Bien sur on ne mes pas de l'EP ou de l'EU/EV avec les réseaux secs.... [Edité le 1/7/2008 par cyrkan]

Pour un projet comme ca il n'y a pas forcément énormément de règle a respecté... Crée juste un projet qui tienne le route au niveau du pluviale (évacuation des eaux, pente a 2% environ) ainsi qu'une structure de route adapté a ton trafic!

Bien le bonjour! Comment faire une rotation d'un dessin depuis une fenêtre de l'espace papier! Bien sur il ne faut pas que ca affecte l'espace objet et aucune autre fenêtre de présentation présente dans l'espace papier! Est ce qu'il faut le faire avec le scu? Merci d'avance!

Je suis aller voir quelqu'un qui ma bien et expliquer. J'ai donc obtenu la chose suivante. Je n'était pas loin de la solution! Cette fois si c'est ok! (defun c:tri () (setq jeutotal (ssadd)) ;création des jeux de selection en début de programme (setq jeusel1 (ssget "X" (list (cons 8 "*filtre1*,*filtre2*,*filtre3*")))) (princ (strcat "Il y a " (itoa (setq nombre (sslength jeusel1))) " entités à changer de calque")) (setq jeusel2 (ssget "X" (list (cons 8 "*filtre4*,*filtre5*,*filtre6*")))) (princ (strcat "Il y a " (itoa (setq nombre1 (sslength jeusel2))) " entités à changer de calque")) (setq jeusel3 (ssget "X" (list (cons 8 "*filtre7*,*filtre8*,*filtre9*")))) (princ (strcat "Il y a " (itoa (setq nombre2 (sslength jeusel3))) " entités à changer de calque")) (setq compteur 0) ;mise en place du compteur (repeat (sslength jeusel1) ;boucle en fonction d'une nombre d'entité (ssadd (ssname jeusel1 compteur) jeutotal) ;ajoute l'entité de jeusel1 a jeutotal (setq compteur (1+ compteur)) ;mise a jour du compteur ) (setq compteur 0) (repeat (sslength jeusel2) (ssadd (ssname jeusel2 compteur) jeutotal) (setq compteur (1+ compteur)) ) (setq compteur 0) (repeat (sslength jeusel3) (ssadd (ssname jeusel3 compteur) jeutotal) (setq compteur (1+ compteur)) ) (setq compteur2 0) ;initialisation compteur (repeat (sslength jeutotal) ;boucle en fontion du nombre d'entité contenu dans jeu total (setq nouvcal "0") ;calque d'arriver temporaire pas automatisé!!!!!!!! (setq ancdxf (assoc 8 (entget (ssname jeutotal compteur2)))) ;récupération de l'ancien calque (setq noudxf (cons 8 nouvcal)) ;récupération du nouveau calque (setq nouvelobj (subst noudxf ancdxf (entget (ssname jeutotal compteur2)))) ;substitution de l'ancien calque par le nouveau (print nouvelobj) ;donne toute les donné dans barre de commande (entmod nouvelobj) ;recalcule le tout ce qui permet de mettre a jour le changement de calque (setq compteur2 (1+ compteur2)) ;mise a jour du compteur ) ) ;fin defun Encore merci a tout le monde!!!

Bien le bonjour. Voila j'ai voulut m'interresser au liste déroulantes pour ma boite de dialogue. C'est la première fois que je doit en faire une. Je me suis reporté sur afralisp, mais il n'utilise pas opendcl pour leur boite de dialogue, il les font a "l'ancienne" (dcl box). J'ai donc regardé dans l'aide d'opendcl (qui est la même que celle de objectdcl) et la j'ai obtenu a peut prés ce que je cherchais, mais lors du lancement j'ai eut droit à un "no function définition" Voici le code, adapter à mes besoin: ;préparation des listes des combobox (defun Getlistedesfiltres (/ listedesfiltres) (vlax-for item (vla-get-blocks (vla-get-activedocument(vlax-get-acad-object))) (if (and (not (wcmatch (vla-get-name item) "*EU_*")) (not (wcmatch (vla-get-name item) "*EP_*")) (not (wcmatch (vla-get-name item) "*ELEC_*")) ) (setq listedesfiltres (cons (vla-get-name item) listedesfiltres)) ) ) ) ;combobox type (defun c:Projet_Form1_ComboBox1_OnDropDown ( / listedesfiltres) ;(setq listedesfiltres (list EP EU AEP)) ;essai de liste dans combobox (dcl_ComboBox_AddList Projet_Form1_ComboBox1 StringList (Getlistedesfiltres)) ;StringList (listedesfiltres));essai de liste dans combobox ) J'ai aussi essayer de tout bêtement créer directement un liste dans la combobox J'avoue que je patauge sévère sur le coup... Comment fait t'on une liste déroulante dans opendcl et comment peut ton extraire par la suite le résultat du choix de l'utilisateur de la liste déroulante.

Salut, J'ai testé la version que ma donner gile mais ca ne marche pas... Ca démarre bien word, mais word m'affiche un message d'erreur comme quoi il na pas pu ouvrir le fichier. Genre, utiliser fichier ouvrir, ou encore vérifier l'extension du document (si sais bien un .doc) J'ai tester le procéder avec un txt et bloc notes, la ca ma mis "application non trouvé" pourtant je suis bien aller chercher le bon chemin. J'ai aussi essayer avec wordpad sur du txt, la le logiciel ma dit qu'il na pas trouver le fichier. Bon le point positif c'est que je suis arriver a ouvrir word ^^ :) Mais je ne vois pas ce qui bloque la commande...