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??