richard-c

Bonjour (gile) je pense que GLOUB veux dire une entité qui a un Z de départ différent du Z de fin. A+

Bonjour, je cherche la musique de La Garisou de Marianno soit la guérison de Marianne, chant révolutionnaire. si quelqu'un l'a en possession je suis preneur c'est pour illustrer un diaporama MERCI

bonjour, donne moi ton adresse perso, tu auras un super type de ligne, car je ne sais pas comment insérer un fichier SHX, tu sais cela fait 2 ans et demi que je suis en retraite, je n'ai plus AutoCAD mais j'ai gardé mes fichiers. A+

Hé bien, mon gars, si cela t'a aidé, c'est bien. ce n'est rien (ou presque) pour que le texte s'écrive sur le dessin dans le programme. A+

bonjour, essayes cela ;;;;;Renseigne une pente ou une rampe (defun C:devers ( / blp pt_o pt_f e_last dxf_o dev) (setvar "cmdecho" 0) (setq blp (getvar "blipmode")) (setvar "blipmode" 0) (initget 8) (setq pt_o (getpoint "\nSpécifiez le point de départ: ")) (if (null pt_o) (setq pt_o (getvar "lastpoint"))) (cond (pt_o (initget 41) (setq pt_f (getpoint pt_o "\nChoix du point final: ")) (cond (pt_f (command "_.ray" pt_o pt_f "") (setq e_last (entlast) dxf_o (trans (cdr (assoc 11 (entget e_last))) 0 1 T) ) (if (zerop (car dxf_o)) (setq dev "infini") (setq dev (rtos (* (/ (cadr dxf_o) (car dxf_o)) 100.0) 2 4)) ) (entdel e_last) (prompt (strcat "Pente = " dev " %")) (alert (strcat "Pente = " dev " %")) ) ) ) ) (setvar "blipmode" blp) (setvar "cmdecho" 1) (prin1) ) il n'écrit pas de texte sur ton dessin, mais tu peux bidouiller assez facilement le programme pour le faire. ce programme viens de notre ami BonusCAD je crois. A+

bonjour. c'est parti, tu remarqueras que la couleur d'écran est 160 160 164, c'est beaucoup plus reposant

je suis passé par hasard, c'est rectifié. c'est mieux. si tu veux mon menu AutoCAD, donne moi ton adresse perso, ce n'est pas Covadis, mais ca aide (ou ca aidé). bonne soirée.

voila, tu clique le point puis le texte de l'altitude, (ou tu le rentre au clavier), et le point se remet à son altitude, ce n'est pas un programme de pro met rend bien des services (il m'en a rendu). A+ ___________________________________________________________________________________ (defun c:alti-point () (command "cmdecho" 0) (command "accrobj" "nod" ) (command "scu" "g") (setq pta nil) (while (setq pta (getpoint"\n Cliquer le point : ")) (entree) (setq pt1 pta) (setq z1 alt) (command "deplacer" pt1 "" pt1 ".xy" pt1 z1) (prompt "\n Le point 2D a été remis à son altitude ") (prin1) ) (command "scu" "p") (command "cmdecho" 1) (prompt "\n Travail terminé ") (prin1) ) (defun entree () (setq typ nil) (setq incre 0 nbto 1 jeu nil) (while (and (/= typ "INSERT") (/= typ "POINT") (< incre nbto)) (setq jeu (ssget "C" pta pta)) (setq nbto (sslength jeu)) (setq nom (ssname jeu incre)) (setq liste (entget nom)) (setq planpo (cdr(assoc 8 liste))) (setq typ (cdr(assoc 0 liste))) (setq incre (+ incre 1)) ) (if (= typ "INSERT")(val)) (if (= typ "POINT")(progn (select) (while (/= id "TEXT")(select)) ))) (defun val() (setq pta(cdr(assoc 10 (entget nom)))) (setq hauteur (cdr(assoc 40 (entget(entnext nom))))) (setq valeur1 (atof(cdr(assoc 1 (entget(entnext nom)))))) (if (= "ATTRIB" (cdr(assoc 0 (entget (entnext(entnext nom)))))) (progn (setq entval (fix valeur1)) (if (= 0 (- valeur1 entval)) (progn (setq valeur2(atof (cdr(assoc 1 (entget(entnext(entnext nom))))))) (setq entval (fix valeur2)) (setq hauteur (cdr(assoc 40 (entget(entnext(entnext nom))))))(if (= 0 (- valeur2 entval)) (confirm)) (setq alt valeur2)) (setq alt valeur1)) ) (setq alt valeur1) ) ) (defun confirm() (initget"o n") (prompt"\n ") (prompt"\nConfirmer la cote => ") (prin1 valeur2) (prompt"\n ") (setq rep(getkword"\n Non ")) (if(not rep) (setq rep "o")) (if (eq rep "n") (setq alt valeur1) (setq alt valeur2))) (defun select() (prompt"\n ") (setq id nil alt nil) (initget "Clavier") (while (/= id "TEXT") ; (command "accrobj" "ins") (setq pchoix (getpoint "\n Cliquer son altitude : ou C pour le taper au Clavier ")) (if (= pchoix "Clavier") (progn (setq alt (getreal "\n Taper l'altitude au clavier : ")) (setq id "TEXT")) (progn (setq altitude (ssget pchoix)) (if altitude (progn (setq altitude(ssname altitude 0)) (setq aq(entget altitude))(setq hauteur (cdr(assoc 40 aq))) (setq id (cdr(assoc 0 aq))))))) ; (command "accrobj" "auc") ) (if (not alt) (progn (setq alt (atof(cdr(assoc 1 aq)))) ))) (defun bbint () (command "accrobj" "int") (initget "Aucun Cote") (setq sbpta bpta) (setq bpta (getpoint "\n cliquer une intersection ou (A) pour aucun accrochage objet ou © pour Cote imposée : ")) (if bpta (progn (cond ( (= bpta "Aucun") (setq isel 1)(bbauc) ) ( (= bpta "Cote") (bbcote) (setq bpta sbpta) ) (T (setq pt (osnap bpta "int") bpta "pt" isel nil) (if (not pt) (bbint)) ) ) ) (setq bpta "arret") ) ) (defun bbauc () (command "accrobj" "auc") (initget "Intersection Cote") (setq sbpta bpta) (setq bpta (getpoint "\n cliquer un point ou (I) pour une intersection ou © pour Cote imposée : ")) (if bpta (progn (cond ((= bpta "Intersection") (setq isel nil) (bbint) ) ( (= bpta "Cote") (bbcote) (setq bpta sbpta) ) (T (setq pt bpta bpta "pt" isel 1) ) ) ) (setq bpta "arret") ) ) ________________________________________________________________________________________

IMPEC, le premier jour je me demandais ce que je faisais la, mais le vendredi nickel. j'ai tout effacé, ou presque puisque je reviens voir mes amis du forum de temps en temps

je crois avoir un programme qui remet un point et un texte (en cliquant le texte) en 3D, tu me laisse un peu de temps pour le retrouver, disons c'est après midi, et je te l'envoie. tu m'excuseras, mais je n'ai plus trop le reflex AutoCAD maintenant

il faut que le Papy arrête, j'ai envoyé 4 fois le même message A+

Bonjour, je suis en retraite depuis 2 ans et 3mois maintenant, je viens d'aller sur le blog de ton IUT, penses à signaler que [surligneur]ACCUEIL [/surligneur] s'écrit comme ceci et non [surligneur] ACCEUIL[/surligneur] , tu sais je suis nul en orthographe, mais ce mot m'a choqué, car depuis l'école on me l'a martelé, car après mon certificat d'étude, j'ai été en 4ème d'accueil, et il ne fallait faire de faute à ce mot. j'ai retrouvé le programme qui descend ou remonte l'altitude de points, et je l'ai mis sur le site (voir levé topo d'un lac). Bonne journée et A+

