Matt666

Salut ! Oui, j'ai regardé dans pas mal de forums, et ils conseillent presque tous ce logiciel.. Il a l'air pas mal, mais un peu compliqué... Merci de ta réponse ! Matt.

Bon bah comme prévu les challenges débutants ne marchent vraiment pas fort...

Bah nan... Non plus... Sniff

J'ai bien peur que non... C'est comme une version 2000... grmbl

Oui, mais sur BricsCAD, Pas de DWL.... Aaaaaa. Donc bon, soit vous me donnez un exemple de ce que contient un dwl, soit je cherche (en vain à mon avis) un autre moyen... :) Merci ! A bientot. Matt.

(defun c:lseul (/ a) (if (setq a (open (getfiled "Sélectionner un plan" "" "DWG" 2) "a")) (progn (close a) (princ "\nFichier non ouvert.") ) (princ "\nFichier en cours d'utilisation.") ) (princ) ) aaaaah... Ah ah aha ah ! :cool: Ah bah oui.. Connaissait pas ce paramètre !! Merci Wats-bred (ou plutot sherlock-bred...) ! PS : Elémentaire mon patrick !!! [Edité le 14/12/2007 par Matt666]

C'est balaise, quand même... En fait le seul parmètre de open qui nous dit qu'un fichier est ouvert, c'est w. Par contre, s'il n'est pas ouvert, il l'écrase !!! :mad: Grmbl

Oui, comme tout le monde ici, ou à peu près !! Soit dit en passant, ce post n'est pas exclusif à pasall9.. Si d'autres veulent se lancer, faut pas hésiter ! A bientot. Matt

Salut bred ! Tu n'as pas du voir ceci Le sujet a quelque peu dérivé... pascal19, à la limite, on ouvrira un autre post pour les attributs... Il y a beaucoup à dire dessus... Comme disait Bred, Voilà... Bon courage !

Tu peux regarder ici... Houlà.... Extraire les informations des attributs, c'est pas évident !!! Avant de se lancer là dedans, ta routine est finie, mais elle n'est ni concise ni rapide. C'est important dans un développement. Tu peux d'abord regrouper tous tes setq en un seul : (setq ent1 (entsel "entité") ent2 (entget (car ent1)) calq1 (cdr (assoc 8 ent2)) ) (princ calq1) De plus tu n'as pas besoin du princ. Le dernier travail de ta routine est de mettre le nom du calque dans la variable calq1. elle retrournera donc la valeur de la dernière opération. Pour finir, tu peux faire encore plus concis... En compilant les setq... (cdr (assoc 8 (entget (car (entsel))))) Si tu copies ce code dans la ligne de commande et entrée, tu verras que cela fait le même travail que ta routine. Bon maintenant, tu veux retrouver les codes dxf des attributs de blocs. Je t'ai dit ça au début : Donc essaie de trouver les codes dxf propres à un attribut avec cette fonction, en cliquant sur un attribut, par exemple...

C'est ObjectDCL...

Bing. Que dire après ça... Bravo Gile !!! Impressionnant...

Salut ! Super, un nouveau !!! :D <acronym class=dict title= nan, les débutants. Et on est tous passé par là. :P Ce n'est pas ridicule, au contraire... Ca commence bien, en tout cas ! Tu as presque résolu le challenge, il ne te manque pas grand chose ! Tout d'abord, je te conseillerai d'utiliser entsel plutot que nentsel. Nentsel permet de retourner le nom d'une entité qui est dans un bloc. Ici, on veut juste connaitre le nom du calque d'une entité, c'est tout. Mais ce n'est pas ça qui fera fonctionner ta routine ! (setq ent1 (entsel "Cliquer sur une entité : ")) Essie de copier ce bout de code dans la ligne de commande, et valide là. Si tu cliques sur une entité, tu auras ce type de réponse : Ensuite tu enchaînes avec un entget sur ent1 pour avoir les codes dxf associés. Entget attend un nom d'entité à développer. Mais ta variable ent1 est une liste avec un nom d'entité et les coordonnées d'un point. Voici ton erreur. Il faut arriver à donner juste le nom d'entité à entget. Voilà ! Adtal ! Matt. [Edité le 3/1/2008 par Matt666]

Salut ! A chaque nouveau programme qui mérite une place dans mes barres d'outils, je cherche/créé de nouvelles icônes, et ce avec un peu de mal et de temps... Alors je me suis dit que je ne devais pas être le seul !! C'est pourquoi je livre ici les icônes des barres d'outils que j'ai créées. Certaines ne serviront pas aux utilisateurs d'Autocad, mais ça a toujours son intérêt ! Deux solutions pour les icônes : un fichier ZIP Une image qui regroupe toutes les icônes. http://images3.hiboox.com/images/5007/l80rbaqd.jpg Pour extraire une icône de l'image, il faut utiliser un log de retouche d'image, genre photofiltre, gratuit et très bien. Voilà. A bientot. Matt. [Edité le 14/12/2007 par Matt666]

