mlon

Oui il me sert beaucoup... Merci de ma part ; et de la part des collègues à qui , grace à ton tableau , solutionnent nombre de problèmes!

Merci du soutien mais entre temps je me suis rendu compte qu'il y avait une différence entre la réponse affichée et la véritable valeur (en effet l'affichage est apparemment arrondi mais si on se sert de la variable associée, la vraie valeur est prise en compte...) Donc en fait ça roule impec depuis le départ... vu que j'y ai passé la moitié de l'aprem je suis en plein "grand moment de solitude" là!!! (suis quand meme un gros nanard sur ce coup là)

Bonjour j'essaie de récupérer les coordonnées exactes de lwpolyline. Je suis bien tombé sur un message de Patric_35 relantant ses déboires avec trans . d'ailleurs dans ce post , il est dit que pour récupérer les coordonnées SCU d'un point il faut faire (trans (cdr (assoc -10 ent)) (cdr (assoc -1 ent)) 1) celà ne fonctionne pas (du moins je n'y arrive pas) par contre (trans (cdr (assoc 10 ent)) (cdr (assoc -1 ent)) 1) si le scu courant n'est pas le général ça fonctionne. Par contre si le scu courant est le général (trans (cdr (assoc 10 ent)) (cdr (assoc -1 ent)) 1) me renvoie le meme point que (trans (cdr (assoc 10 ent)) (cdr (assoc -1 ent)) 0) ; jusque là tout est normal... qui est aussi le meme point que (cdr (assoc 10 ent)) autrement dit pas de transformation...

Oui si tu veux ; mais je n'ai pas une grande dextérité en lisp... donc j'aime bien faire un code ou je vais facilement m'y retrouver si j'y retouche 6 mois après... (ton premier jeu de sélection contient des POLYLINE 2d et 3d ... ce qui oblige, si je ne veux garder que le 2d, à reventiler le jeu de sélection en ométtant pas de garder les autres entités (arc line lwpolyline) ) Sinon ma question était juste "Pourquoi le filtre avec (100 . "AcDb [surligneur] 2[/surligneur]dPolyline") ne retiens pas que les polyline 2d mais laisse dans le jeu de sélection les (100 ."AcDb [surligneur] 3[/surligneur]dPolyline") " En d'autres termes pourquoi ca fonctionne avec le code 70 et pas avec le code 100 ?

(list (cons -4 " < or " ) (cons -4 " < and") (cons 8 calq0) (cons 0 "POLYLINE") (cons 70 0) (cons -4 "and>") (cons -4 " < and") (cons 8 calq0) (cons 0 "LWPOLYLINE") (cons -4 "and>") (cons -4 " < and") (cons 8 calq0) (cons 0 "LINE") (cons -4 "and>") (cons -4 " < and") (cons 8 calq0) (cons 0 "ARC") (cons -4 "and>") (cons -4 "or>") ) désolé apparemment le forum aimait pas le code original....j'ai du insérer quelques espaces pour avoir un affichage correct

