Red

La problematique est que c'est dans l'optique d'un projet de fin d'année mais mon professeur de lisp qui est censé s'y connaitre quand même en 35ans de carriere ???? Et il est au final totalement largué par ce que je lui dit .. Alors que la avec le lisp que tu m'a fourni et bien je voit que cest pas si loins de ce que j'imaginais alors je me dit que c'est possible quand meme ..

Tout d'abord merci de ta réponse, Le soucis du diamètre est qu'il faut répertorier tout les diamètre existant pour tout les types de conduites ... et dieu sait qu'il y en à beaucoup :unsure: Et au cour de ma formation je n'ai pas vu les vla-get etc du coup je patauge un peu .. :unsure:

Il me semble que dans la barre des propriété il y à une case indiquant que l'on peut attacher le mur au toit

Après avoir imprimé en feuille A3 ton code puis en l'ayant surligné de partout j'ai réussi à trouver quelle partie du code fessait quoi. Je vois aussi quelle parties je veut modifier mais voila quelques problèmes se posent ... cela m'est impossible :huh: J'aimerai donner une largeur de polyligne en rentrant le diamètre de la canalisation puis faire en sorte que cette canalisation se mette en largeur globale de polyligne mais en plus petit (ex diamètre 200 = ep globale de 0.2, 300 = ep globale de 0.3) J'aimerai changer aussi le mot conduite qui est prédéfini ainsi que de pouvoir placer le texte ou bon me semble le long de la polyligne Et lors de la fin du programme le texte s'écrit 2 fois chose que je n'arrive pas à enlever .. Je suis totalement en galère par ce que je ne comprend pas comment exploiter et modifier le code, trop de partie codée que je ne comprend pas ..

Après quelque recherches, j'ai trouvé un recueil de variable :D un site avec 3 / 4 variables http://joch04.free.fr/achtml/variables.htm Et le GRAAL un pdf de 30 pages avec des variables B) http://www.rebcao.fr/docs-rebcao/variables_systemes_AutoCAD_2Mxx-TOUTES_les_VARIABLES.pdf Qui répond à ma question et à la demande de DenisHEN

Salutation amis lispeur, aujourd'hui je me suis mis à lancer un lisp sur un ordinateur du lycée mais problème, les paramètre de la personne avant moi sont totalement différent ... avant dans mon lisp avec initget cela m'affichai un petit tableau à coté de la souri et maintenant plu rien .. D'où ma question, auriez vous quelque part une liste de toutes les variable avec leur action ex: osmode=accrochage objet, Attdia etc .. Merci à vous.

Surement l'insérer en tant que bloc autocad puis le décomposer avec le bouton décomposer (ou en tapant DECOMP il me semble) Il me semble que pour les xref, tu prend ton dessin A tu va dans insérer, xref, et tu sélectionne ton dessin B après faire lier le dessin.

Salut, moi je serai intéressé sur comment placer un texte sur le milieu d'une polyligne / ligne, comment y mettre une certaine distance de décalage, comment prédéfinir le texte et comment y ajouter dans données type longueur de la ligne / polyligne. Pour comprendre la démarche. Merci.

Je viens ajouter ma contribution avec un petit site en ANGLAIS malheureusement, mais compréhensible avec quelques notions d'anglais, (puis sa fais un peu travailler son anglais) Pour trouver son bonheur, cliquer sur la flèche à coté de AutoLisp, les tutos sont bien foutus et il y à pleins de notions de base regroupées :D Site Accueil http://www.afralisp.net/index.php Raccourci vers le Beginner's Tutorial http://www.afralisp.net/autolisp/tutorials/index.php?category_id=1

Totalement intéressé aussi :D

Attention je ne pousse pas a une révolte ???? mais plus à une réflexion personnelle au vu de ce que je vois .. Aujourd'hui on m'a mis au planning pour une semaine et demi car le mec est parti en congé et comme je suis l'alternant et que personne ne veut le faire donc je me chope toute la gestion des équipes commande locatier etc alors que jusqu'à hier je ne connaissait pas la difference entre un 4x2 6x4 8x4 grue bibenne gravilloneur etc .. La prochaine fois je dirai non ????

Justement est ce que mettre le Hola de temps en temps ne serait pas bien ? Je veut bien avoir des périodes de bourre mais la j'ai l'impression que c'est comme avec les gosses, tu leurs donne le doigt, ils voient qu'il y à plus, te prennent la main, voient qu'il y à encore te prennent le bras et tu fini sous pression à la limite du burn out ... Récemment un chef de chantier est parti à l'hosto pour surmenage, dépression, burn etc et la réponse des supérieurs est "ce n'est pas de ma faute je donnais juste du travail" je suis surement pas le premier à le penser mais alléger les charges de travail créerai des poste, réduirai le chômage etc

Ouah honnêtement chapeau ... je trouve qu'il manque une certaine reconnaissance quand meme ..

