lovecraft

Que veux tu precisement une surface 3D ou une surface 2D ?

Merci Pieroka pour ce lien . ;)

je voulais vous remerciez pour l'aide que vous nous donnez. Donc comme vous le suggerez j'ai une p'tite demande a vous faire. Est ilpossible de lancer un nouveau challenge? le sujet serait: trier une liste de bloc avec un attribut (style numero du bloc) Pour ensuite avoir une nouvelle liste suivant l'attribut. Merci de votre aide. @plus

bonjour le voici corrigé (defun parallel-p (P1 P2 P3 P4) (if(and (eq (angle P1 P2) (angle P3 P4)) (eq (/ (-(caddr P1) (caddr P2)) (distance P1 P2)) (/ (-(caddr P3) (caddr P4)) (distance P3 P4)))) T nil ) ) Normalement il fonctionne bien je viens de le tester sur autocad avec les exemples que tu as donner plus haut il compare l'angle donc le gisement et l'inclinaison soit la pente (ce qui confirme que les droites sont sur le meme plan. ert je pense que j'ai reussi le challenge car je n'utilise que les parametre que tu as defini dans l'ennoncé. @plus

voila la mienne de réponse (defun parallel-p (P1 P2 P3 P4) (if(and (eq (angle P1 P2) (angle P3 P4)) (eq (/ (-(caddr P1) (caddr P2)) (distance P1 P2)) (/ (-(caddr P1) (caddr P2)) (distance P1 P2)))) T nil ) ) J'espere que c'est bon?.......

Bon voila j'espère que ma réponse sera à la hauteur: (defun ctg (P1 P2 P3) (list (/ (+ (car P1) (car P2) (car P3)) 3) (/ (+ (cadr P1) (cadr P2) (cadr P3)) 3)) ) Encore merci de nous faire progresser

bonsoir, hem dis moi gile.... juste une p'tite idée si nous comparons juste le gisement des droites, cela suffit pour determiner si elles sont parralleles? donc pas besoin de faire des calculs interminables .... @plus Ps :je suis entain de plancher pour le challenge debutant ;) et merci pour les conseils qui m'aident à progresser.

bonjour, Voila ma reponse avec mes connaissances: (defun c:ctg() (setq P1 '(10 5) P2 '(4 15) P3 '(-2 -5)) (setq XG (* (/ 1.00000000000 3) (+ (car P1) (car p2) (car P3)))) (setq YG (* (/ 1.00000000000 3) (+ (cadr P1) (cadr p2) (cadr P3)))) (setq XYG (list Xg Yg)) ); fin du defun on peut certainement faire mieux, mais j'ai eu un soucis avec (/ 1 3) qui me retourne 0 d'ou (/ 1.00000000 3) merci de vos commentaires

Merci pour l'importance que vous avez apporté a ma demande. en ce qui me concerne j'ai qqes notions en lisp et en VBA donc en cherchant un peu voir beaucoup j'arrive à comprendre ce que vous faites , un p'tit bémol, je ne connais rien en Vlisp (je suis entrain d'aborder le sujet) Et pour reprendre la reponse de gile, je comprends bien qu'il s'agisse d'un challenge concernant les plus aguéri.Mais l'idée d'un challenge pour ce qui début et une merveilleuse idée. Encore merci à vous trois. PS: J'attends que l'un d'entre vous lance un challenge pour les débutants.

bonsoir, Ah enfin, je vais pouvoir repondre ;) il y a aussi un service chez free qui permet d'envoyer des fichiers volumineux jusqu'a 1giga et 5 giga via serveur FTP ci-dessus le lien. http://dl.free.fr/ Perso, je n'ai jamais eu de problème. Voila ma contribution....

Je voulais juste lancer un remerciement pour cette inititative très riche , mais pour qu'elle soit encore plus riche et lucrative. Ilfaudrait que les personnes qui repondent , expliquent en details leur réponse. Je sais ca demande beaucoup de boulot.....Mais bon comme ca tout le monde pourrait un peu mieux comprendre. Merci encore à vous

Dans notre bureau nous utilisons la méthode de 2% par seconde (C'est ce qui se rapproche le mieux du setra) Mais bon c'est la même méthode que gand sapin. @plus

je vous remercie pour votre aide. je suis entrain de finaliser ma routine vba. Je la mettrai a disposition pour ce que ca interresse. la routine effectuera la fonction suivante extraction des coordonnées d'une polyligne 3d vers excel. @plus

bonjour, il me semble que le logiciel dont tu parles est: ViewCompanion Pro. Tu le trouve sur la toile en version d'evaluation. bonne conversion @plus

merci de ton aide bred. en fait ce que je veux faire c'est: je selectionne un ligne 3d sous autocad apres definir les nombres de sommets => tableau array ensuite extraire les coordonnées de la ligne3d. Merci encore

bonsoir, Je ne vous demande pas de faire le programme à ma place. Mais juste des informations, afin que je puisse réaliser cette routine sous VBA (qqes bouts de codes ;)) Merci à vous.

bonjour, J'ai peut etre une solution a votre probleme.... Vous me direz si je me trompe . Mais pourquoi vous n'utilisez pas les multilignes. =====> Vous decomposer puis il vous suffut de joindre les lignes. @plus

Bonjour à tous Je voulais savoir s'il etait possible de demarrer autocad sans qu'il ouvre de fichier. Merci

Bonjour, A ma connaissance il me semble qu'il n'est pas possible de réaliser des parties circulaire. Mais bon si qq'un connait une technique je suis preneur. En ce qui me concerne je gere ce genre de cas avec des segment de droit. @plus

oui il existe un moyen. utilise un script exemple sous excel A B C D po 1 X Y Z =concatener(x;,;y;,;z) 2 3 ensuite tu copies la colonne D et tu colle ssous autocad voila

re je suis d'accord avec kallian dans ma reponse , je parlais de largeur de plate forme encore désolé pour l'info eroné @plus

Bonjour, Pour repondre à ta question il est souvent utilisé 10m ou 8m Il faut savoir que le rayon de braquage d'une 307 est de 8.15m @plus

Bonjour, je recherche une routine vba pour extraire les sommets d'une 3dpoly et de les transferer sous excel automatiquement. Pour info: j'ai ce qu'il faut en lisp . Mais j'aimerais ne connaissant pratiquement pas le VBA avoir une p'tit aide. Merci à tous (defun c:xypoly () (setq ent (car (entsel "\nCliquez une polyligne :"))) (setq bdent (entget ent)) (setq typent (cdr (assoc 0 bdent))) (if (= typent "LWPOLYLINE") (progn (setq nomfic "C:/XYPOLY2D.txt") (setq fic (open nomfic "w")) (setq i 0) (repeat (length bdent) (setq entit (nth i bdent)) (setq codeentit (car entit)) (if (= codeentit 10) (progn (setq xentit (car (cdr entit))) (setq yentit (cadr (cdr entit))) (setq xyentit (strcat (rtos xentit 2 3) " " (rtos yentit 2 3))) (write-line xyentit fic) );fin du progn );fin du if (setq i (+ i 1)) );fin du repeat );fin du progn );fin du if (if (= typent "POLYLINE") (progn (setq nomfic "C:/XYPOLY3D.txt") (setq fic (open nomfic "w")) (setq i 0) (setq ent1 (entnext ent)) (setq bdent1 (entget ent1)) (setq typent1 (cdr (assoc 0 bdent1))) (while (= typent1 "VERTEX") (setq code10 (cdr (assoc 10 bdent1))) (setq xentit (car code10)) (setq yentit (cadr code10)) (setq zentit (caddr code10)) (setq xyzentit (strcat (rtos xentit 2 3) " " (rtos yentit 2 3) " " (rtos zentit 2 3))) (write-line xyzentit fic) (setq ent1 (entnext ent1)) (setq bdent1 (entget ent1)) (setq typent1 (cdr (assoc 0 bdent1))) );fin du while );fin du progn );fin du if (close fic) );fin du defun c:xypoly

bonjour, j'aurais voulu savoir, si parmis vous, qq'un avait une doc sur les methodes de calcul des bassins ainsi que la definition de volume mort (et comment se determine t til ?) Merci

bonjour, Je commencerais par remercier patrick pour ses lisp. Mais bon ce n'est pas pour cela que je suis venu , quand je charge le lisp de patrick autocad m'informe que le fichier dcl est introuvable. Merci de bien vouloir m'aider... De plsu je voulais rajouter qu'autocad ne connait pas (vlax-import-type-library.... (c'est dans le premier lisp de patrick qqun peut m'aider aussi sur ce sujet...... Merci à vous