cedwit

car j'ai déjà des plan existant avec les styles que je veus mai avec de petite différence hors quan je dois faire une mise à jours de ces plans, je dois modifier manuellement les correction que j'ai apporter a mes différent style. Voyez-vous comme c'est pénible de tous faire manuellement.

Merci. Ce que je veus, c'est pouvoir fare un lisp de parametres qui me charge dans mon dessin des styles de texte et des styles de cotes bien définit, du genre texte "standard" police "ariale" etc.. pour les cotes, je supose qu'il faut entrer plus de parametres du genre de la taille du texte, de la taille des fleches ......

Bonjours, je voudrais faire un fichier lisp avec des parametres tel que les styles de texte, les style de cote... Est-ce qu'il y aurais un ame charitable pour m'aider? Merci d'avance.

oups, je suis trompé. (command "layer" "n" "VPORT" "c" "30" "VPORT" "l" "continuous" "VPORT" "p" "n" VPORT" "")

Merci à tous, j' ai trouvé la solution. C'était : (command "layer" "n" "VPORT" "c" "30" "VPORT" "l" "continuous" "VPORT" "p" "VPORT" "")

ça ne marche toujours pas. J'ai une version anglaise de autocad

(command "_.layer" "_p" "_n" "NomDuCalque" "") J'ai essayer, mais ça ne fonctionne pas. Voici le layer que je veus qui ne s'imprimme pas (command "layer" "n" "VPORT" "c" "30" "VPORT" "l" "continuous" "VPORT" "")

Bonjours, pourriez-vous me dire comment indiquer (dans un lisp qui charge les layer) un layer qui ne doit pas s'imprimmer? Merci d'avance pour vos réponses.

Tu peus aussi cliquer sur le bouton en bas "LWT"

Voici donc mon exemple de ce que je veus faire http://img221.imageshack.us/img221/6246/poutregr1.jpg

A parement mon image n'a pas ete inserer, peus-tu me dire comment faire merci

Voici un exemple de ce que je veus faire .

Non, je veus pouvoir dessiner des barres d'armatures(polyligne) suivant un coffrage, un enrobage et leur diamettre(épaisseur). Je m'explique : J'ai une poutres en béton armé, je dois y placer 3 barre inférieur en "L" de diametre 12 et d'un enrobage de 3cm; je clique sur mes somet de ma poutre et là par magie la barre se dessine et la jointure entre les 2 segment se transforme en rayon de courbure(arc=4xdiametre). Merci d'avance si quelqu'un sait m'aider.

Non, il ne faut pas le déplacer car je l'ai fait expres de le remettre ici. VB pour VBA LISP pour LISP

Je vous remercie pour vos truc, mais ce n'est pas vraiment ce que je cherche. En fait ce que je cherche a faire, c'ait une routine en lisp ou en vba qui me servirai a dessiner mes barres d'armature a une distance bien précise que je choisirrai et d'une épaisseur que je choisirai aussi.

Bonjours, j'aimerrai dessinner des polyligne avec une certaine épaisseur et un ou des arc qui servirons de rayon de courbure. Je m'explique, je suis dessinateur en stabilité (coffrage et ferrailage) et donc je voudrais améliorer ma productivité. Pour l'instant je faits les polyligne avec la commande de AUTOCAD, mais cela me prends un peu trop de temps et donc si quelqu'un peus m'aider voir meme me donner les codes lisp. Merci d'avance.

merci pour l'aide mais je ne veus pas faire un polyligne en 3d mais en 2d . Ce que je veus dire c'est qu'avec 1 fichier lisp, je peus dessiner une poliligne qui a la forme d'un etrier ou d'une droite par exemple

Bonjours, j'aimerrai dessinner des polyligne avec une certaine épaisseur et un ou des arc qui servirons de rayon de courbure. Je m'explique, je suis dessinateur en stabilité (coffrage et ferrailage) et donc je voudrais améliorer ma productivité. Pour l'instant je faits les polyligne avec la commande de AUTOCAD, mais cela me prends un peu trop de temps et donc si quelqu'un peus m'aider voir meme me donner les codes lisp. Merci d'avance.

Un grand merci pour vos solutions, je m'envai essayer tous ça

Un grand merci à toi BRED, mais cela ne fonctionne pas, je l'avais déjà essayer. Autocad ne reconnait pas les chiffres après le ptab.

Un grand merci, ça a fonctionner. Mais je n'arrive pas à inserer mon bloc a l'échelle 1/1. Pourriez-vous me dire comment faire, car cela ne fait pas longtemps que je me suis mis au lisp.

Bonjours a tous, J'aimerais savoir si quelqu'un pourrais m'aider en lisp. Je m'explique : je veus inserer un bloc type puis pouvoir l'exploser pour changer ses dimensions. En fait j'ai creer un fichier lisp et il ne marche pas bien. Voisi in apperçu ;;armatures parametré ;;============================ (defun err (s) (if (/= s "Fonction annul‚") (princ (strcat "\nErreur: " s)) ) (setq p nil) (setq *error* olderr) (princ) ) ;--------------------------------- (defun c:arma () (setq olderr *error* *error* err) (setq oldcmd (getvar "cmdecho")) (setvar "cmdecho" 0) (textscr) (princ "\n") (princ "\n") (princ "\n") (princ "\n") (princ "\n Diametres --> A : U") (princ "\n B : L") (princ "\n C : D") (princ "\n D : I") (princ "\n") (princ "\n") (initget "A B C D") (setq choix (getkword "\n ...... Choisissez une lettre :")) (if (= choix nil) (setq choix "A")) (cond ((= choix "A") (U)) ((= choix "B") (L)) ((= choix "C") (D)) ((= choix "D") (I)) ) (setvar "cmdecho" oldcmd) ;; (princ) ) (princ) ;;----------------------------------------- ;;U (defun U () (Utab) ) ;;----------------------------------------- ;;L (defun L () (Ltab) ) ;;----------------------------------------- ;;D (defun D () (Dtab) ) ;;----------------------------------------- ;;I (defun I () (Itab) ) ;;----------------------------------------- ;;tableau U (defun Utab () (initget "U6 U8 U10 U12 U14 U16 U18 U20 U25 U32") (setq dim (getkword "\n ...... Diametre de la barre ? ")) (if (= dim nil) (setq dim "U6")) (cond ((= dim "U6") (command "insert" "U6")) ((= dim "U8") (command "insert" "U8" ptab "1" "" "0")) ((= dim "U10") (command "insert" "U10" ptab "1" "" "0")) ((= dim "U12") (command "insert" "U12" ptab "1" "" "0")) ((= dim "U14") (command "insert" "U14" ptab "1" "" "0")) ((= dim "U16") (command "insert" "U16" ptab "1" "" "0")) ((= dim "U18") (command "insert" "U18" ptab "1" "" "0")) ((= dim "U20") (command "insert" "U20" ptab "1" "" "0")) ((= dim "U25") (command "insert" "U25" ptab "1" "" "0")) ((= dim "U32") (command "insert" "U32" ptab "1" "" "0")) ) ) ;;----------------------------------------- ;;tableau L (defun Ltab () (initget "L6 L8 L10 L12 L14 L16 L18 L20 L25 L32") (setq dim (getkword "\n ...... Diametre de la barre ? ")) (if (= dim nil) (setq dim "L6")) (cond ((= dim "L6") (command "insert" "L6" ptab "1" "" "0" "EXPLODE")) ((= dim "L8") (command "insert" "L8" ptab "1" "" "0" "EXPLODE")) ((= dim "L10") (command "insert" "L10" ptab "1" "" "0" "EXPLODE")) ((= dim "L12") (command "insert" "L12" ptab "1" "" "0" "EXPLODE")) ((= dim "L14") (command "insert" "L14" ptab "1" "" "0" "EXPLODE")) ((= dim "L16") (command "insert" "L16" ptab "1" "" "0" "EXPLODE")) ((= dim "L18") (command "insert" "L18" ptab "1" "" "0" "EXPLODE")) ((= dim "L20") (command "insert" "L20" ptab "1" "" "0" "EXPLODE")) ((= dim "L25") (command "insert" "L25" ptab "1" "" "0" "EXPLODE")) ((= dim "L32") (command "insert" "L32" ptab "1" "" "0" "EXPLODE")) ) ) ;;----------------------------------------- ;;tableau D (defun Dtab () (initget "D6 D8 D10 D12 D14 D16 D18 D20 D25 D32") (setq dim (getkword "\n ...... Diametre de la barre ? ")) (if (= dim nil) (setq dim "D6")) (cond ((= dim "D6") (command "insert" "D6" ptab "1" "" "0" "EXPLODE")) ((= dim "D8") (command "insert" "D8" ptab "1" "" "0" "EXPLODE")) ((= dim "D10") (command "insert" "D10" ptab "1" "" "0" "EXPLODE")) ((= dim "D12") (command "insert" "D12" ptab "1" "" "0" "EXPLODE")) ((= dim "D14") (command "insert" "D14" ptab "1" "" "0" "EXPLODE")) ((= dim "D16") (command "insert" "D16" ptab "1" "" "0" "EXPLODE")) ((= dim "D18") (command "insert" "D18" ptab "1" "" "0" "EXPLODE")) ((= dim "D20") (command "insert" "D20" ptab "1" "" "0" "EXPLODE")) ((= dim "D25") (command "insert" "D25" ptab "1" "" "0" "EXPLODE")) ((= dim "D32") (command "insert" "D32" ptab "1" "" "0" "EXPLODE")) ) ) ;;----------------------------------------- ;;tableau I (defun Itab () (initget "I6 I8 I10 I12 I14 I16 I18 I20 I25 I32") (setq dim (getkword "\n ...... Diametre de la barre ? ")) (if (= dim nil) (setq dim "I6")) (cond ((= dim "I6") (command "insert" "I6" ptab "1" "" "0" "EXPLODE")) ((= dim "I8") (command "insert" "I8" ptab "1" "" "0" "EXPLODE")) ((= dim "I10") (command "insert" "I10" ptab "1" "" "0" "EXPLODE")) ((= dim "I12") (command "insert" "I12" ptab "1" "" "0" "EXPLODE")) ((= dim "I14") (command "insert" "I14" ptab "1" "" "0" "EXPLODE")) ((= dim "I16") (command "insert" "I16" ptab "1" "" "0" "EXPLODE")) ((= dim "I18") (command "insert" "I18" ptab "1" "" "0" "EXPLODE")) ((= dim "I20") (command "insert" "I20" ptab "1" "" "0" "EXPLODE")) ((= dim "I25") (command "insert" "I25" ptab "1" "" "0" "EXPLODE")) ((= dim "I32") (command "insert" "I32" ptab "1" "" "0" "EXPLODE")) ) ) (princ) La partie que j'ai mis en gras est a faire exploser. Merci d'avance pour toute l'aide que vous me fournirez.

un grand merci, je vais essayer cela tout de suite.

Bonjours à tous, je cherche comment coter la longueur d'un arc de cercle. Par exemple, mon arc de cercle a une longueur de 250 cm, je veus le coter avec une cote qui me dit que mon arc fait bien 250cm. J'espère être asser claire. Merci d'avance.

Un grand merci a vous, j'ai réussi ce que je voulais faire. Votre aide m'a été précieuse