x_all

effectivement, créer le calque juste après les entrées utilisateurs résout le pb... merci :)

bonjour j'ai fait un petit bout de code pour aidre nos plombier dans la conception cotation des réseaux gravitaire le programme pose simplement un texte sur les sommets de la polyligne indiquant le fil d'eau au point. Ces textes temporaires sont détruits quand on en à plus besoin. J'ai donc créer un calque pour les poser, et une fonction pour détruire ce calque. Le problème, c'est que l'utilisateur à la touche échappe facile et qu'il lui arrive de sortir avant que la fonction soit finie. le calque ZFE se retrouve donc courant, et je ne peux plus le détruire... J'ai résolu le pb avec le scu (je ne suis pas sur que mon test soit orthodoxe, mais ça a l'air de marcher) mais pour le calque, je rame... ;;; aide à la conception des réseaux gravitaires, ;;;deux fonctions définies: ;;;zfe pose un texte avec la valeur du fil d'eau en fonction de la pente donnée dans le calque "zfe" ;;;zde efface ces valeurs et détruit le calque (defun c:zfe (/ haut num dist pente pt pt2 inc) ;;; fonction pour poser un texte au point pt et stoker ce pt dans pt2 (defun Posetxt (num pt haut /) (entmake (list (cons 0 "TEXT") (cons 100 "AcDbEntity") (cons 100 "AcDbText") (cons 1 (rtos num)) (cons 10 (trans (cdr pt) 1 0)) (cons 11 (trans (cdr pt) 1 0)) (cons 8 "zfe") (cons 40 haut) ) ) (setq pt2 pt) (princ) ) ;;;mise en mémoire du calque courant et passer zfe en calque courant (setq cc (getvar "clayer")) (if (not (tblsearch "LAYER" "zfe")) (entmakex (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") (cons 2 "zfe") '(70 . 0) '(62 . 32) ) ) ) (setvar "clayer" "zfe") ;;;mise en mémoire du scu courant et passer scu g (if (not (tblsearch "ucs" "scu_init")) (progn (command "_ucs" "_save" "scu_init") (command "_ucs" "_world") ) ) ;;;question et initialisations (or (setq num (getreal "\nfil d'eau de départ départ <0>: ")) (setq num 0.0) ) (or (setq haut (getdist "\nHauteur du texte <0.3>: ")) (setq haut 0.3) ) (princ "\nAttention pente négative pour descendre dans le sens de construction de la polyligne" ) (or (setq pente (getreal "\npente ? <-0.02>: ")) (setq pente -0.02) ) (setq inc 0) (setq dist 0.0) ;;;parcour de l'axe et calculs (and (setq ObjLwHaut (entsel "\nSélectionner l'AXE : ")) (setq ObjLwHaut (entget (car ObjLwHaut))) (eq (cdr (assoc 0 ObjLwHaut)) "LWPOLYLINE") (progn (foreach pt (vl-remove-if-not '(lambda (x) (eq (car x) 10)) ObjLwHaut ) (if (= inc 0) (progn (Posetxt num pt haut) (setq inc 1) ) (progn (setq dist (distance pt pt2)) (setq num (+ num (* dist pente))) (Posetxt num pt haut) ) ) ) ) ) ; Restoration du calque et du scu (setvar "clayer" cc) (command "_ucs" "_restore" "scu_init") (command "_ucs" "_delete" "scu_init") (princ) ) ;------------------------------------------------------- ; Fonction pour détruire le calque des textes temporaires (defun c:zde () (command "_.Laydel" "_n" "zfe" "" "_Y") ) une idée?

au punaise... je ne me doutais pas que cette option était dépendante du dessin ^^ ce qui explique pourquoi avec d'autre fichier ça marchait sur le même poste et inversement... un mystère qui m'avait occupé longtemps qui se trouve bien vite résolu.... merci beaucoup :)

