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.