en fait le deuxieme filtre fonctionne (je ne veux pas de LWPOLYLINE mais seulement des POLYLINE ) ces dernieres (polyline) ont plusieurs caractéristiques qui les différencient suivant qu'elles sont 2d (0 . "POLYLINE " )(100 . "AcDb2dPolyline") (70 . 0) 3d (0 . "POLYLINE " )(100 . "AcDb3dPolyline") (70 . 8) quand je crée un filtre avec (100 . "AcDb2dPolyline") la sélection contient quand même des (100 . "AcDb3dPolyline") d'ou ma question comment cela se peut il? ps je vais donner le filtre complet pour info (avec les or il me faut des and) (list (cons -4 " (cons -4 " (cons 8 calq0) (cons 0 "POLYLINE") (cons 70 0) (cons -4 "and>") (cons -4 " (cons 8 calq0) (cons 0 "LWPOLYLINE") (cons -4 "and>") (cons -4 " (cons 8 calq0) (cons 0 "LINE") (cons -4 "and>") (cons -4 " (cons 8 calq0) (cons 0 "ARC") (cons -4 "and>") (cons -4 "or>") )

Pardon avec (cons -4 " (cons 8 mon_calque) (cons 0 "Polyline") (cons 70 0) (cons -4 "and>")

Bonjour je m'essaye à un ssget "x" + liste_filtre je ne veux conserver que les polylignes 2d; donc j'ai fait (setq filtre (list (cons -4 " (cons 8 mon_calque) (cons 100 "AcDb2dPolyline") (cons -4 "and>") ) ) et pourtant AutoCAD me garde également les poly3d...Quesako? je sais que ca marche avec (cons -4 " (cons 8 mon_calque) (cons 70 0) (cons -4 "and>") Mais pourquoi ca ne marche pas avec le code précédent?

ouais c'est sur pour le lisp j'aurais du y penser... enfin pour le vlisp je ne suis pas encore au point du tout! merci quand meme (c'est dans l'erreur qu'on progresse!)

Je n'aurais qu'une chose à dire : Ouuuuiiiiiiiiinnnnn!!! bon maintenant faut que j'examine les deux codes...

j'ai écrit une petite rourine qui extrait le nom des calques et les place dans deux variables sous forme de liste 1ere liste listcalques sous forme ("calque1" "calque2" ......) listpointcalques sous forme ( (0 . "calque1") (1 . "calque2") .......) cette routine a besoin pour fonctionner de cle une autre routine (pas de moi ) mais que je joins également. PS: s'il y avait une fonction qui le fesait ben tant pis!!!! PS2 : si quelqu'un s'en sert répondez a ce post :-p (defun cle (num en) (cdr (assoc num en))) (defun c:mm_liste_calque () (setq calq0 (list (cle 2 (tblnext "layer" t)));extrait le premeir calque inc 0 listpoint0 (list (cons inc (car calq0))) ;crée la premiere liste point ) (setq calqtemp calq0 ; ben oui sans ça la boucle fonctione pas! ) (while (/= nil (car calqtemp)) (progn (setq calqtemp (list (cle 2 (tblnext "layer"))) inc (+ 1 inc) ) (if (/= nil (car calqtemp)) (progn (setq listpointtemp (list (cons inc (car calqtemp)))) (setq calq0 (append calq0 calqtemp) listpoint0 (append listpoint0 listpointtemp) ) )end progn );end if );end progn );fin boucle (setq listcalques calq0 calq0 nil inc nil listpointtemp nil listpointcalques listpoint0 listpoint0 nil calqtemp nil );end setq );end defun

Bien c'est a dire que...j'ai eu le meme problème que toi et je crois simplement qu'il faut s'y mettre.... Sinon pour créer des matérieaux je ne saurais que trop te conseiller de commencer par modifier ceux qui sont livrés avec autocad ainsi c'est plus simple(pour coprendre comment les propriétés des matériaux fonctionnent) du genre si tu veux avoir une vitre il y a tous les matériaux dont le nom est "GLASS" pour les reflets il faut utiliser la propriété "mirroir" mais cette derniere est la plus consommatrice que j'ai pu constater... il est alors beaucoup plus court d'utiliser un matéiau transparent et d'insérer une image en dessous (une image détourée ou alors un matériau). Le rendu le meilleur est celui "par lancé de rayons" et il est également le plus consommateur... Enfin si tu veux un support papier a peu pres compréhensible il faut consulter le bouquin d'autocad section 3D qui est tout de meme bien réalisé

Que dire??? allez dans le public... Moi je suis dans une grande collectivité publique qui se trouve dans le nord ( ben voila yen reste plus que 2 ) je suis technicien supérieur (ca c'est mon grade) et ma fonction réelle est "technicien d'étude en voirie et espace publics". Concrètement je fais APS APD projet animations 2d 3D (autocad + animation shop) ; retouche photo ; présentation power point ; dossier déclaration d'utilité publique et tout travail administratif (en général un exemple et une connection a légifrance suffit pour créer un dossier "administratif")... J'ai une voiture de service ;pas de ticket resto mais une cantine plus que correcte a 3-4 euros le repas; 1580 € net /12 mois + 2 prime de 500 € au niveau des horaires ca dépends de l'activité c'est en dents de scie environ 6 mois aux 35h hebdo et 6 mois aux 35h/jour.... PS: je viens de demander à un collègue il fait APS retouches photos 1300€ sans voiture mais avec la meme prime bi-anuelle et meme cantine

ouais mais c'est de la triche moi je peux pas mettre d'url :'( c'est une image en local

Salut moi aussi je dois faire des incrustations de 3D sur une photo de l'existant. En général j'effectue le rendu avec autocad en tga, ce qui fait que l'image de fond est dissociée des objets 3d rendus; puis je l'insère dans une photo avec Gimp (open source )...reste plus qu'a trouver le bon angle de rendu sous autocad . je te mettrais bien une petite image pour dire de voir ce que cette méthode donne mais je sais pas comment l'uploader dans ce message

moi ca m'arrive souvent de "perdre" des commandes du type "mettre en avant les objets" ou effacer...en fermant autocad et et le redémarrant ca fonctionne...pouquoi ca par contre je ne sais pas

Admettons donc que la comission américaine accepte de breveter les smileys, alors si j'ai bien compris ton message en Europe par contre ce sera toujours légal? Ce qui entrainerait peut etre une implantation de certaines boites en europe oubien leur développement?

salut a tous! moi je voulais juste dire que le principe ceinture et dans je le trouve super... ca ne peut pas etre un gage de qualité mais c'est tout de meme représentatif de l'activité, non? etpuis comme en général la solution est trouvée apres plusieurs messages, l'utilisateur progresse...(je viens pour le premiere fois de réussir à aider quelqu'un ca fait plaizzz...:-))

dans les paramètres du bouton droit on peut configurer sa signification (entrée ou menu contextuel) mais moi c'est le type de menu contextuel que je veux changer...à voir si ceux ci sont mofiables a la main peut etre?

ouep de toute façons moi j'ai fait un copier coller du programme que j'avais réalisé pour moi ;) donc a moins qu'il ne travaille avec le meme genre de base de données que moi ... c'etait le premier programme que j'ai fait quand j'ai appris le lisp :'( j'en verse une petite larmichette :d

au fait patrick je viens d'essayer ton code c'est quoi "entpud"?

ben non en fait pas ouin car ca va etre long de sélectionner tous les textes un a un... enfin tout dépends du nombre de points que tu as. Au fait il faut une manip supplémentaire si tu utilises Covadis pour que ce dernier ne calcule ton mnt ;-) (si tant est que tu utilises Covadis)

:calim: ouinnnnnnnnnnn pour une fois que je pensais pouvoir aider quelqu'un!!!

au fait cela va te permettre de mettre ton texte qui était à z=0 à z=valeur du texte Mais attention la sélection prendra tous les textes de hauteur identiques au texte sélectionné (cela correspond au besoin que j'ai eu) donc dans la selection du départ il faut mettre les objets que tu désires.... Si tu ne vois pas comment modifier le code il faut que tu me dises ou sont situés tes textes et quelles propriétés porraient permettre de les reconnaitre par rapport aux autres textes de ton fichier (si il n'y a que des textes altimétriques, c'est tres simple). Au fait moi je partais d'une base de données en cm et donc a transformer en mètres

je dois avoir ce qu'il te faut : (defun c:mmtext (/ selection1 taille_sel1 inc mmtexttemp text1 nomtext1 ttesprop valtext1 essai ytext xtext textmètre3d proptext2 text2 htext ) (setq text2 (entsel "\nsélectionnez un texte altimétrique de la bdu (calque Annot ou bdu-z-tn)\n" ) ) (setq proptext2 (entget (car text2))) (setq htext (assoc 40 proptext2)) (setq selection1 (ssget "x" (list (cons 0 "text") htext ) ) ) ;met dans un jeu de sélection "selection1" la liste des objets étant à la fois du text et de hauteur de texte 0.3 (setq taille_sel1 (sslength selection1) ) ;nombre d'éléments dans la sélection (setq inc 0) (while (< inc taille_sel1) ;création de la boucle permettant de sélectionner les éléments 1 à 1 dans le prog de modification de texte (setq mmtexttemp (ssname selection1 inc) ) (setq inc (+ 1 inc)) ;inc=incrémenteur ;voila on rattrappe le prog de modif de texte (setq ttesprop (entget mmtexttemp)) ;met dans ttesprop(=toutes propriétés) toutes les propriétés du texte de base sous forme de (liste . point) (setq valtext1 ;met dans valtext1 la valeur de ce qui suit ;qui est le réel correspondant au texte et directement en mètres (cvunit ;change les centimètres en mètre (atof ;change une chaine de texte en réel ex: "2085" devient 2085.0 (cdr (car (cdddr (cddddr (cddddr ttesprop))))) ;extrait de ttesprop la valeur du texte soit celle associée à (1 . "2085") ;je crois que cette ligne pourrait etre simplifiée à l'aide de assoc ) "centimètre" "mètre" ) ) (setq essai (assoc 1 ttesprop)) (setq ytext (caddr (assoc 10 ttesprop))) (setq xtext (cadr (assoc 10 ttesprop))) (setq textmètre3d (subst (cons 1 (rtos valtext1 2 2)) (assoc 1 ttesprop) ttesprop ) ;end subst ) ;end setq ;; textmètre3d a son texte se mettant au mètre (setq textmètre3d (subst (cons 10 (list xtext ytext valtext1)) (assoc 10 ttesprop) textmètre3d ) ;end subst ) ;end setq ;; textmètre3d a son altitude se mettant en 3d (setq textmètre3d (subst (cons 8 "bdu-z-tn") (assoc 8 ttesprop) textmètre3d ) ;end subst ) ;end setq ;; textmètre3d se met dans le calque "bdu-z-tn" (entmod textmètre3d) ) )