Bonjour, je suis en retraite depuis 2 ans et 3mois maintenant, je viens d'aller sur le blog de ton IUT, penses à signaler que [surligneur]ACCUEIL [/surligneur] s'écrit comme ceci et non [surligneur] ACCEUIL[/surligneur] , tu sais je suis nul en orthographe, mais ce mot m'a choqué, car depuis l'école on me l'a martelé, car après mon certificat d'étude, j'ai été en 4ème d'accueil, et il ne fallait faire de faute à ce mot. j'ai retrouvé le programme qui descend ou remonte l'altitude de points, et je l'ai mis sur le site (voir levé topo d'un lac). Bonne journée et A+

Bonjour, je suis en retraite depuis 2 ans, je ne fais plus AutoCAD, par contre, voici un programme qui répond en partie à ta question je pense. vas voir ici http://www.cadxp.com/modules.php?op=modload&name=XForum&file=viewthread&tid=18515#pid75998

c'est AutoCAD LT comme tu le dis, j'ai essayé de charger un lisp pour voir, cela ne marche pas, le diesel je crois que oui. c'est pas mal pour un gratuit, si il le reste . . . et pour la 2D . . .

Salut BonusCAD, je suis en retraite maintenant (depuis le1 octobre), peux tu m'envoyer ton adresse perso car je n'ai pas conservé mes adresses du bureau, (erreur de ma part) la voici => merci de me répondre [Edité le 18/10/2008 par richard-c]

Bonjour, (gile) a fait un excélent programme (comme d'habitude), il se nomme [surligneur] inctxt.lsp [/surligneur]et tu tapes au clavier [surligneur] INCSUFF[/surligneur]. tu le trouveras dans les téléchargement de ses programmes. A+

Bonjour, des plans fait par des "anciens" qui font tout, y compris la presentation dans l'espace objet. je précise que certains anciens connaissent mieux l'espace papier que certains "moins vieux", donc, j'en déduit que des "plus jeunes" travaillent comme des anciens. A+

salut, j'aime bien, je verrai lundi son utilité dans mon métier, (tout en sachant que dans 2 semaines et demie, je suis en congés jusqu'au . . . 11 septembre, et le 12 les trés grandes vacances. Bon WE

Bonjour, je rejoint lili2006 et je dis CHAPEAU, comme d'abitude. A+

bonjour, peut être est ce une volonté de l'auteur, quand on décale et que la polyligne est épaissit, la (les) polyligne(s) décalée(s) prenne aussi la même épaisseur. A+

Bonjour, je suis d'accord avec toi, avec les propriétés, on peut faire des rotations, mais alors pourquoi as tu mis l'échelle alors que les propriétés le font aussi ? A+

Bonjour ou re bonjour, dans Edit_bloc_3.5.lsp, ne pourait on pas ajouter la rotation des blocs par rapport à leur point d'insertion, je crois qu'alors on aurait fait le tour de la question. A+

bonjour, moi aussi, j'aime bien ce programme, (j'aimas bien déjà celui de bonuscad) c'est seulement dommage que l'on ne voit pas en surbrillance les éléments que l'on clique (ou un changement de couleur provisoire) A+

salut carbot, le papy aurait bien voulu essayer, mais il a encore V2002 et il ne connait pas ssmap (pas moi mais AutoCAD) A+