lovecraft

Bonjour, Ci-dessous l'illustration rapide en vidéo. https://docs.google.com/file/d/0B_85Ome3N80dUnBxMno4VzRJU00/edit?usp=sharing Cordialement, Laurent

Bonjour, Tu peux insérer en tant que bloc ton fichier gabarit tout simplement. Cordialement, Laurent

Bonjour, Ci-dessous l'illustration en vidéo sur ton Fichier. https://docs.google.com/file/d/0B_85Ome3N80dYmF6cDhCRGxBVGM/edit?usp=sharing Cordialement, Laurent

Bonjour, Voici la solution de Formabois en vidéo qui correspond exactement à ta demande. Vidéo: https://docs.google.com/file/d/0B_85Ome3N80dQjkxb05BZG00aFk/edit?usp=sharing Cordialement, Laurent PS: Formabois bien Vu ;)

Bonsoir Messieurs, Merci de vos réponses précieuses. Cordialement, Laurent

Bonjour, Je recherche une façon plus élégante sur l'utilisation de la condition If (Cf code ci-dessous) Si ohdiametre = valeur alors lmini = valeur (peut on créer de liste de correspondance ?) (if (= ohdiametre 0.3) (setq lmini (/ 0.96 2))) (if (= ohdiametre 0.4) (setq lmini (/ 1.08 2))) (if (= ohdiametre 0.5) (setq lmini (/ 1.2 2))) (if (= ohdiametre 0.6) (setq lmini (/ 1.32 2))) (if (= ohdiametre 0.8) (setq lmini (/ 1.76 2))) (if (= ohdiametre 1) (setq lmini (/ 2.00 2))) (if (= ohdiametre 1.2) (setq lmini (/ 2.24 2))) (if (= ohdiametre 1.4) (setq lmini (/ 2.48 2))) (if (= ohdiametre 1.5) (setq lmini (/ 2.60 2))) (if (= ohdiametre 1.6) (setq lmini (/ 2.82 2))) (if (= ohdiametre 1.8) (setq lmini (/ 2.96 2))) (if (= ohdiametre 2) (setq lmini (/ 3.20 2))) Merci de vos retours, Cordialement, Laurent

Voilà, tu as trouvé tout seul ;). @plus Laurent

Bonjour, Peux tu essayer avec le type de ligne via le lien ci-dessous. Peux tu aussi me communiquer la version de ton Autocad ? Lien: https://docs.google.com/file/d/0B_85Ome3N80dcm83eGE2M1lmU3c/edit?usp=sharing @plus Laurent

Bonjour Ladinde, Pourrais tu nous donner un extrait de ton plan afin que l'on puisse te proposer une solution adapter à ton dessin ? Merci Laurent

Hello Thierry chez moi aussi grand soleil... mais le vent commence à pointer son nez.Si tu formes le CTC, Passes leur le bonjour de ma part ;) @plus Laurent

Bonsoir lili2006, Oui effectivement la commande effacer fonctionne. mais mon programme traite l'ensemble des profils (imagine de réaliser l'opération sur 150 profils ....). En ce qui concerne la ligne supérieur: Ce n'est pas un problème car c'est ce que je recherche. Cordialement, Laurent PS: HI mon 1000 message

