Bred

Salut, pour insérer un bloc, je l'ai déjà expliqué dans mon premier post : ... (ou aussi le "design center") pour les récupérer dans un autre plan, l'une des manières est d'utiliser le "design center"...

Salut à vous 2. Pourriez-vous m'expliquer la (l'une des) raison "d'inverser les sommets d'une polyligne" ? merci

Heu... j'avoue avoir du mal à comprendre, mais je me lance : - Si tu veux bosser en 3D, tu n'as aucune raison de le décomposer, tu bosses avec l'objet tel qu'il est.... - Si tu veux bosser en 2D à partir de ton objet 3D, passe par les espaces Papiers.... ce sera "+ propre" que de vouloir le décomposer et de récupérer des objets 2D ....

merci (gile)

Salut, j'ai cherché à il y a quelque temp sur ce forum quelque chose d'équivalent à ta question, et j'ai trouvé cette page : http:// http://www.cadxp.com/sujetXForum-4272.htm Ah oui, j'oubliais, tu trouveras queque part ("Les Ressource" je crois) un lisp permettant de determiner la version d'excel installer sur le poste... pour que ça fonctionne... [Edité le 11/7/2006 par Bred]

Je ne comprend pas... :casstet: Qui ne c'est jamais pris la tête avec quelqu'un au point d'en arriver à un point où les réactions violentes (paroles ou actes) dépasse la déontologie ou notre bonne vieille morale religieuse ???.... Qui ne c'est jamais pris la tête avec un client au point d'en arriver à un point où le côté humain dépasse le côté professionel ???.... Il faut être réaliste, même le dalÎ-lama ou l'abbé Pierre ont dû arriver à des actions extremes et regrétable... (enfin... quoi que...) Il faut replacer les choses dans leur contexte, et je suis persuadé que pour avoir une réaction tel qu'il a eu, la raison en était "instinctivement" justifié. Elle est regrétable, dure, et à été malheuresement médiatisé, ce qui donne une mauvaise excuse au agissements de personnes volontairement violentes, mais on ne peut que regretter que l'enquête sur les paroles de l'italien ne soient pas fait en parrallèle à l'enquète vidéo, car il doit en falloir beaucoup pour en arriver là... L'acte violent n'est jamais une solution, mais la violence des mots peuvent blesser aussi durement (oh!... ça c'est du lieu-commun de premier choix !!!... mais je le laisse !!!)

Gé - Nial !!! merci beaucoup, j'apprends donc une nouvelle commande : (sssetfirst gripset[pickset]) ... j'avoue ne pas bien comprendre ce qu'il raconte dans l'aide à ce sujet, mais je vais bûcher ça !!! donc, j'arrive à ça : (defun c:rrr () (if (zerop (getvar "pickfirst")) (setvar "pickfirst" 1)) ;;; modif var (princ "\n------------------------------\n Sélection d'un groupe de blocs :") (setq sel (ssget ":L" '((0 . "INSERT")))) (setq bloc (getstring "\n Entrez le nom du bloc à Ressortir ou : ")) (if (= bloc "")(progn (while (not (and (setq bloc_sel (entsel "\nSélectionnez le bloc à Ressortir: ")) (= (cdr (assoc 0 (entget (car bloc_sel)))) "INSERT")))) (setq bloc (cdr (assoc 2 (entget (car bloc_sel))))))) (if (zerop (getvar "cmdactive")) (sssetfirst nil (ssget "_P" (list (cons 2 bloc)))) ) ) et c'est ni-ckel !!! Merci encore !!!

Bonjour... Dans la série "petit trucs tordu", j'ai un nouveau problème : Grâce à vous, depuis mon récent aprentissage de l'utilisation des filtres dans ssget, je me suis ammusé à créér un petit outil me permettant de ressortir un (groupe) de bloc précis d'une selection... (defun c:rrr () (princ "\n------------------------------\n Sélection d'un groupe de blocs :") (setq sel (ssget ":L" '((0 . "INSERT")))) (setq bloc (getstring "\n Entrez le nom du bloc à Ressortir ou < selec >: ")) (if (= bloc "")(progn (while (not (and (setq bloc_sel (entsel "\nSélectionnez le bloc à Ressortir: ")) (= (cdr (assoc 0 (entget (car bloc_sel)))) "INSERT")))) (setq bloc (cdr (assoc 2 (entget (car bloc_sel))))))) (ssget "_P" (list (cons 2 bloc))) (princ "\n--------------------------------------------\n choisir une action à réaliser (copier,supprimer ...) puis taper p") (princ) ) mais en fait, j'étais parti pour éviter ce "choisir une action à réaliser (copier,supprimer ...) puis taper p" en faisant un (command pause (ssget "_P" (list (cons 2 bloc))) "" pause pause pause) ... ce qui est certainemenr n'importe quoi, vu que ça ne fonctionne pas... Donc, ma question est de savoir si il est possible de faire finir un programme lisp en faisant faire une selection, puis en revenant au commande d'autocad normale (afin qu'il puisse traiter la selection comme selection nom/verbe) Je sais, je pourrais "étoffer" mon lisp en proposant toutes ces actions et en les traitant en lisp, mais je trouve ça un peu lourd... merci d'avance

Salut, Rapidement : 1 - Les blocs : sous Autocad, il existe un type de bloc que l'on nomme "wbloc" (du nom de la commande) qui créé un fichier dwg contenant tout ton bloc, et que tu peux insérer ensuite à volonté avec la commande -inserer (-i) ou inserer (i). Pour un fonctionnement + simple et rapide, il est conseiller de mettre le repertoire ou tu enregistres tous ces blocs dans les fichiers supports (options) 2 - Les attributs sont du texte, donc tu peux copier du texte pour l'inserer dans tes attibuts... J'espère que j'ai été clair...

merci... :D

Et bien un grand marci à tous le monde. :D En plus de m'avoir énorméménr aidé, ce post m'a permis de bien comprendre comment "jouer" avec les entités!!! Par contre, je ne voudrais pas abuser, mais est-ce que quelqu'un pourrait poster un petit exemple avec l'utilisation du "=" en filtren ça pourrait m'être utile un de ces jours... :casstet: En tout cas, je vous présente (encore) me remerciement sincères... ;) ;) ;)

Bon... ce bug ne m'arrange pas, mais j'ai une autre idée.... que je n'arrive desespérement pas à mettre en place : J'ai remarqué que pour les objets fenêtres, quand elles sont constitué de 2 éléments (polyligne et viewport, cercle et viewport, etc....) chacun de ces deux éléments à le même point d'insertion, donc le même code dxf (10 .0.00 0.00 0.00).... Je voudrais savoir si il est possible de faire un filtre pour selectionner justement 2 entités qui ont le même point d'insertion.... j'ai trouvé le "=", mais je n'arrive pas à le faire fonctionner.... Certainement pourrez vous m'aiguiller... Mais peut être que la solution serait de passer totalement en vl-, même pour la selection, mais là, j'avoue ne pas m'y être penché... parceque l'aide est en anglais.... merci de votre aide en tous cas...

... Voilà, comme le montre Tramber, on peut passer par Autocad pour aller dans les paramètres de configuration de l'imprimante (ce sont bien les paramètre de l'imprimante que l'on change, et non pas la configuration d'Autocad) ... ... Et hop, voilà comment sauver ma réponse précedente !!! ... :P ;)

