ssd91

Je suis vraiment désolé mais je n'ai pas pu venir sur le site depuis lontemps...à cause du BOULOT. Je vous remercie pour vos réponse didier et dr.loveless. Je vais essayé ce soir et je vous tiens au courant au plus vite. Encore merçi et à bienôt. Amicalement

Salut chrchat, je te remercie de m'avoir répondu même si tu ne t'y connais pas...

Bonjour à tous :cool: , Ce la fait lontemps que je ne suis pas venu sur le site par manque de temps,dsl. Certaines personnes m'ont vu sur le forum LISP mais je me lance aussi en VBA qui m'a l'air un peu compliquer pour le moment. Je voudrais savoir comment créer un bloc dans Autocad en VBA? Et existe-t-il une commande qui permet de calculer directement la distance entre 2 points? :( Dans la documentation que j'ai pu trouver voila ce que j'ai trouver pour la création de bloc: *********************************************************************** sub exemple() dim ptBase as double dim bloc as acadblock NomBloc as string ptbase(0)=0 : ptbase(1)=0 set bloc= ThisDrawing.Block.Add (Ptbase,NomBloc) end sub *********************************************************************** Voila on a définit le bloc, ok, mais comment rajouter les éléments pour le mettre dans ce bloc qui est vide pour le moment. J'attend vos réponse avec impatience car je suis vraiment coincé pour le moment!! Merçi Bye

Merçi chrchat, Je l'ai télécharger, ça marche!!!

un "dwf" ça s'ouvre avec quoi??

:D c bon j'ai le lien, merçi

Le cours n°2 se trouve ou? Je ne le vois pas dans téléchargements!!

Bonjour Didier, Ta solution est pas mal du tout. Ca te permet de demander que 3 questions au lieu de 4 comme mon programme. La commande "angle" permet de transformer l'angle directement en radian, c'est ça? En tout cas, c'est plus pratique comme ça le programme fonctionne quel que soit l'unité que l'on utilise. Et puis, je ne connaissais pas encore la commande "distance".Merçi Merçi pour tes Félicitation Rimbo, j'attend avec impatience ton cours n°2.

J'ai trouvé la solution pour definir l'angle a laide de 2 pts : (defun c:rectangle() (setq pt (getpoint "\n pt de base:")) (setq lo (getreal "\n longueur:")) (setq la (getreal "\n largeur:")) (setq a (getangle pt "\n angle:")) (setq pa (polar pt a lo)) (setq pb (polar pa (+ a (/ pi 2)) la)) (setq pc (polar pb (+ a pi) lo)) (command "_pline" pt pa pb pc "c") (princ) ) @+

Bonsoir Didier, Je te remercie pour toutes tes réponses, je vais essayé de trouver de la doc sur le VBA pour le travailler en pareil car je sais pas du tout comment ça marche. j'ai réflechi pour l'orientation du rectangle et j'ai trouvé une solution qui ne me conviens pas, car je définis l'angle par saisi clavier, il vaudrai mieux definir l'angle en saisissant 2pts à l'écran. Tu en pense quoi? Saisi de l'angle au clavier : (defun c:rectangle() (setq pt (getpoint "\n pt de base:")) (setq lo (getreal "\n longueur:")) (setq la (getreal "\n largeur:")) (setq a (getreal "\n angle:")) (setq pa (polar pt (/ (* a pi) 180) lo)) (setq pb (polar pa (+ (/ (* a pi) 180) (/ pi 2)) la)) (setq pc (polar pb (+ pi (/ (* a pi) 180)) lo)) (command "_pline" pt pa pb pc "c") (princ) ) Par contre, j'ai essayé en selectionnant 2pts a l'écran mais mon rectangle garde une orientation quelconque (toujours la même), je ne sais pas pourquoi!! Je vais y réflechir. Merçi à vous tous pour vos réponses @+

Merçi à vous trois pour ces félicitations!! Il est clair que je ne fais que des choses simple car je connais pas toutes les commandes!! En ce qui concerne ta proposition Didier: pour que le rectangle ne soit pas aligné sur l'axe des X, il suffit de changé l'angle tout simplement. J'ai pas le temps de le faire tout de suite (vue le beau temps) et en plus je viens tout juste de me connecter et de voir tout vos messages, j'y repondrai plus tard...sans problème !! Peut être ce soir ou demain!! Une question..., dans mon entourage professionnel, on me dit qu'il serait plus utile de faire du VBA (ouvert à plusieurs logiciels comme excel...) Je ne sais plus quoi faire!! :( Vous en pensez quoi? Le VBA ou le LISP?? Merçi à vous tous :D @+

Bonjour à tous, je suis débutante en lisp depuis même pas une semaine mais j'ai enfin réussi a faire l'exo de Rimbo grâce a son 1er cours. :D Voiçi ma réponse pour sa droite de 45° : (defun c:li() (setq pt(getpoint "\npt de depart:")); demande du point de départ (setq d(getreal "\ndistance de la ligne:")); demande de la distance de la ligne (setq a(polar pt (/ (* pi 45.0) 180.0) d)); definir un angle de 45° pour la ligne (command "_line"pt a""); dessiner la ligne (princ);fin ) VOICI DONC MON 1er PROGRAMME LISP !! Pour le rectangle en polyligne, en demandant le coin bas gauche et les longueurs des côtés: (defun c:rec() (setq pa (getpoint "\n pt de base:")) (setq b (getreal "\n longueur:")) (setq c (getreal "\n largeur:")) (setq pb (polar pa pi b)) (setq pc (polar pb (/ pi 2) c)) (setq pd (polar pa (/ pi 2) c)) (command "_pline"pa pb pc pd "c") (princ) ) J'espere que c'est bon, mais chez moi ça marche.