De ce que j'observe, la polyvalence à certe des atouts pour soi, performance, aisance à travailler mais cela deviens vite un "fardeau" a voir comment mon maître d'alternance croule sous les travails en tout genre, levé, dessins de plans, calculs, plans excel, memoires techniques de 200 pages, vu qu'il sait se servir de photoshop pour son plaisir, on lui demande des truc toujours plus fous, il se tape du 6h45 -> 17h bosse en mangeant pour pas être a la bourre c'est flippant quand je vois ça, après je n'ai pas beaucoup d'expérience professionnelle dans ce domaine c'est peut être sa le "vrai" monde du travail .. ????

Super merci d'avoir autant de retours comme sa ???? Et oui le M.shubbert recrute toujours mais c'est sa dernière année après il part au Burkina Fasso ???? pour information tu était la en quelle année ? Moi ce qui me fais peur c'est que l'on est amené à rester de plus en plus dans un bureau, vous pensez qu'il y a de la place pour du social (démarcher les clients, relation client etc ?)

Tout d'abord bonjour, j'explique grosso modo le pourquoi du comment ce post :D j'ai quelques questions pour vous, quels formations avez vous eu ? comment faites vous pour créer des LISP aussi rapidement avez vous une base de donnée de fichier LISP ? quel poste et travail faites vous dans votre entreprise ? Pour ma part 23ans je suis en Licence pro dessinateur projeteur à NIMES (et BTS Géomètre Topographe obtenu en amont), et j'évolue actuellement dans une boite de travaux public SRMV (branche de COLAS, BOUYGUES ) et je me pose beaucoup de questions :huh: , je suis attiré par l'aspect automatisme qu'offre le LISP d'autocad mais je ne vois pas trop comment accéder au niveau de certain sur le forum qui me semble à des années lumières de mes capacités .. Pour la partie logiciels je suis sur Autocad / Covadis depuis 6ans et des formations sur Sketchup pro, Revit, Scia et Adfer. S'il y à des Dessinateurs Projeteurs parmi vous j'aimerai savoir dans quelle boite vous évoluez, que faites vous, quelles type de boite conseiller ? Merci de votre réponse et merci pour l'aide fournie sur le forum.

Merci pour le complément d'information.

De ce que je comprend, iniget est l'endroit ou l'on indique les différentes saisies prise en compte, et les (if (= rep "1")(setq rep "A1")) me disent si la réponse saisie est 1 alors met le dans la variable rep ? Je pose la question pour être sur.

Salut, tout d'abord merci de ta réponse. Je l'ai placé comme ci dessous malheureusement lorsque je fais 2 ENTRER, la commande s'arrête et je me retrouve placé avec une polyligne placé dans le calque 0, la commande semble s'arrêter .. Problème résolu après l'avoir mis autre part, je te remercie pour l'aide, c'était plutôt logique comme procédure je n'y avais pas pensé ..

Je re précise du coup, le lisp arrive déjà a avoir une valeur par défaut, seulement entre A1 et A2 je pensai faire une selection rapide en tapant 1 ou 2 au clavier :D Via la commande (if (not rep) (setq rep "A1") (defun c:bora ( / REP DC) (setvar "OSMODE" 6) (initget "A1 A2") (setq REP (getkword "\nType de bordure [A1/A2] <A1> : ")) (if (not rep) (setq rep "A1") ) (if (not (tblsearch "LAYER" "SRMV_Bordure_A1_AVANT")) (command "_.layer" "_new" "SRMV_Bordure_A1_AVANT" "") ) (if (not (tblsearch "LAYER" "SRMV_Bordure_A1_ARRIERE")) (command "_.layer" "_new" "SRMV_Bordure_A1_ARRIERE" "") ) (if (not (tblsearch "LAYER" "SRMV_Bordure_A2_AVANT")) (command "_.layer" "_new" "SRMV_Bordure_A2_AVANT" "") ) (if (not (tblsearch "LAYER" "SRMV_Bordure_A2_ARRIERE")) (command "_.layer" "_new" "SRMV_Bordure_A2_ARRIERE" "") ) (prin1 "\nCliquer le parcour de votre réseau <Taper (Return) pour FIN>") (command "_.pline" pause "_width" 0.02 0.02) (while (not (zerop (getvar "CMDACTIVE"))) (command pause) ) (cond ((= REP "A1")(command "_.chprop" (entlast) "" "_layer" "SRMV_Bordure_A1_AVANT" "") (setq DC 0.2) (command "_.offset" DC (entlast) pause "") (command "_.chprop" (entlast) "" "_layer" "SRMV_Bordure_A1_ARRIERE" "") (prin1) ) ((= REP "A2")(command "_.chprop" (entlast) "" "_layer" "SRMV_Bordure_A2_AVANT" "") (setq DC 0.15) (command "_.offset" DC (entlast) pause "") (command "_.chprop" (entlast) "" "_layer" "SRMV_Bordure_A2_ARRIERE" "") (prin1) ) ) (setvar "PLINEWID" 0) )

Question du jour bonjour ;) Ma question se trouve dans le code (initget "a1 a2") (setq REP (getkword "\nType de bordure [a1/a2] <a1> : ")) Lors de commande telles que ligne etc les sélection en bas se font avec une lettre en particulier (Bleutée) dans un lisp elles sont marquée comme cela je crois séLection avec la lettre L en sélection, ici je met a en minuscule pour avoir la sélection sur pavé numérique mais lorsque je fais entrer, ils me notifient "Choix de l'option incorrect" du coup comment lui dire que je peut valider avec ENTRER et accessoirement comment laisser les majuscules si possible. Merci de votre avis sur la question.