Désolé Tramber, mais je t'explique mon septissisme : Je ne travail QUE comme ça L'insertion de blocs avec point d'insert non imprimable... J'ai une bibliothèque 3D d'éléments (échafaudages) et je les assemble l'un avec l'autre de cette manière, ce que je croyais être le deuxième fonctionnement principal d'Autocad, après le dessin "pure" ... Donc désolé... :P

Pffff.... Désolé.... Ma 1ère langue étant le français, ma seconde le français (et je n'en ai pas d'autre), j'avoue survoler les explications de l'aide de developpeur... j'imagine que "viewport" est ce que l'on traduit par "fenêtre de présentation"... Merci (gile) pour ta proposition en vl, il faut que j'essaye de m'y mettre plus serieusement (en fait de n'avoir plus "peur" de les utiliser, plus on me donne d'exemple avec, plus je comprend la logique...) Bonuscad : En effet, ton filtre va me faire gagner un temp précieux, car je n'avais pas fait de test avec ce type de fenêtre... ... heu par contre j'ai encore un truc bizarre : ça n'accepte pas les fenêtres "cercle" ... alors que j'ai bien comme entité :

? .... Salut Tramber.... J'adore le second degré, mais le souci c'est quand il est tellement déguisé qu'on se demende si cela en est ... ???? Alors... ? Cela en est, hein ???

Heu... je ne sais pas si je réponds correctement, mais la configuration de la taille du papier ce fait dans les paramètres de l'imprimante/traceur, pas directement dans autocad.

merci (gile), en effet, il y avait ENCORE, une faute, que j'ai corrigé comme ceci : (if (= nil (assoc 62 (entget (ssname f_m Index)))) ... mais ça ne me corrige pas mon erreur : maintenant ça me traite bien les fenêtres polygonales, mais ça ne traite pas les fenêtres rectangulaires : on dirait que (entmod (append (entget (ssname f_m Index)) (list (cons 62 Couleur)))) ne fonctionne pas (alors que lorque je regarde les entités avec la console, le code (62 . 1) est bien rajouté : ... j'enrage !!!!

Mon message précedent est toujour d'actualité, parceque je ne comprend toujours pas pourquoi ça ne fonctionne pas... :casstet: :( Mais, un code + "simple" et qui fonctionne : ;) ((lambda ( / f_m ) (while (null (setq f_m (ssget '((-4 . "< OR")(0 . "VIEWPORT")(-4 . "< AND") (0 . "LWPOLYLINE")(102 . "{ACAD_REACTORS") (-4 . "AND>")(-4 . "OR>"))))) ) (setq Couleur 1) (command "_change" f_m "" "p" "co" Couleur "") ) ) (enlever les espaces après >)

