lovecraft

ECARTIP Bureau d'études et de topographie, spécialisé dans les grandes infrastructures et les VRD, recrute dans le cadre de son développement: -Projeteurs/Dessinateurs: BTS - DUT Génie-civil ou géomètre Topographe, avec une bonne connaissance des logiciels COVADIS, MENSURA et des routieres. Poste basé sur l'agence de Lyon Merci d'adresser lettre de motivation et CV à: ECARTIP Agence de Lyon 160, rue de palverne RN83 ZAC Rosarge 01700 LES ECHETS courriel: barraud.laurent@ecartip.fr Site: www.ecartip.fr

Bonjour yw22, Je viens de parcourir très rapidemet tes deux tutos sur autocad 2D et 3D, et je dois te dire que tu as faire du bon travail ( et certainement beaucoup de temps) donc je suis la même chemin que lili2006 qui a dû l'imprimer en 30exemplaires pour ses élèves ;) , de poursuivre sur cette route. Bone continuation

bonjour, ah la c'est du grand art patrick, je connaissais la reponse en autolisp car j'avais dejàn un travail similaire avec des polylignes 3D donc le meme principe avec des blocs avec atribut. Donc j'ai essayé de de trouver un solution en vlisp que je decouvre grace a vous. Une grand merci pour cette explication détaillée. @plus

Bonne année à vous tous puis n'oublions pas..... long vie à cadxp ;) @plus

Bonsoir, tu peux réaliser cette opération en passant par un script. je te propose d'utiliser superautoscript d'eric. en faisant une recherche sur ce forum tu le trouveras. bonne utilisation @plus

re matt666 Là je ne vois pas car je viens de faire un teste sur un bloc comprennant un cercle+une polyligne+une ligne+1 attribut et je ne vois jamais apparaitre la polyligne et la ligne et ni le cercle. ent 1 = assoc 0 ==>"insert" ent 2 = assoc 0 ==>"attrib" ent 3 = assoc 0 ==>"seqend" ?????? @plus

Je vais juste donner le code permettant de recupérer la date ;) , à nos nouveaux de l'intégrer dans le lisp ci dessous cf: Matt666 (defun c:vblat (/ ent) (while (or (not (setq ent (car (entsel "\nSélectionner un bloc :")))) (/= (cdr (assoc 0 (entget ent))) "INSERT") ) ) (if (cdr (assoc 66 (entget ent))) (princ "\nCe bloc contient un ou des attributs.") (princ "\nCe bloc ne contient pas d'attribut.") ) (princ) ) ;code permettant de récupérer le premier attribut. (setq att1 (entnext ent)) (setq valdate (cdr (assoc 1 (entget att1)))) Une fois cette étape réalisée, il faudrait connaitre le nombres d'attribut que le bloc contient à vous de jouer.... @plus

Bonjour à tous, Voici une petite idée... (defun c:vfblatt (/ ent) (while (not ent) (setq ent (entget(car(entsel "\nCliquez un bloc : ")))) (if (/= (cdr (assoc 0 ent)) "INSERT") (alert "ceci n'est pas un bloc") (if (= (cdr (assoc 66 ent)) nil) (Alert "Ce bloc ne contient pas d'attribut") (Alert "ceci est bloc bloc contenant des attribut"))) ) ) Ce n'est pas parfait mais il me semble que c'est sur la bonne voie. @plus

Bonsoir à tous et mes meilleurs voeux. Désolé Matt666, je n'avais pas vu ce post , de plus j'ai fait un p'tit break pendant les vacances. j'attends que les nouveaux repondent avant de poster ma solution ;) Va falloir que je m'applique dans mon code (je n'ai pas le droit a l'erreur) ;) @plus

Bonjour, Voici ma p'tit contrubution. J'espere qu'elle réponds à la demande du challenge. Merci d'avance de vos commentaires. (defun c:test () (setq ent (entget(car(entsel)))) (setq i 0) (repeat (length ent) (setq entit (nth i ent)) (setq codeentit (car entit)) (if (= codeentit 10) (setq lst_pt (cons (cdr entit) lst_pt)) ) (setq i (+ i 1)) ) (reverse lst_pt) ) @plus

bonjour, j'ai une p'tite question concernant les tableaux sous autocad. Est il possible de mettre un valeur dans cellule que l'on veut dans un tableau exemple: j'ai un tableau de trois colonnes sur trois rangées. je voudrais pouvoir mettre une valeur dans la colonne deux rangée deux. Et tout ca en lisp ou vlisp. Merci

C'est sympa ce que tu fais gile, Merci pour l'encouragement ;) Oui vivement un autre challenge...avant Noel faites que je puisse y participé comme celui-ci. Merci @plus

Bon je crois que j'ai encore beaucoup de boulot devant moi (je vais oublier la solution récursive). Disons que le principal c'est que j'ai pu reussir à donner ma solution qui fonctionne avec des béquilles. Enfin, encore merci de votre aide, vos challenges et commentaires qui me font progresser à une vitesse..... @plus