(defun c:bora ( / REP DC) (setvar "OSMODE" 3) ;accrochage milieu et extremité (initget "A1 A2") ;choix des bordure (setq REP (getkword "\nType de bordure [A1/A2] <A1> : ")) ;type de bordure et A1 par defaut (if (not rep) (setq rep "A1") ;si ok ou défaut faire A1 ) (if (not (tblsearch "LAYER" "Bordure_A1_AVANT")) ;cherche ton calque (command "_.layer" "_new" "Bordure_A1_AVANT" "") ;si il n'y est pas, le crée ) (if (not (tblsearch "LAYER" "Bordure_A1_ARRIERE")) (command "_.layer" "_new" "Bordure_A1_ARRIERE" "") ) (if (not (tblsearch "LAYER" "Bordure_A2_AVANT")) (command "_.layer" "_new" "Bordure_A2_AVANT" "") ) (if (not (tblsearch "LAYER" "Bordure_A2_ARRIERE")) (command "_.layer" "_new" "Bordure_A2_ARRIERE" "") ) (prin1 "\nCliquer le parcour de votre réseau <Taper (Return) pour FIN>") (command "_.pline" pause "_width" 0.02 0.02) ;largeur de base de la polyligne ici 0.02 0.02 (while (not (zerop (getvar "CMDACTIVE"))) (command pause) ) (cond ((= REP "A1")(command "_.chprop" (entlast) "" "_layer" "Bordure_A1_AVANT" "") ;met la première polyligne dans un calque avant (setq DC 0.2) ;distance de décallage (command "_.offset" DC (entlast) pause "") (command "_.chprop" (entlast) "" "_layer" "Bordure_A1_ARRIERE" "") ;celle décalée dans le calque derriere (prin1) ) ((= REP "A2")(command "_.chprop" (entlast) "" "_layer" "Bordure_A2_AVANT" "") (setq DC 0.15) (command "_.offset" DC (entlast) pause "") (command "_.chprop" (entlast) "" "_layer" "Bordure_A2_ARRIERE" "") (prin1) ) ) (setvar "PLINEWID" 0) ) ;pour les autres remplacer A1 par P1 A2 par P2 ajouter P3 en copiant collant une séquence et en le rajoutant à coté des précedent dans type de bordure iniget etc

Salut, j'aurai peut- être une réponse à ton sujet, en tripatouillant dans MLSTYLE tu peut créer un style de ligne multiple, dedans tu crée un style avec l'écart que tu souhaite, cela fais, tu coche dans les cases de gauche Ligne: départ et fin, normalement cela te créera une entité que tu pourra hachurée. Par contre je ne sais pas comment y donner une épaisseur désolé voir peut être avec la largeur de ligne de ton calque ? Je te prépare aussi un lisp que j'utilise pour faire des bordure je t'inviterai à l'ouvrir en lisp et à le regarder ;)

D'accord merci beaucoup pour l'explication, maintenant je vais essayer de transcrire ton lisp (deuxième post) dans un langage que je comprend mieux mais je ne promet rien <_< ou alors essayer de trouver les points de modifications pour changer ce qui ne conviens pas. :) Encore une fois merci de ton aide.

D'accord, je t'avouerai que j'ai flané sur le forum pour "assemble" pleins de commande que je voulais et les retravailler pour avoir un résultat qui marche <img src='http://cadxp.com/public/style_emoticons/<#EMO_DIR#>/laugh.gif' class='bbc_emoticon' alt=':(rires forts):' /> et comme mon niveau n'est pas très élevé et bien je ne sais pas qu'est ce qui deviens inutile dans mon lisp .. Ok, pour le calque sans les guillemets j'avais vu sa dans un article du forum, avec sa ne marchait pas et quand je les enlevai cela marchai du coup je les ai virés :D Par contre je remarque que ma largeur de polyligne par défaut reste à 0.02 soit l'épaisseur donnée dans la commande, du coup il me faudrait placer un (setvar "PLINEWID" "0" "") quelque part, est ce qu'à la fin de ma commande cela marcherai, comment je peut savoir à quel endroit le placer ? ((= REP "A2")(command "_.chprop" (entlast) "" "_layer" "SRMV_Bordure_A2_AVANT" "") (setq DC 0.15) (command "_.offset" DC (entlast) pause "") (command "_.chprop" (entlast) "" "_layer" "SRMV_Bordure_A2_ARRIERE" "") (prin1) ) ) (setvar "PLINEWID" "0" "") ) Après je sais que ma façon de coder est très rudimentaire je passe beaucoup par (command "xx") car je ne sais pas ou chercher exemple ou toi tu utilise "_.LAYER" et moi "-calque" car dans "_.LAYER" je ne trouve aucune indications ... D'accord cela explique pourquoi avec "-calque" je voyais quoi taper .. mais du coup comment fais tu pour connaitre un chemin précis avec ton "_.LAYER" ?