philsogood

hello Bruno, à quoi correspond (getvar 'cmdactive) ? à quoi sert (commande pause) si je ne m'abuse (getpoint (getvar 'lastpoint)) va renvoyer les coordonnées dui premier point (et le ligne sera semblable à un point) je suis dans le vrai? Merci pour tes lumières Phil

hello je sais aps, je tourne avec la version primitive 2010 par contre dernièrement j'ai trouvé ce site : http://www.progecad.us/index.pl?id=20854 @+ Phil

wahaaag! :/ misérable question de SCU je me demande comment j'ai pu modifier mon SCU sur mon EP!! encore merci à tous Phil

Philphil tu guettais un post ou bien? pcq pour répondre à 3h du mat faut vraiment être motivé!! ;) Phil

hello j'ai le même probleme je peux faire passer le fichier a quelqu'un? ++ Phil PS : fillmode est sur 1

Merci (gile) pas facile pour un néophyte de savoir comment écrire ceci ou cela... bref le code retravaillé marche à merveille pour le if je savais que je n'avais aps la bonne syntaxe mais je ne savais aps comment écrire sans progn. vu! petite question : pourquoi mettre un and devant le while, c'est pour sortir de la boucle proprement si on ne renseigne pas le getpoint? dernier point : esk'on peut renseigner un variable à travers un "command"? ex : (command "_dimordinate" (setq base (getpoint "\nPositionner la base de la cote")) (getpoint "\nPositionner le texte de la cote")) tout ça afin de placer d'abord la cote (et de la visualiser) avant de placer le bloc fleche ++ Phil

hello fauxsuisse je ne suis aps en expert en scirpt mais je pense que ça doit pouvoir se faire assez facilement avec le fonction CONCATENER d'Excel tu pourras t'aider de ciprt de bryce : http://cadxp.com/index.php?/topic/33665-remplacement-de-bloc/page__view__findpost__p__181617 Phil

hello pour faire suite à une discussion qui avait eu lieu ici : http://cadxp.com/index.php?/topic/36049-bloc-dynamique/page__p__197047#entry197047 j'avais commencé à faire un code pour la cotation altimétrique automatique ça marchait mais je souhaite rajouter comme le dit topic une fléche pour ma cote en reagéardant un lisp de zebulon j'avauis réussi à modifier mon lisp comme ceci (defun c:ni (/point_zero zero base pos_cot rot) (setq point_zero (getpoint "\nIndiquer le point de repère")) (initget 1) (setq zero (getdist "\nIndiquer l'altimétrie de ce repère : ")) (command "_ucs" "_o" (list (car point_zero) (- (cadr point_zero) (* 1000 zero)) ;supprimer le 1000 si dessin en mètre ; modifier par 100 si dessin en centimètre ) ) (sav_para) ;;modif des paramètres pour une cotation conforme (setvar "clayer" "68 COTES DE NIVEAU") (setvar "cecolor" "bylayer") (setvar "celtype" "bylayer") (command "_celweight" "-1") (while T ;; t=true la boucle se répétera tant que l'on n'en sortira pas avec un echap (setq base (getpoint "\nPositionner la base de la cote")) (setq pos_cot (getpoint "\nPositionner le texte de la cote")) (if (> (cadr pos_cot) (cadr base)) (progn (setq ROT "0") ) (T (setq ROT "180") ) ) ;if (command "_INSERT" "NIVCS" ;nom du bloc (flèche) (list (car pos_cot) (cadr base)) ;coordonnées "1" ;echelle X (car annotatif) "1" ;echelle Y (car annotatif) ROT ;rotation du bloc si nécessaire ) (command "_dimordinate" base pos_cot) (command "_ddedit" "_l" "") ) ;while ) (defun c:nin(/base pos_cot rot) (sav_para) ;;modif des paramètres pour une cotation conforme (setvar "clayer" "68 COTES DE NIVEAU") (setvar "cecolor" "bylayer") (setvar "celtype" "bylayer") (command "_celweight" "-1") (while T (setq base (getpoint "\nPositionner la base de la cote")) (setq pos_cot (getpoint "\nPositionner le texte de la cote")) (if (> (cadr pos_cot) (cadr base)) (progn (setq ROT "0") ) (T (setq ROT "180") ) ) ;if (command "_INSERT" "NIVCS" ;nom du bloc (flèche) (list (car pos_cot) (cadr base)) ;coordonnées "1" ;echelle X (car annotatif) "1" ;echelle Y (car annotatif) ROT ;rotation du bloc si nécessaire ) (command "_dimordinate" base pos_cot) (command "_ddedit" "_l" "") ) ) (defun *error*(err) (retour_para) ) ;;=================================================================== ;; enregistrement des anciens paramètres (defun sav_para() (setq OLDLAYER (getvar "clayer")) (setq OLDCOLOR (getvar "cecolor")) (setq OLDCELTYPE (getvar "celtype")) (setq OLDWEIGHT (getvar "celweight")) (setq OLDSTYLE (getvar "dimstyle")) ) ;;rétablissement des anciens paramètres ;;même lorsque l'on sort du programme de manière sauvage (ou non) (defun retour_para() (setvar "clayer" oldlayer) (setvar "cecolor" oldcolor) (setvar "celtype" oldceltype) (setvar "celweight" oldweight) (command "_dimstyle" "_r" oldstyle) ) mais AutoCAD pas content me sort cela : ni ; erreur: une erreur est survenue dans la fonction *erreur*paramètre de la variable AutoCAD rejeté: "clayer" nil Je touche au but mais... ça bugge... pourtant ce qu'il y a des frustrant c'est que quand je fais tourner le programme "pas à pas" (en chargeant le prog par bloc pour voir si tu fonctionne RAS) Phil Nota : Pour ce lisp il faut juste créer un style de cote superposée et un bloc nivcs qui compose la fleche de ma cote...

hello, J'ai trouvé ce site sur le web pour connaitre le B.A ba des fonctions du lispeur débutant : http://www.progecad.us/index.pl?id=20854 Ca ne va pas faire le programme tout seul mais ça a quand même son utilité Phil

hello @-olivier- ben c'est bien ce que j'avais écrit mais ça marchait pas ; toujours est-il que mtn ça fontionne! cool @bryce du coup le lisp nu ne sert plus dans ni, il est indépendant et ne sert que lorsqu'on l'appele directement... ; ça marche très bien aussi, j'ai juste pensé à rajouter le (sav_para) ... pour que mes cotes soient faites correctement. merci à vous deux Phil

si SYNCHRO est l'abbréviation de SYNCHRONISER j'ai rien compris!! :) Phil

Salut Philou peux-tu être un peu plus clair sur ton problème : eske sur la même présentation tu peux être amnené a avoir pls blocs avec le nom de tes routes? si oui eske ces blocs contenants les attributs peuvent avoir des avoir les valeurs nouvelle_route pour certains et ancienne_route pour d'autres (toujours sur la même présentation)?Merci pour les éclaircissement. Phil

hello il y a peu j'ai fait une formation pour faire un peu de lisp j'aivais dfait un petit lisp pour poser des cotes altimétrique et arréter de m'enquiquiner... (lisp qui repose sur le dé^placement du SCU et sur une cotation ordonnée en suite) le tout a été revu et corrigé par rebcao (le formateur) ça donnait ça : (defun c:ni (/) (sav_para) ;;modif des paramètres pour une cotation conforme (setvar "clayer" "68 COTES DE NIVEAU") (setvar "cecolor" "bylayer") (setvar "celtype" "bylayer") (command "_celweight" "-1") (command "_dimstyle" "_r" "superposees") (setq point_zero (getpoint "\nIndiquer le point de repère")) (initget 1) (setq zero (getdist "\nIndiquer l'altimétrie de ce repère : ")) (command "_ucs" "_o" (list (car point_zero) (- (cadr point_zero) (* 1000 zero)) ) ) (while c:nu (command "_dimordinate" pause pause) (command "_ddedit" "_l" "") ) ) (defun c:nu() (while c:nu (command "_dimordinate" pause pause) (command "_ddedit" "_l" "") ) ) (defun *error*(err) (retour_para) ) ;;=================================================================== ;; enregistrement des anciens paramètres (defun sav_para() (setq OLDLAYER (getvar "clayer")) (setq OLDCOLOR (getvar "cecolor")) (setq OLDCELTYPE (getvar "celtype")) (setq OLDWEIGHT (getvar "celweight")) (setq OLDSTYLE (getvar "dimstyle")) ) ;;rétablissement des anciens paramètres ;;même lorsque l'on sort du programme de manière sauvage (ou non) (defun retour_para() (setvar "clayer" oldlayer) (setvar "cecolor" oldcolor) (setvar "celtype" oldceltype) (setvar "celweight" oldweight) (command "_dimstyle" "_r" oldstyle) ) Eternel insatisfait je trouvais que ce code étais perfectible, en effet il m'arrive d'avoir des cotes à placer après avoir fait ne suite d'autres commandes. Pour autant je ne souhaite pas avoir à redéfinir le SCU (sois feinéant tu vivras longtemps!) en tapant la commande nu j'arrive à mes fins sauf que je n'ai pas comme lorsque je fais la commande ni les bons paramètres pour la définition de ma cotes (style de cotes, calque...) Etant entreprenant j'ai donc modifié le lisp... et ça nje marche plus!! héhé nouveau code (defun c:ni (/) (sav_para) ;;modif des paramètres pour une cotation conforme (setq point_zero (getpoint "\nIndiquer le point de repère")) (initget 1) (setq zero (getdist "\nIndiquer l'altimétrie de ce repère : ")) (command "_ucs" "_o" (list (car point_zero) ;; coordonnées X (- (cadr point_zero) (* 1000 zero)) ;; coordonnées Y ) ) ;; fin command _ucs (nin) ) ;; fin ni(/) (defun c:nin() (sav_para) (setvar "clayer" "68 COTES DE NIVEAU") (setvar "cecolor" "bylayer") (setvar "celtype" "bylayer") (command "_celweight" "-1") (command "_dimstyle" "_r" "superposees") (while c:nin (command "_dimordinate" pause pause) (command "_ddedit" "_l" "") (retour_para) ) ) (defun *error*(err) (retour_para) ) ;;=================================================================== ;; enregistrement des anciens paramètres (defun sav_para() (setq OLDLAYER (getvar "clayer")) (setq OLDCOLOR (getvar "cecolor")) (setq OLDCELTYPE (getvar "celtype")) (setq OLDWEIGHT (getvar "celweight")) (setq OLDSTYLE (getvar "dimstyle")) ) ;;rétablissement des anciens paramètres ;;même lorsque l'on sort du programme de manière sauvage (ou non) grâce au defun *error*(err) (defun retour_para() (setvar "clayer" oldlayer) (setvar "cecolor" oldcolor) (setvar "celtype" oldceltype) (setvar "celweight" oldweight) (command "_dimstyle" "_r" oldstyle) ) j'ai modifié le lisp nu en nin que je trouve plus esthétique (bref...) d'ou vient l'erreur? Phil PS : il y a quelque chose que je ne comprends pas dans le lisp ni c'est à quoi sert (while c:nu (command "_dimordinate" pause pause) (command "_ddedit" "_l" "") ) vu que ce morceau de code est définit dans le lisp nu... j'espère me faire comprendre car ayant moi même du mal à comprendre le lisp...)

hello super ton truc _zebulon, je suis sous le charme... j'arrivais à gruger sur l'échelle du bloc en faisant un bloc annotatif (il faut vivre avec son temps :P ) malgré ma solide formation de lispeur émérite, je voudrais savoir comment tu as fait pour que le bloc s'attache sur la base de la COTORD (et non sur le point sélectionne pour définir la cote)? par ailleurs comment fais tu pour que la partie verticale de la cote (qui est alignée avec la flèche) soit justement verticale? tu fais ça à la main ou ce segment est vertical d'emblée? Merci à toi. Phil

paf! t'as mis dans le mile! j'ai exporte ce cartouche vers un plan ayant comme unité le mètre (alors que le bloc a été crée sous un ficheir ou le mm est l'unité de travail) mer reste qu'à modifier mon bloc dans le gabarit pour ne plus voir la boulette se répéter encore merci Phil

Bingo Régis, t'as pa volé ta bière... après, le truc que je ne comprends pas c'est : pourquoi jusqu'à présent le cartouche s'imprimait-il correctement alors que le texte est annotatif? biZarre Phil

bonjour, Je ne comprends pas pourquoi les TEXT de mon bloc (cartouche) ne s'affichent pas Ils sont visibles lorsque je souhaite éditer mon bloc mais disparaissent lorsque je retourne dans l'espace papier!! pour qui veut je peux envoyer ce plan par mail : i-love-cadxp(at)laposte(.)net merci pour votre aide Phil

autant pour moi x_all... en même temps je ne connais pas le grade et je pensais que... Phil

@(gile) tout à fait je disais qu'en utilisant les grades, si 50 grades = 100% de pente, il suffit de taper un angle qui correspond à la moitié de la pente que l'on désire pour être dans les clous... (en même temps vu que je m'exprime très mal je comprends très bien que tu ais mal interpréter ce que je racontais) @dinosor : +1 Phil

Formabois, 2 solutions : ou tu te mets au lisp ou tu utilises des solution simple on gagne souvent du temps à utiliser des solutions simples!! ;) Phil PS : Sinon ya peut être quelque chose çà faire avec les grades (si tu utilises ce type d'unité sur ton fichier) il te suffira d'être en coordonées polaire et d'indiquer ta pente divisée par 2 en guise angle pour avoir fait une formation lisp ya peu c'est pas très compliqué à faire (je pense) good luck

@tony bryce a eu la bonne idée de faire un bloc dynamique de la ligne isolation... du coup quelque soit ton échelle d'impression ton isolation reste identique (ce qui est merveilleux admettons le!) le lien : http://www.petit-fichier.fr/2012/09/20/isolation/ @+ Phil

extraordinaire ce ??? et dire que j'étais apssé par un lisp la dernière fois alors qu'il suffisait d'un truc aussi bête (en même temps j'ai pas essayé cette solution sur mon ancien problème) Merci Formabois Au fait sur le post j'ai cru comprendre que tu étais un "ancien" (je cite) tu approches les combien sans indiscrétion? (tu peux répondre en PM ;) Phil Bonne soirée

hello toujours embéte par le "renommage" des blocs... dans mon cas j'ai un bloc et je souhaite lui ajouter un suffixe, problème lorsque je tape : renommer bloc ancien nom : * nouveau nom : *-a Rien en se passe en gros j'ai la problématique inverse à celle que j'avais la dernière fois, partir d'un nom de bloc sans suffixe pour lui en ajouter un J'ai regardé le lisp de (gile) du lien http://cadxp.com/index.php?/topic/11999-renommer-plusieurs-blocs/page__view__findpost__p__62042 mais ça ne marche pas non plus Pas très ergonomique cette fonction renommer... Phil

@didier ah oué? toi aussi tu te rapproches dangereusement de la retraite? ;) Phil

rien compris! :/