Salut, Merci Tramber.... mais.... Merci parcequ'en effet mon 'indexeur" était mal mis (il était bien au début, et à force de bidouiller dans le programme on se trompe dans les parenthèse et voilà ce qui arrive...), mon compteur était faux (je me suis fait avoir par le 0 du ssname...) :P Mais : en fait le princ dans While ne sert plus à rien en fait, donc je l'enlève ... et avec tout ça ça ne fonctionne toujours pas !!! (pour info ton code, tramber, n'est pas exploitable : il y manque la double parenthèse de lambda, et les filtres de ssget ont disparus... mais certainement à cause du >, comme je l'ai précedement fait) Donc, corrigé (grâce à Tramber) mais ne fonctionnant toujour pas : ((lambda ( / f_m ) (while (null (setq f_m (ssget '((-4 . "< OR")(0 . "VIEWPORT")(-4 . "< AND") (0 . "LWPOLYLINE")(102 . "{ACAD_REACTORS") (-4 . "AND >")(-4 . "OR >"))))) ) (setq Index 0 Couleur 1) (if f_m (progn (repeat (sslength f_m) (if (= null (assoc 62 (entget (ssname f_m Index)))) (entmod (append (entget (ssname f_m Index)) (list (cons 62 Couleur)))) (entmod (subst (cons 62 Couleur) (assoc 62 (entget (ssname f_m Index))) (entget (ssname f_m Index)))) ) (setq Index (+ Index 1)) ) ) ) ) ) -enlever les espaces avant > ... Au secours !!! :( merci [Edité le 8/7/2006 par Bred]

Alors là, si quelqu'un propose un solution, je suis preneur : Paraméter ces propres type d'accrochages du type Inventor (avec les i-contraintes de mémoire)... c'est mon rêve !!!

... par contre j'ai toujours le même problème : les fenêtre "simple" n'ont pas l'air d'accepter le changement d'entit" (ici '(62 . 1) - couleur Rouge) ... ((lambda ( / f_m ) (while (null (setq f_m (ssget '((-4 . " (0 . "LWPOLYLINE")(102 . "{ACAD_REACTORS") (-4 . "AND>")(-4 . "OR>"))))) (princ "\nN'est pas une fenêtre") ) (setq Index 0 Couleur 1) (if f_m (progn (repeat ( - (sslength f_m) 1) (if (= null (assoc 62 (entget (ssname f_m Index)))) (entmod (append (entget (ssname f_m Index)) (list (cons 62 Couleur)))) [b] (entmod (subst (cons 62 Couleur) (assoc 62 (entget (ssname f_m Index))) (entget (ssname f_m Index))))[/b] ) ) ) (setq Index (+ Index 1)) ) ) ) (en gras ce que je pense ne fonctionnant pas) ... personne n'aurait un piste SVP ????... merci d'avance...

J'ai trouvé mieux : Sélection de fenêtre rectangle et Polygonale : (setq f_m (ssget '((-4 . " (0 . "LWPOLYLINE")(102 . "{ACAD_REACTORS") (-4 . "AND>")(-4 . "OR>")))) je ne connaissais pas (-4 . "< OR") et (-4 . "< AND") ... [Edité le 7/7/2006 par Bred]

Raaaahhh !!!... y'a un truc qui bloc !!! Je ne comprend vraiment pas où est mon erreur : Routine de selection de fenêtre Rectangle ou polygonale (changement en couleur Rouge) ((lambda ( / f_m ) (while (null (setq f_m (ssget '((0 . "VIEWPORT,LWPOLYLINE"))))) (princ "\nN'est pas une fenêtre") ) (setq Index 0 Couleur 1) (if f_m (progn (repeat ( - (sslength f_m) 1) (if (or (= (cdr (assoc 0 (entget (ssname f_m Index)))) "VIEWPORT") (= (cdr (assoc 102 (entget (ssname f_m Index)))) "{ACAD_REACTORS")) (progn (if (null (cdr (assoc 62 (entget (ssname f_m Index))))) (entmod (append (entget (ssname f_m Index)) (list (cons 62 Couleur)))) (entmod (subst (cons 62 Couleur) (assoc 62 (entget (ssname f_m Index))) (entget (ssname f_m Index)))) ) ) ) (setq Index (+ Index 1)) ) ) ) ) ) ... Ce n'est pas tés "propre" car la selection permet les polyligne "simple", mais je ne les traites pas... Donc le problème est que bizarrement, ça ne me prend QUE les fenêtre polygonales ... merci de votre aide ...

Un peu plus tordu, mais faisable si les 2 propositions précedentes ne fonctionne pas : tu vérouilles tout tes calques sauf le cotation, tu repère un point d'accrochage de cote "évident" (rayon, angle de bâtiment ...), tu dépace toutes tes cotes pour que le point "evident" corresponde avec le point de la côte correspondante, et là tu peux faire une rotation avec réference à partir de ce dernier point ...