Merci de vos commentaire, je vais essayer d'organiser un peu mieux ma routine (cf commentaire de gile) bred, je ne pense pas que la fonction member nous soit utile dans notre cas ( c'était le début de ma piste mais j'ai vite abandonné) peut etre que je ne sais pas m'en servir... @plus

bon voila je sais que ce n'est pas parfait : mais cela fonctionne Merci de vos commentaires (defun c:test () (setq lst '(1 2 3 3 3 4 5 6 2 7 8 9 3 3 0 0 10));liste (setq nbrelts (length lst));nombres d'éléments dans la liste (setq p_dep (- (getint "\nDonnez la position de départ : ") 1));position de départ (setq nbr_supp (getint "\nDonner le nombres d'éléments à supprimer: "));nombres d'éléments à supprimer (setq i (+ p_dep nbr_supp)) (setq lst2 nil) (repeat (- nbrelts (+ p_dep nbr_supp)) (setq lst2 (cons (nth i lst) lst2)) (setq i (+ i 1)) ) (setq lst1 nil) (setq i 0) (repeat p_dep (setq lst1 (cons (nth i lst) lst1)) (setq i (+ i 1)) ) (setq lst_FINAL (append (reverse lst1) (reverse lst2))) (prin1 lst_final) ) Ok Gile, je vais regarder ça @plus

hem, j'ai une p'tite question il n'y a pas l'équivalent de la fonction substr pour les nombres ? @plus

Bonjour, Voici le debut de mes idées. (defun c:test () (setq lst '(1 2 3 4 5 6 7 8 9 10));liste (setq nbrelts (length lst));nombres d'éléments dans la liste (setq p_dep (- (getint "\nDonnez la position de départ : ") 1));position de départ (setq nbr_supp (getint "\nDonner le nombres d'éléments à supprimer: "));nombres d'éléments à supprimer (repeat nbr_supp (vl-remove (nth p_dep lst) lst) );fin du repeat (setq p_dep (+ 1 p_dep)) ) bon il ne fonctionne pas encore, mais pouvez vous me dire si je suis sur la bonne piste? merci

Merci de ton aide Gile, je vais bientot poster mon premier Vlisp qui consiste a recupere les coordonnées des lignes polyligne 2D et 3D " vous me direz que le sujet a deja été traité mais j'ai fait un lien afin sous excel avec l'adaptation de getexcel.lisp de gile. @plus

Ah afin je peux me reconnecter sur cadxp (des petits soucis de server de proxy). Merci de penser à nous Matt. Je vais voir ce que je peux faire de ton challenge, j'aurais certainement quelques questions.... @plus

Bonjour voila, je lance un p'tit sujet sur le vlisp.N'ayant pas beaucoup de connaissance dans ce domaine j'appelle à ,l'aide ;). (defun c:test () (vl-load-com) (setq ssobj(car(entsel"\nSélectionner une ligne: "))) (setq ssobj (vlax-ename->vla-object ssobj)) (if (= (vlax-get-property ssobj 'objectname)"AcDbLine") (vlax-dump-object ssobj T) (alert "Ce n'est pas une ligne") ) ) voila ci dessus un p'tit bout de code pour connaitre les propriétées d'une ligne. Maintenant j'aimerais obtenir les coordonnées du point de début et de fin. J'ai qu'il existait startpoint et endpoint (je sais faire en autolisp mais pas en vlisp) j'ai essayé de faire: (vla-get-startpoint) (vla-get-endpoint) mais cela ne me retourne pas une liste par contre si je fais (vla-get-layer) j'obtiens bien le nom du calque. Merci de votre aide @plus

Bon merci ca avance. J'avais complétement effacer ces relations. Mais bon je suis un peu degouté j'ai vu que t'utilisé la fonction (inters) que je ne connaissais pas donc j'ai créé un fonction d'intersection. enfin bref ca permet d'évoluer @plus

bonjour, Bon j'ai commencé mais je bloque sur une fonction j'ai trouvé la fonction Atan mais je ne trouve pas de fonction tangente.Comme fait on. Autrement c'est du grand art bonuscad. En ce qui me concerne je vais le faire a mon niveau c'est a dire sur un ligne. @plus

Bonjour, Dans un premier temps ce n'est pas possible avec un polyligne "uniquement un elevation" mais avec une ligne ou une polyligne3D. Je vais voir si je peux faire qques chose. Autrement c'est un bon challenge . @plus

Pour enregistrer des valeurs dans des variables tu peux utiliser les variables USERS1 ......USERS5 qui te permettent de stocker des valeurs "chaine de texte" et les variables USERR1.......USERR5 pour des nombres réels. @plus

Re, Pour info la longueur d'onde se mesure entre deux sommets. donc dans ton exemple 2 x 11.78 soit 23.56 d'interval. @plus