kaisho

Bonjour Gile, Je n'aurai qu'un mot : PARFAIT...!!! comme d'ab d'ailleurs. J'ai regardé comment se décompose le LISP et juste avec les explications j'arrive à comprendre.. maintenant, reste juste à ingurgiter la syntaxe !!! gros travaille de ma part sur le LISP. UN ENORME MERCI A TOI GILE. Pendant que j'y suis, pour un novice comme moi en LISP... comment faire pour apprendre et me donner quelques conseils pour démarrer...(site ou méthodologie) à part m'y coller et beaucoup de courage, çà je le sais... MERCI BEAUCOUP encore et passe une bonne journée Gile. La mienne démarre très bien grâce à toi !!! :D

Bonjour Gile, tout d'abord merci pour ta réponse aussi rapide et le code fourni. J'ai bien chargé le lisp mais je ne vois pas dans le code ou rentrer le nom du bloc dynamique que je dois appeler.. J'ai vérifié et le bloc est bien créé comme tu me le demande (EspaceRéservéBloc et la propriété de la référence de bloc = Position avec uniquement Z coché).Je suis novice dans le langage...je suis désolé de remettre à contribution mais si tu as 5 mns pour m'expliquer (le nom de mon bloc est (ETI-1-200) je te laisse un lien pour télécharger le bloc au cas ou.... http://dl.free.fr/goGGOc9BX En tout cas je te remercie beaucoup GILE pour ton aide.. c'est vraiment agréable

Désolé, je ne vois pas apparaître le fichier bloc joints... dans le doute.....

Désolé, je ne vois pas apparaître le fichier bloc joints... dans le doute.....

bonjour a tous, Je recherche un lisp qui puisse faire ceci : sélection de polyligne 3D et insertion, sur tous les sommets de la polyligne, d'un bloc dynamique que j'ai créé. en regardant tous les messages sur le bloc, j'ai cru comprendre qu'il est assez difficile de faire cela avec les blocs dynamiques et les attributs champs remplis automatiquement. (récuperation automatique de l'altimétrie du sommet). est ce que quelqu'un aurait un peu de temps pour me mettre sur la piste ou bien me proposer un petit bout de programme qui puisse faire cela? je vous joints le bloc... merci par avance et cela me rendrai bien service car je galère bien.... bonne journée à tous

Bonjour à tous, Je cherche a faire un bloc dynamique avec deux champs rempli de façon automatique. j'ai deux points topo strictement superposé (bloc TCPOINT Covadis avec attribut ALTI et MATRICULE) le premier renseigne l'altitude du TN et le second doit remplir l'altimètrie du réseau sur Génératrice supérieure. J'arrive à récupérer l'alti et remplir automatiquement l'alti du TN mais je n'arrive pas à récupérer l'alti de l'attribut du second point donnant le Z de la génératrice supérieure. Quelqu'un aurait-il une idée ou une manip pour arriver à avoir ce résultat dans une seule et même étiquette? Merci pour toutes vos idées et bonne journée à tous.

Salut, Merci beaucoup DenisHen, c'est vraiment sympa de ta part car je ne suis pas arrivé à trouver sur le net. et merci encore pour ta réactivité. Bonne journée à toi et à tous

Bonjour a tous, Je suis à la recherche d'un type de ligne de limite d'Etat (cadastre). cela parait peut être tout bête mais je n'arrive pas à en trouver. Est ce que quelqu'un aurait la gentillesse de m'en proposer un à intégrer dans mon acadiso.lin? Merci à tous et bonne journée. :)

RE-bonjour à tous, J'ai trouve en fouillant dans les archives LISP de CADXP(fait par framboisette) et j'ai trouvé un LISP (lisp longueur) qui m'irait bien aussi mais le seul inconvénient c'est que la sélection de calque est unique alors que j'aurai besoin de sélectionner plusieurs calques filtrés. Est ce que j'abuse si je demande à une âme charitable, de me le retoucher afin qu'il réponde à ce besoin mais aussi que le fichier EXCEL s'ouvre dans la foulée? Le summum de la chose serait de sélectionner un fichier EXCEL créer avant par moi (sorte de gabarit EXCEL avec logo et différentes infos en entête. je vous donne le code au cas ou quelqu'un aurait un peu de temps à consacrer à ma demande.MERCI BEAUCOUP par avance... Je demande peut etre beaucoup.... merci encore ; Calcule la longueur des lignes et lwpolylignes du calque spécifié (defun c:metre (/ clq js cnt tot nb_l nb_pl lo_l lo_pl) (vl-load-com) (if (and (setq clq (getlayer nil)) (ssget "_X" (list '(0 . "LINE,LWPOLYLINE") (cons 8 clq))) (setq nb_l 0 nb_pl 0 lo_l 0.0 lo_pl 0.0 ) ) (progn (vlax-for o (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)) ) (if (= (vla-get-ObjectName o) "AcDbLine") (setq nb_l (1+ nb_l) lo_l (+ lo_l (vla-get-Length o)) ) (setq nb_pl (1+ nb_pl) lo_pl (+ lo_pl (vla-get-Length o)) ) ) ) (setq descr (strcat "\nNom de calque..........\t" clq "\nNombre de lignes.......\t" (itoa nb_l) "\nLongueur de ligne......\t" (rtos lo_l) "\nNombre de polylignes...\t" (itoa nb_pl) "\nLongueur de polyligne..\t" (rtos lo_pl) "\nLongueur totale........\t" (rtos (+ lo_l lo_pl)) "\n" ) ) (textscr) (princ descr) (initget "Oui Non") (if (= (getkword "\nEnregistrer dans un fichier ? [Oui/Non] < Non >: " ) "Oui" ) (progn (setq file (open (getfiled "Créez ou sélectionnez un fichier" "" "xls" 33) "a" ) ) (princ descr file) (close file) ) ) (graphscr) ) ) (princ) ) ; GetLayer ; Retourne le nom du calque entré ou choisi par l'utilisateur ; dans une liste déroulante de la boite de dialogue ou en sélectionnant à l'écran ; Argument : le titre (string) ou nil (défaut : "Choisir un calque") (defun getlayer (titre / lay lst tmp file what_next dcl_id nom) (while (setq lay (tblnext "LAYER" (not lay))) (setq lst (cons (cdr (assoc 2 lay)) lst)) ) (setq lst (acad_strlsort lst) tmp (vl-filename-mktemp "Tmp.dcl") file (open tmp "w") ) (write-line (strcat "getlayer:dialog{label=" (cond (titre (vl-prin1-to-string titre)) ("\"Choisir un calque\"") ) ";initial_focus=\"tp\"; :boxed_column{:row{ :column{:text{label=\"Sélectionner un objet\";alignment=left;}} :column{:button{label=\">>\";key=\"obj\";alignment=right;fixed_width=true;} spacer;}} :edit_box{key=\"tp\";edit_width=25;allow_accept=true;} :popup_list{key=\"lay\";edit_width=25;} spacer;}ok_cancel;}" ) file ) (close file) (setq dcl_id (load_dialog tmp)) (setq what_next 2) (while (>= what_next 2) (if (not (new_dialog "getlayer" dcl_id)) (exit) ) (start_list "lay") (mapcar 'add_list lst) (end_list) (or nom (setq nom (vlax-ldata-get "getLayer" "n")) (setq nom (vlax-ldata-put "getLayer" "n" "0")) ) (if (member nom lst) (set_tile "lay" (itoa (- (length lst) (length (member nom lst)))) ) (set_tile "lay" "0") ) (set_tile "tp" nom) (action_tile "obj" "(done_dialog 3)") (action_tile "tp" "(setq nom $value)") (action_tile "lay" (strcat "(if (or (= $reason 1) (= $reason 4))" "(progn" "(setq nom (nth (atoi $value) lst))" "(set_tile \"tp\" (nth (atoi $value) lst))" "(mode_tile \"tp\" 2)))" ) ) (action_tile "accept" (strcat "(if (tblsearch \"LAYER\" nom)" "(progn (done_dialog 1)" "(vlax-ldata-put \"getLayer\" \"n\" nom))" "(progn" "(alert (strcat \"Le calque \" nom \" est introuvable.\"))" "(setq nom nil) (set_tile \"tp\" (vlax-ldata-get \"getLayer\" \"n\"))" "(mode_tile \"tp\" 2)))" ) ) (setq what_next (start_dialog)) (cond ((= what_next 3) (if (setq nom (car (entsel))) (setq nom (cdr (assoc 8 (entget nom)))) (setq nom nil) ) ) ((= what_next 0) (setq nom nil) ) ) ) (unload_dialog dcl_id) (vl-file-delete tmp) nom )

Bonjour, Merci beaucoup à tout les deux... je n'ai que le choix. Merci encore à vous...quel pied de savoir que lorsque l'on a un soucis, on peut toujours compter sur quelqu'un qui maîtrise le sujet sur le bout des doigts... et réponse vitesse "V" en plus... Est ce que je peux abuser encore un peu de votre temps? je récupère des plans topo avec beaucoup de calques et je souhaite filtrer les polylignes de certains calques et les copier sur un nouveau dessin Autocad, qu'il soit ouvert et que l'utilisateur se retrouve sur la nouvelle page ouverte avec les nouvelles polylignes filtrées afin d'en faire les métrés. Je sais que j'en demande beaucoup mais est ce possible d'avoir un exemple de code que je pourrais adapter à plusieurs entités Autocad (blocs, multilignes, textes...etc) Si c'est possible bien sur. Pendant que j'y suis, je demande conseil aux "sages" lispeurs. J'aimerai me recoller au LISP que j'ai abandonné il y a longtemps et je vois que cela à évoluer vitesse "V" aussi. Que me conseilleriez vous, soit comme ouvrage, soit comme site sur lequel je pourrai me remettre aux goûts du jour... Merci encore pour tout et bon début de journée à tous....en cette belle journée ensoleillée

Bonjour à tous, Je ne suis pas un habitué du lisp mais j'en ai fait il y a bien longtemps. je recupère des bouts de LISP fait par un peu tout le monde que je monte comme je peux pour que cela fonctionne. Mais la je bloque complet... je souhaite récuperer des polylignes avec la longueur et le cumul par calque. le tout à écrire sur EXCEL. Je vous dépose le bout de LISP.... si quelqu'un pouvait me débrouiller la fin du programme qui n'arrive pas à synthétiser le cumul par calque.. De plus je souhaite que le fichier EXCEL s'ouvre à la fin de la commande... Si c'est pas trop demandé. Merci beaucoup ;(defun metres (/ ss tot nb n long obj lst lay l_lay) ;(vl-load-com) (if (setq ss (ssget "_X" '((0 . "LWPOLYLINE")))) (progn (setq fn (getfiled "Fichier de métrés" "" "xls" 1)) (setq fh (open fn "w")) (setq nb (sslength ss) n 0 tot 0.0) (write-line (strcat "\n\nLe dessin contient : " (itoa nb) " polylignes (longueurs exprimées en m)") fh) (repeat nb (setq obj (vlax-ename->vla-object (ssname ss n)) long (vlax-curve-getDistAtParam obj (vlax-curve-getEndParam obj) ) tot (+ tot long) lay (vla-get-Layer obj) ) (write-line (strcat "\nPolyligne" (itoa (setq n (1+ n))) " = " (rtos long) "\tCalque : " lay ) fh) ) (if (setq l_lay (assoc lay lst)) (setq lst (subst (cons lay (+ long (cdr l_lay))) l_lay lst)) (setq lst (cons (cons lay long) lst)) ) ) (mapcar '(lambda (x) (write-line (strcat "\nLongueur totale sur le calque " (car x) " : " (rtos (cdr x)) fh) ) ) lst ) )

Profil Formation type DUT Génie Civil ou équivalent. Aisance en anglais. Description Au sein du service Energie, Barrages et Ouvrages Hydrauliques d'Artelia Eau Environnement, vous participerez ou prendrez en charge la conception de tout type d'ouvrages pour des aménagements hydroélectriques et hydrauliques: barrages, ouvrages hydrauliques (tour de prise d'eau, vidange de barrages, évacuateurs de crues, tunnels hydrauliques, usines hydroélectriques aériennes ou souterraines). Les études seront de type avant projet (AP), projet (PRO) et exécution tant pour des maîtres d'ouvrages publiques que pour des entreprises, et ce à l'Etranger comme en France. Vous travaillerez au sein du bureau d'études d'une équipe pluridisciplinaire (géologue, géotechnicien, hydraulicien, ingénieur structure,électromécanicien.... Le niveau d'expérience du candidat permettra d'affiner sa position en tant que projeteur débutant ou confirmé. Type de contrat : CDI Salaire : à négocier selon expérience Département(s) : Isère | Ville(s) : ECHIROLLES Contact : 04.76.33.41.59 xavier.ducos@arteliagroup.com

salut Fraid merci pour ce cours d'informatique pure !!! je vois que tu maîtrises vraiment bien ton sujet. Effectivement je vais prévoir un peu de temps pour faire tout cela et je te tiendrai au courant de l'avancée. Et surtout du résultat obtenu !!!!!! Merci encore pour tout.

Merci à Fraid et à Laurent pour vos renseignements. Désolé, de ne pas vous avoir répondu plus tôt mais le manque de temps était notable ces derniers temps. En tout cas, vous êtes d'une efficacité redoutable car tous vos renseignements m'ont fait gagné beaucoup de temps et surtout, ont évité que je m’énerve pour rien !!!!!! Fraid, nous allons passé en 64 bits : vu avec notre service info !!! par contre, je sais que j'abuse mais mais aurais-tu un lien vers le site spécialisé dont tu parles dans ton mail (à propos de Windows !)? Quand tu auras le temps bien sur et surtout sans aucune pression.Par avance je te remercie et j'en profite au passage pour vous remercier tous. CADXP est vraiment un site exceptionnel. En vous lisant tous, on en apprend tous les jours sur ce vaste et compliqué monde d'Autocad !!!!! Bonne soirée à toutes et à tous

Salut Fraid, la configuration est celle ci : Dell Precision T7400 Processeur : Xeon X5482 3,2Ghz Ram : 4Go Carte Graphique Nvidia Quadro FX3700 512Mo Windows XP Pro 32Bits Si tu as des précisions, je suis vraiment preneur car j'en suis venu à me dire : abandonner Autocad pour un autre soft CAO' Merci encore et bonne journée.

merci Christian, a priori cela va mieux mais aurais tu une idée pour le reste? Est ce que cela viendrait de l'installation? BOnne journée. Pardon je n'ai pas répondu à ta première question : en fin de compte je ne sais pas si le problème vient du couple Covadis + autocad ou Autocad tout seul (c'est un map 3D !!!) [Edité le 11/2/2011 par kaisho]

Bonsoir à tous, Je viens d'installer Autocad 2011 et je découvre quelques soucis que je n'avais pas avec 2010. Si vous quelqu'un peut me renseigner cela serait bien car j'ai perdu quelques habitudes du fait de ne pas retrouver mon environnement habituel: tout d'abord, le double click sur un objet ne marche pas. Par exemple, si je le fais sur une polyligne, rien ne se passe. Même chose pour les hachures. et pourtant la fonction double click est cochée dans les options d'autocad !!) Ensuite, lorsque je selectionnais sous 2010, par exemple un polyligne, j'avais dans le menu contextuel, bouton droit de la souris, une invitation à intervenir en 3D sur cette dernière. Je ne me souviens plus précisement du libelle mais je pouvais transformer cette polyligne et lui donner une altitude constante, faire une interpollation entre les deux extrémités de la polyligne et ensuite d'autres fonctions bien pratiques. (j'utilise COVADIS de façon permanente et cela m'évitais d'intervenir sur les barres d'outils ou les menus déroulants!!!) Une autre chose aussi étrange, lorsque que je fais un copier/coller sur un nouveau dessin je n'ai plus accès, à partir du menu contextuel, à la commande "coller vers les coordonnées d'origine". Je sais qu'elle existe dans le menu déroulant mais lorsque l'on devient vieux et que l'on a ses habitudes, il est difficile de s'en séparer !!!!!! En tout cas merci pour vos futures réponses car cela me débrouillerais bien !!! AH, j'allais oublier..... j'ai de gros problème de temps de réaction lorsque j'utilise la commande hachures par le mode pointage dans un polygone. (environ 10 à 12 secondes avant d'avoir accès de nouveau à la boite de dialogue!!!!!) C'est pénalisant. Est ce que cela vient De la version 2011 tout ces problèmes ou bien y a til des paramétrages bcp plus pointus à effectuer ? Merci encore pour vos réponses (si vous en avez!!!) et bonne soirée à tous

Bonjour à tous, Ce n'est surement l'endroit du forum ou il faudrait poser la question, mais comme je n'ai pas de reponse sur le forum Raster Design, je me permets de la poser ici (si une bonne ame charitable pouvait me depatouiller relativement vite. Chntier à rendre rapidement !!!!!!) Je viens d'installer Raster Design 2009 que j'utilise pour la premiere fois ! Je dois vectoriser des courbes de niveaux afin de creer des MNT (tracés de profil en long sur COVADIS). Mes scans sont en couleur et il me semble que sous Raster, il faut que je sauvegarde mes images en "2tons" afin d'en vectoriser les courbes et y ajouter du Z. J'ai à peu près reussi, a l'aide de l'histogramme à en faire des fichiers ingurgitables mais je n'arrive pas à lancer la vectorisation des c de niveaux. La polyligne ne suit pas la CDN et de plus le trajet qu'elle suit est n'importe quoi. (pas de lissage et ne suit pas le trajet de la cdn) Mes questions sont : qq'un sait-il quels peuvent etre les parametrages qui peuvent marcher dans quasiment tous les cas de vecto de cniv? Faut il se lancer dans un nettoyage des scans (plus de taches) ou peut on contourner cela en augmentant ou diminuant certains paramètres? Comment faut il faire pour que le trajet suivi ne s'arrete pas au quadrillage qui intersecte les cniv ( ou a certains parasite du au scannage)? Les courbes de niveauxen zone escarpée sont très proches, comment peut on faire pour eviter les changements de direction intempestifs? et enfin comment peut regler les options de vectorisation ,efficacement, à la creation du fichier "image 2 tons"? Y a t il des ruses ou des boutons miracle pour arriver à cela ? je n'y crois guère !!!!!! mais peut etre un CADOR en vecto auto pourra me depatouiller ? je l'éspère, enfin j'y crois dur comme fer car sinon je me sens seul ( à utiliser Raster car meme les specialistes de certaine hotline ne maitrisent pas!!!!!!!!!) Merci à tous ceux qui prendront le temps de me répondre. (surtout que la liste des mes questions c'est "'l'encyclopedie sans la reliure" Bon forum à tous et merci encore pour vos reponses

et oui...... je n'avais pas vu effectivement on peut à l'aide de segments de droites, faire un profil de tunnel. Merci a JPEG et à LOVECRAFT Les profils types sont dispos en *.dty. Merci et à bientôt

Salut à tous, Il me semble avoir vu passer un jour, une petite phrase qui disait que le module par profil type est capable de pouvoir sortir un dessin de tunnel + les métrés. Les parties circulaires des tunnels se font-elles ? si oui, y aurait-il un BOSS de ce module qui pourrait m'en dire plus. Sur cette conception assez particulière mais aussi sur d'autres cas auquels je ne pense pas et qui pourrait s'appliquer aussi facilement. Merci à tous :cool:

salut Ticticmarc, J'ai dejà bossé avec GDM et effectivement il est assez lourd pour la saisie des données et surtout il faudrait que mon BE l'achète........ c'est pas gagne Si j'ai posé la question de rentrer facilement une coupe de sondage c'est que je pensais que qq chose de relativement facile à developper et surtout assez conviviale à utiliser, existe. Mais vu que cela à l'air assez dur, je me debrouillerais sans..... Merci quand meme pour tout et a + pour d'autre renseignements

oui Didier, tu as raison les sondages sont connus en plan et en profondeur (forcément). Quand je parle "au vue de la coupe terrain" je veux dire la coupe papier .Par contre pour le PL les creations sont diverses COVADIS et par des applis des clients. (donc pas de regles .....) Merci encore

merci à vous pour vos réponse. Effectivement mon axe n'est jamais rectiligne et surtout ces sondages ne sont jamais effectues au droit de mon PL. Mais en général, les sondages ne sont jamais fais trés loin. Donc une projection perpendiculaire sur mon PL ne changera pas fondamentalement le sous-sol. (Vue parfois les précisions de relevés sur le terrain!!!!!!!!!!). Par contre ce que je recherche c'est un outils de saisie dynamque qui permette, au vue de la coupe terrain, de tracer un rectangle( par exemple) donné par les les profondeurs trouvées par matériaux et que, automatiquement ce rectangle se hachure suivant un matériaux enoncé au préalable. Peut-etre suis-je un gros reveur mais mon niveau en LISP ne me permets pas de le sortir sans batailler des semaines... Mais je sens que pour un PRO du LISP c'est jouable..... ex profondeur de l'argile = 3.5m profondeur de gneiss = 2m La possibilite c'est que un rectangle de 3.5m en Y et 1m en X se dessine pour l'argile avec un style de hachure. Le second rectangle récupère les XY du rectangle inférieur pour redissiner un autre de 2m en Y et 1m en X qui se superpose au précédant et ainsi de suite...... pour finir la coupe. J'éspère avoir été clair et pas trop long dans mes explications......... Merci d'avance à Didier et ticticmarc (et aux autre aussi)

Bonjour à tous, Je travaille dans un BE qui a besoin de souvent faire des implantations de coupes de sondages sur profils en long. Est ce que qq'un aurait un petit bout de LISP qui pourrait permettre de gagner du temps en dessin et en hachurage. (malgrès le manque de cahier des charges au niveau des motifs de hachurages en Géotechnique). Merci à tous