soso83

Bonjour Serge, J'ai utilisé une polyligne car je voulais donner une épaisseur à mon trait. Cette fonction me sert à représenter des tubes de contreventements reliant des tours d'étaiement. Merci car je ne savais toujours pas si un type de ligne aurait fait l'affaire! Soso83

Merci pour ton aide (Gile) mais je connaissais déjà cette fonction et c'est pas exactement ce que je recharchais. Pour ceux que ça pourrait interresser voila le lisp en question: (defun c:contreventements() (command "-calque" "et" "Tubes contreventements" "co" "3" "" "tl" "continuous" "" "") (setvar "osmode" 171) (setq pc1 (getpoint"\n1er point")) (setq pc2 (getpoint"\n2nd point")) (setvar "osmode" 0) (setq angle_pc (angle pc1 pc2)) (setq pc1bis (polar pc1 angle_pc -0.15)) (setq pc2bis (polar pc2 angle_pc 0.15)) (command "polylign" pc1bis "la" "0.05" "" pc2bis "") ) Certainement améliorable!!

Désolée pour mon manque de précision!! Ca serai lorsque je la dessine: je trace ma ligne en cliquant les 2 sommets et celle-ci se prolonge automatiquement de xhaque coté. Je crois que je vais opter pour un bon lisp en créant les point puis en utilisant polar... Je pensais juste qu'il y avait un moyen plus simple avec les types de ligne où qu'un lisp existait déjà.

Je voudrai que ma ligne se prolonge de 15cm à ses deux extrémités.

Ou peut-etre creer un nouveau type de ligne???

Bonjour à tous! Connaissez vous un moyen de prolonger une polyligne automatiquement d'une certaine distance au delà de ses sommets? Je pense notamment à un petit lisp!! Merci! Bonne journée!

Salut, Je ne connais pas inventor, mais si je comprend bien ta réponse ce n'est pas possible avec Autocad!!Tant pis pour moi et merci de ta réponse!

Bonjour, Je voudrai savoir s'il est possible de faire des cotes associées mais en inversant le système, c'est-à-dire qu'au lieu de mettre à jour la côte quand on modifie le dessin, pouvoir modifier la côte et que le dessin se mette à jour automatiquement. Peut-être avec un Lisp? Merci.

Bonjour, Tout d'abord merci pour vos réponses! Je vois dans quelle direction je dois aller mais je ne suis pas assez calée pour intégrer ces fonctions à mon lisp!! Je vous poste donc la partie concernée en espérant que vous pourrez m'aider! (terpri) (setq change_cle "O") (while (= change_cle "O") (setq cle (getreal "\nQuelle valeur de clé ?")) (command "_.undo" "_group") (setq ptlong1 (polar ptbase anglong1 cle)) (setq dist1 (- dist0 cle)) (setq nb1 (/ dist1 (+ 2.5 cle))) (setq nb2 (fix nb1)) (setq reste (rem dist1 (+ 2.5 cle))) (setq longcle (+ 2.5 cle)) (setq platbase(ssget"X"(list(cons 8 "*Plateaux_temp*")))) (command "copier" platbase "" ptbase ptlong1 "") (command "_erase" platbase "") (setq platbase2 (ssget "X" (list(cons 8 "*Plateaux_temp*")))) (setq ptlongn (polar ptlong1 anglong1 (+ cle 2.5))) (repeat (1- nb2) (progn (command "copier" platbase2 "" ptlong1 ptlongn "") (setq ptlongn (polar ptlongn anglong1 (+ cle 2.5))) ) ) (setvar "osmode" accr) (setq change_cle(strcase(getstring "\nVoulez-vous changer la valeur de la clé? Oui (O) / Non (N)"))) (command "_.undo" "_end") (cond((eq change_cle "O") (progn (command "_u") ) ) ) ) Voila, j'ai conscience que mon code est pas terrible et sa mise en page encore moins mais comme je débute l'essentiel pour moi et que ça fonctionne! Je rapelle que ce sont les points ptlong1 et ptlongn que je veux incrémenter. Merci!

Bonjour à tous, J'ai besoin de vous, pros du lisp!! Je vais essayer vous d'expliquer le plus clairement possible ce que je voudrai faire: J'ai déjà créer une partie de programme où j'insere un bloc en un point P_base, puis je le copie à partir de ce point P_base vers le point P1, cela autant de fois que nécessaire pour combler une certaine distance en utilisant la fonction "while". Mon problème est le suivant: à chaque copie, les points P_base et P1 sont redéfinis, or, je voudrai pouvoir les renommer ou mieux, les incrémenter afin de de garder leur trace et pouvoir retravailler dessus par la suite! Voila, j'espère que c'est faisable et que vous aurez le temps de m'aider. Merci à tous, votre site est génial!