Pour ceux qui étaient là avant le 15 Aout, j'ai fait un bloc dynamique pour la cotation altimétrique il y a un dessin de notre bétoneux sur le quel le bloc ne marche pas... j'ai tester sur plein d'autre dessins et il fonctionne normalement toujours... pourquoi pas avec ce fichier? un zip avec le dessin en question et le bloc http://joch04.free.fr/tocad/images/alti-dyn/plan-BA.zip la page d'explication si vous voulez vous en servir http://joch04.free.fr/alti-dyn.htm

TRACE !! ça fait tellement longtemps que j'avais compris TRACER :P

^^ c'est pas du luxe d'être super explicite... je met pour le 1er fois un pied dans le monde merveilleux de la programmation, grace à la lecture attentive de ton introduction à Autolisp je tien à te féliciter pour la rédaction de ce manuel d'initiation qui reste simple sans être simpliste et néanmoins suffisamment complet et détaillé pour m'apporter enfin de vrai bases. Pour m'être essayer parfois à cet exercice, je sais que c'est pas facile d'expliquer aussi bien des concepts qui nous paraissent évidents.

cool :) j'étais en train de regarder du coté de la gestion d'erreur, mais je me doutais qu'il devait y avoir plus simple.. merci

bonjour je suis en train de faire un code pour calculer des fils d'eau sur une polyligne suivant une pente. au lancement de la fonction j'initialise l'altimétrie de départ à 0 ou une valeur saisie au clavier jusque là, ça va... mais régulièrement, je teste plusieurs trajet avec la même alti de départ, et c'est un peu pénible de devoir à chaque fois la retaper. Les variables globale devrai pouvoir me sortir de cet embarras. Mais comment tester si c'est la 1ere fois que je lance le programme et que la variable n'existe pas et que je dois donc l'initialiser ou bien que cette variable est présente dans le dessin et donc pouvoir la réutiliser ? merci

une routine qui l'utilise? mais qui le remplace.... je comprend pas. et elle ferai quoi la routine?

merci -Olivier-.... je sent que je vais la mettre en favori cette page...