Je suis en train d'en préparer une itérative sans la routine splist... Donc plus courte et améliorée. mais c'est pas évident...

Est-ce que cela nécessite le vlisp ?

Voici un challenge pour débutants. Ici, les habitués du lisp peuvent répondre en 10 secondes... Mais là n'est pas le but de ce challenge. Pour l'instant la plupart des challenges proposés sont relevés par les habitués et qq débutants. Personne ne se lance, et c'est pourtant le but de ces challenges ! Donc voilà. test avec un challenge simple. Le but est de progresser donc n'hésitez pas ! Voici donc : Créer une routine qui affiche le nom du calque d'une entité sélectionnée. Bon pour l'instant on se contente de faire une routine sans argument. Voilà. PS : Lovecraft, tu comprendras qu'il n'est pas nécessaire pour toi de répondre à ce challenge, tu n'est pas un débutant ! :) Tu peux par contre te pencher sur une routine avec argument ! Voilà ! Bon courage.

Salut Patrick_35 ! En fin de compte le 1er challenge n'était pas très dur... Et qqns ont participé. Par contre la fin était plus ardue (récursivité et longueur d'une pline), et peu d'entre nous ont participé. C'est dommage, ces challenges paraissent réservés aux habitués/ à ceux qui touchent plutot bien, même si c'est n'est pas l'intention première. Pourtant le nombre de lectures est assez fort. Ces challenges intéressent les utilisateurs de ce site... Je vais tenter de proposer un challenge pour débutant extrème (!!), voir s'il recueille plus de participation. Par exemple retourner le nom du calque d'une entité sélectionnée... C'est dommage, je trouve ça vraiment très enrichissant !! Allez je vais le poster... A bientot ! Matt.

Clairement...

Raaah la la mais ca a l'air dément !!!! Un jour, je pourrais lire du vlisp et en insérer des mes codes.... Mais c'est pas prêt d'arriver... Snifffffff. La version V8 de bricsCAD doit lire le vlisp. Mais elle est encore pleine de bug... Enfin bon un jour peut-être ! Je suppose que ta routine est impossible/trop longue à faire en autolisp... Bravo, en tout cas !! A bientot. Matt.

Il est fou Bonuscad, il est fou !! :) la vache ! Bah écoute, cool ! J'avais recréé (partiellement) la commande ligne.. Mais la commande raccord, c'est une autre paire de manche !! Ca peut être marrant. A bientot ! Matt.

Et je sens qu'y en un qui va me balancer un code trois fois plus beau et concis... Sniff..

Bon ben là je crois que c'est bon ! :D (defun lg-matt (lst / a r p l) (if (eq (cdr (assoc 70 lst)) 1) (setq lst (splist (mapcar 'cdr (remove-if-not '(lambda (x) (member (car x) '(10 42))) lst)) 1)) (setq lst (splist (mapcar 'cdr (remove-if-not '(lambda (x) (member (car x) '(10 42))) lst)) nil)) ) (foreach pt lst (setq p (cadr pt)) (if (/= p 0.00) (progn (setq a (* 4.0 (atan (abs p))) r (/ (/ (distance (car pt) (caddr pt)) 2) (sin (/ a 2))) l (cons (* a r) l) ) ) (setq l (cons (distance (car pt) (caddr pt)) l)) ) ) (reverse l) ) (defun splist (lst n / ls) (while (and (car lst) (cadr lst) (caddr lst)) (setq ls (cons (list (car lst) (cadr lst) (caddr lst)) ls)) (setq lst (cddr lst)) ) (if n (reverse (cons (list (caddar ls)(last lst)(car (last ls))) ls)) (reverse ls) ) ) Dur, quand même...

Est-ce que tes points sont dans un calque précis ? Ou tous les points existants doivent être remplacés ?

un truc comme ça ? (defun test (lst / a r l) (setq lst (splist (mapcar 'cdr (vl-remove-if-not '(lambda (x) (member (car x) '(10 42))) lst)))) (foreach pt lst (if (/= (cadr pt) 0) (setq a (* 4.0 (atan (abs (cadr pt)))) r (/ (distance (car pt) (caddr pt)) (sin a)) l (cons (* a r) l) ) (setq l (cons (distance (car pt) (caddr pt)) l)) ) ) (reverse l) ) (defun splist (lst / ls) (while (and (car lst) (cadr lst) (caddr lst)) (setq ls (cons (list (car lst) (cadr lst) (caddr lst)) ls )) (setq lst (cddr lst)) ) (reverse ls) ) ya un pb.... Pour les arcs négatifs... grmbl [Edité le 12/12/2007 par Matt666]