re, Bon j'ai enfin réussi... je ne devais pas être dans un état normal ;) ci-dessous le code pour ceux que ça interresse. (defun c:ef-cote(/ pt1 pt2 x1 x2 y1 y2 deltax distp sset) (setq pt1 (getpoint "\n Cliquer le premier point:" )) (setq x1 (car pt1)) (setq y1 (cadr pt1)) (setq pt2 (getpoint "\n Cliquer le second de la fenetre:" )) (setq x2 (car pt2)) (setq y2 (cadr pt2)) (setq deltax (- x2 x1)) (setq distp (getdist pt1 "\n Cliquer le second point du profil:")) (setq nbr (getint "\n Entrer le nombres de profil à effacer:")) (command "zoom" "et") (setq sset (ssget "_W" pt1 pt2 '((0 . "*")))) (command "effacer" sset "") (repeat nbr (setq pt1 (list (car pt1) (- (cadr pt1) distp))) (setq pt2 (list (car pt2) (- (cadr pt2) distp))) (setq sset (ssget "_W" pt1 pt2 '((0 . "*")))) (command "effacer" sset "") ); fin du repeat ); fin du defun

Bonjour , Allez juste pour ceux qui ont une version Map ou Civil. On peut utiliser la commande Mapclean puis dans la derniere étape on peut cocher certaine options de conversion très pratique et rapide. http://img.imagesia.com/fichiers/69/08-03-2013-10-29-00_imagesia-com_694d_small.jpg Cordialement, Laurent

Bonjour, Pour la barre d'état c'est la variable STATUSBAR Cordialement, Laurent

Bonjour à tous, je rencontre un problème dans un fichier lisp que j'essai de créer Je voudrais effacer des données qui se trouvent dans une fenêtre de sélection et l’incrémenter en colonne. Vous trouverez ci-dessous le bout de code que j'essai de réaliser. Merci de votre aide (defun c:ef-cote(/ pt1 pt2 x1 x2 y1 y2 deltax distp sset) (setq pt1 (getpoint "\n Cliquer le premier point:" )) (setq x1 (car pt1)) (setq y1 (cadr pt1)) (setq pt2 (getpoint "\n Cliquer le second:" )) (setq x2 (car pt2)) (setq y2 (cadr pt2)) (setq deltax (- x2 x1)) (setq distp (getdist pt1 "\n Cliquer le second point du profil:")) (command "zoom" "et") (setq sset (ssget "_W" pt1 pt2 '((0 . "*")))) (command "effacer" sset "") (repeat 5 ;(setq sset (ssget "_W" pt1 pt2 '((0 . "*")))) ;(command "effacer" sset "") (setq pt1 (list x1 (- y1 distp))) (setq pt2 (list x2 (- y2 distp))) (setq sset (ssget "_W" pt1 pt2 '((0 . "*")))) (command "effacer" sset "") ); fin du repeat ); fin du defun Cordialement, Laurent

Bonjour Rodolphe11, Sans vouloir t'offenser, je pense que tu utilises mal le logiciel , car si tu veux dessiner ou pour accrocher des objets au 10ieme de millimètre. il faut peut etre songer à changer ta philosophie et dire qu'1 unité dessin corresponde à 1 mm (par exemple). Avec ta méthode , je pense que tu dois avoir quelques problèmes de Zoom J'espère que je ne suis pas à coté Cordialement, Laurent

Bonjour, Peux tu nous joindre le fichier en question (une portion) afin que l'on puisse analyser le problème. Cordialement Laurent

Voilà c'est exactement ça.

Bonjour JMBZ38, Malheureusement, je ne pense pas qu'un seul logiciel puisse faire ce que tu recheches. Ci-dessous les différents phasage de réalisation 1 Modélisation: Autocad Sketchup Rhinocéros 2 Import dans Lumion + texturage 3 Réalisatoin des scènes sous Lumion avec un bonne gestion des calques (Vidéo et image Fixe) 4 Réalisation des flèches sous Photoshop (Image png) 4 Montage sous after effect Voilà j'espère que c'est un peu plus clair pour toi Cordialement, Laurent

Hello, Bien vu, je n'avais jamais fait attention que si le calque n'existait pas, qu'avec établir il le créait. Grand_sapin , ça va te facilité la tache ;) @plus Laurent

Salut, Ci-dessous ce que tu recherches en lisp (defun c:layerexist () (if (tblsearch "LAYER" "01_Bord_P_T1") ;alors (command "-calque" "E" "01_Bord_P_T1" "") ;sinon (progn (command "-calque" "N" "01_Bord_P_T1" "co" 5 "01_Bord_P_T1" "") (command "-calque" "E" "01_Bord_P_T1" "") ) );fin du if );fin du defun Cordialement, Laurent

Oui, c'est pour ajouter/mettre à jour un import qui a subi des modifications (qui à un nom différent) Cordialement, @Keton, Hé, je ne fais qu'appliquer ce que mon maître m'a appris ;) @plus Laurent

Bonjour, Malheureusement, Je ne suis plus certifié ......(; car j'ai quitté le monde de la formation en 2012. Autrement j'ai été certifié pour les produits suivants chez Autodesk (Map - Civil - Autocad - LandExplorer) Je ne sais pas si l'on peut passer les certifications librement ???? Cordialement, Laurent

Bonjour, Un truc de ce genre ? http://img.imagesia.com/fichiers/5s/test-cylindre_imagesia-com_5ser_small.jpeg Si oui .. As tu un compte Paypal ;) .......................................... Allez je ferais un petit tuto dans la soirée @plus Laurent