bonjour je voudrai créer un calque non imprimable pour la création j'utilise ce bout de code (if (not (tblsearch "LAYER" "zfe")) (entmakex (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") (cons 2 "zfe") '(70 . 0) '(62 . 32) ) ) ) je cherche en vain le code DXF pour dire que mon calque est pas imprimable avec notre ami google, et j'ai beaucoup de mal avec (comman ... avez vous une idée? merci

as tu essayer de copier et renommer vlide._DS ? en vlide.dsk?

un peu hors sujet, mais pourquoi un lisp? c'est quand même plus simple d'importer des styles de cote avec le DesingCenter?

Harf... je crois bien que tu t'es fait avoir par les jolies icones qui ressemble à celle de word il faut utiliser celle qui sont cachée derrière le bouton... celle de la barre je ne comprend pas leur utilité. je crois bien que c'est comme ça depuis l'apparition du ruban...

2 pistes http://forums.autodesk.com/t5/AutoCAD-2013-2014-DWG-Format/Error-message-when-run-the-autocad-2014/m-p/3875884/highlight/true#M15948 le dernier message et http://usa.autodesk.com/adsk/servlet/ps/dl/item?siteID=123112&id=21929890&linkID=9240857

une qui me ferai plaisir c'est... une macro qui fait copier, et coller à l'origine dans un nouveau dessin ? du coup, je ne suis pas sur qu'avec une macro on puisse créer et rentrer dans un nouveau dessin...

d'entré, il y a une différence entre wetranfer et wetransferT... le second et pollué de pubs et autres petits gâteaux alors que le 1er est sans artifice. mais avec géomédia, il sont toujours passés par leur FTP pour les patch, il serait étonnant qu'il ai changé de moyens et plus encore pour le plus mauvais...

je l'ai lu en diagonale, mais il me semble bien que le 360 est un partage entre membres (les 2 doivent être loggés) pour envoyer des gros dossier je passe par Wetransfer ou un compte sur GMX.fr qui à un bon service de partage de dossier avec mot de passe

quel OS ? sur W7 c'est là: http://joch04.free.fr/tocad/images/compements/letredisq.jpg sur XP les outils d'administration sont rangés en dehors du panneau de config... mais je l'ai plus sous la main... dans les 2 cas il faut être logué en administrateur je crois bien...

c'est un dossier un peu sensible ici et pour des raisons de confidentialité, je ne peu pas le transmettre. Ma question était une simple curiosité... je pense que les que les DWF peuvent se développer pour résoudre ce genre de pb, car passer par un fond de plan en pdf sur autocad est excessivement lourd. De votre coté je pense que c'est plus une question de droit et de licence que de "défit technique" je ne crois pas que le dwf soit un format "libre". A voir si vous gérez les Xref en PDF mieux qu'autocad pour qui cette option est clairement pas optimisée. Pour ce qui est de l'archi en question, nos rapports sont suffisamment conflictuels pour que je lui apprenne pas son métier en plus de dénicher des coquilles sur ces plans... (une trappe d'accès VS sur la volée montante d'un escalier pour citer la plus spectaculaire.....)

ha ben je vais manger mon chapeau... je reprend le dessin du copain, j'en extrais un bout avec copier coller dans un nouveau dessin, je prend mon bloc, je fait copier coller du bloc Et là, miracle ça marche... il y a peut être un truc particulier dans ce dessin... le SCU etait pas sur général... a creuser... mais bon ya le pont du 15 aout qui se profile j'en ai un peu mare... à suivre Edit testé sur d'autres postes avec d'autres dessins, et ça marche... peut être penser à passer en SCU G avant de l'insérer YOUPI!! j'ai fait un petit tuto pour détailler son utilisation et un récapitulatif pour régler le champ (j'ai une mémoire de poisson rouge dans 15j je saurai plus le refaire :) ) merci encore à vous deux...

j'en avais refait un 3eme car le béton à une charte graphique un poil diférente, mais c'est pareil avec les 3.(mais j'ai ajouter la variable NGF au dessin) A l'importation les formules de champ sont remplacées par leur valeurs. Du coup, le bloc ne marche pas sur les anciens dessin. pour les nouveaux dessin, on va faire un gabarit basé sur le fichier de bloc et j'ai bon espoir que ça marche, mais je croyais naïvement qu'un simple copier coller ferai l'affaire... ce serai pas une "variable à la con" qui mange les formules?

harg! patatrac... que je fasse copier coller mon bloc-alti, ou que je l'insère via le desing center, les formules du champ ne sont pas importées.... du coup le bloc perd toute son interactivité.... je craque on y était presque...

Pouhaaaaa!! c'est plus pour les bétonneux que pour moi, mais tu peu pas imaginer le temps qu'on va leur faire gagner avec cette histoire merci tout plein la routine marche nickel chrome, elle est encore plus facile à utiliser que celle que j'avais en tête, et va résoudre par la même le problème de la cotation en "X Y" je vais faire 2 autres blocs pour ce type de cotation et roule ma poule cooooooool :)

poua!! super merci à vous deux, comme quoi on en apprend tous les jours :) reste que l'utilisation est pas super pratique... je viens de coter une façade, ça marche bien mais c'est un peu laborieux... copier un bloc, le déplacer, faire gaffe que l'origine reste bien sur une ligne horizontale... pas top. je ne connais rien en lisp, mais avant de creuser, j'ai cru lire que les lisp et les blocs dynamiques était un peu galère. j'aurai voulu lancer ma fonction et en 1 donner le point 0 puis cliquer n fois pour poser n bloc à leur emplacement... demander un point pour le réutiliser comme pts de base je dois m'en sortir mais comment appeler le paramètre point et lui assigner mon 2eme clic???