bbteddy

Salut Pour moi c'est la 2014 full avec SP1. Et j'ai eu un collègue d'un autre BE au téléphone et en faisant le test tous les 2 ont s'est rendu compte que le problème disparait si ont selectionne le point d'attache et non la ligne !!! :blink: :blink: :blink: de quoi devenir dingue ! POURQUOI Autocad nous autorise à repasser par dessus la cotes d'origine, c'est complètement inutile pour une cote à la chaîne. PETITE PROPOSITION ... : Ne peut on pas programmer un lisp qui lancerait le départ de la chaîne du coté ou se trouve la sourie par rapport a la cote d'origine? Merci à vous @ très vite

Bonjour à tous ! Il y a quelque semaines, j'ai ouvert ce sujet Mon lien ... Depuis je suis passé sur 2014 et je viens de découvrir POURQUOI j'ai des cotes continues qui ne partent pas du bon coté. Pouvez vous faire le test suivant et me dire si vous aussi vous êtes dans mon cas... 1) faire une "cotlin" avec les 2 point à 45° et la cote coller de n'importe quel coté. 2) tapez la commande "cotcont" + entrée pour choisir le départ sur cette cote... Et bien moi je ne peux pas choisir le départ, la chaîne ne démarre que du point le plus proche de la cote de base. SVP, dites moi pourquoi ? Ce problème m'a déjà coûté de l'argent et je flippe de refaire une erreur (plan d’exécution chantier),car une fois sur cent la cote part du mauvais coté. Merci d'avance

Nan nan, ce n'est pas un problème de refaire les cotes fausses le tout est de les trouver !!!

Merci Jeff, mais je connaissait déjà cette subtilité, je cherche à retrouver l'erreur(s) quand le mal est fait et qu'il n'est pas visible au premier abord !!!

Bonjour à tous, Je suis certain de ne pas être le seul à avoir ce problème, pourtant je ne trouve pas de solutions. Quand je démarre une cotation continue, 98 fois sur 100 je vérifie que la cote démarre du bon coté de celle en place. Malheureusement les 2 fois restantes ou je n'ai pas fais ce contrôle et que je part du mauvais coté, la deuxième cote qui suit est fausse (elle inclue la valeur de la précédente sans que cela soit visible) Afin de trouver ces intrus , est il possible d'effectuer une recherche par critère qui ferait ressortir les cotes colinéaires ET superposées ? Merci d'avance pour votre aide...

Mon problème est que : - je travaille sur un bâtiment où chaque étage est un fichier DWG - Chaque étage (N) appel une Xref de l'étage du dessus (N+1) - Cette Xref N+1 a tous ces calques gelés sauf 1 que je doit voir apparaître sur l'étage N - et ainsi de suite Et là, je bloque car je doit mettre 2 étages sur un plan !!! C'est grave docteur ?

Bonjour, Je fais une fois de plus appel à vous pour m'aider... :D Je souhaite faire une présentation avec 2 fenêtres... jusqu'ici tout va bien, Le problème est que le contenu de la 2ème fenêtre se trouve dans un autre fichier DWG Je ne peux pas les mettre en Xref, car ils le sont déjà. Y a-t-il une possibilité de faire un lien entre une fenêtre de présentation et l'objet d'un autre fichier ? Merci d'avance pour votre aide @ bientôt

Bonjour, Je ne viens pas souvent mais je suis tombé par hasard sur ton sujet et j'ai eu le même problème il y a peu ! Ma solution a été de désactiver le scan en temps réel de mon antivirus (Mc Afee) qui scrutait trop scrupuleusement les requêtes autocad !!! J’espère t'avoir aidé ! cdt Stéphane

Bonjour à tous ! Voici un code que vous m'avez très gentiment concocté il y a quelque temps déjà. Celui ci me permet de sélectionner les cadres que je souhaite imprimer et l'impression ce fait toute seule page par page et dans l'ordre ! Je souhaite maintenant l'utiliser avec CutePDF Writer (ou un autre !) . Seulement a chaque page il me demande de lui donner le nom du fichier à enregistrer... Est-il possible qu'il rentre automatiquement le numéros de page (celui-ci lui aillant déjà servi pour faire le tri ! ). Voici le code : (defun c:impt (/ ACDOC B BACKGROUNDPLOT C I P1 P2 SEL XMIN YMAX PLT lst-att LST LST-F LST-NB Y) (vl-load-com) (while (not sel) (setq sel (car (entsel "\n Choix du cadre (Bloc) :"))) (if sel (if (not (equal (vla-get-ObjectName (setq b (vlax-ename->vla-object sel))) "AcDbBlockReference")) (setq sel nil))) ) (setq sel (ssget '((0 . "INSERT"))) AcDoc (vla-get-activedocument (vlax-get-acad-object)) BACKGROUNDPLOT (getvar "BACKGROUNDPLOT")) (setvar "BACKGROUNDPLOT" 0) ; Récupère Attrib "FOLIO" (repeat (setq i (sslength sel)) (if (equal (vla-get-effectivename (setq c (vlax-ename->vla-object (ssname sel (setq i (1- i)))))) (vla-get-effectivename b)) (if (setq lst-att (vlax-safearray->list (vlax-variant-value (vla-GetAttributes c)))) (repeat (setq y (length lst-att)) (if (equal (strcase (vla-get-TagString (nth (setq y (1- y)) lst-att))) "FOLIO") (setq lst-F (append (list (cons (atoi (vla-get-TextString (nth y lst-att))) c)) lst-F) lst-nb (append (list (atoi (vla-get-TextString (nth y lst-att)))) lst-nb)) ) ) ) ) ) ; Tri (setq lst-nb (vl-sort lst-nb '< ) i 0) (repeat (length lst-nb) (setq lst (append lst (list (cdr (assoc (nth i lst-nb) lst-F)))) i (1+ i)) ) ; trite liste bloc (setq i 0) (repeat (length lst) (setq c (nth i lst) i (1+ i)) (vla-GetBoundingBox c 'xmin 'ymax) (setq p1 (vlax-make-safearray vlax-vbdouble (cons 0 1)) p2 (vlax-make-safearray vlax-vbdouble (cons 0 1))) (vlax-make-variant (vlax-safearray-fill p1 (list (car (vlax-safearray->list xmin)) (cadr (vlax-safearray->list xmin))))) (vlax-make-variant (vlax-safearray-fill p2 (list (car (vlax-safearray->list ymax)) (cadr (vlax-safearray->list ymax))))) (if (> (- (car (vlax-safearray->list ymax)) (car (vlax-safearray->list xmin))) (- (cadr (vlax-safearray->list ymax)) (cadr (vlax-safearray->list xmin)))) (vla-put-PlotRotation (vla-get-activelayout AcDoc) ac90degrees) (vla-put-PlotRotation (vla-get-activelayout AcDoc) ac0degrees)) (setq plt (vla-get-plot AcDoc)) (vla-put-PlotType (vla-get-activelayout AcDoc) acWindow) (vla-setwindowtoplot (vla-get-activelayout AcDoc) p1 p2) (vla-plottodevice plt (vla-get-configname (vla-get-activelayout AcDoc))) ) (setvar "BACKGROUNDPLOT" BACKGROUNDPLOT) (princ) ) MERCI pour votre aide ! @ bientôt et bon weekend

Ouuffff merci à tous les deux je vais essayer de trier les infos.... MERCI @+

bonjour Et donc je ne peut pas mélanger col3 avec les autres variables qui sont des calques ? ou c'est parce-que je m'y prend mal ? merci !

J'ai un bug ..... voila mon code, j'ai du faire un truc qui ne va pas !!! j'ai un message d'erreur : - ; erreur: valeur de liste SSGET incorrecte Et en plus il me demande de sélectionner des objets alors que je souhaite que ça opère sur tout le dessin . (defun c:net2 (/ selpoch plan1 plan2 col3) (setq plan1 "ST_N_Poteaux BA Hach") (setq plan2 "ST_N_Indices") (setq col3 (ssget '((-4 . "")))) (setq selpoch (ssget "X" (list '(-4 . "")))) (command "draworder" selpoch "" "AR" ))

Salut il me semblait l'avoir essayé celui-ci mais bon..... je vais retenter la chose merci @+

Bonjour, je souhaiterai améliorer ce lisp : (defun c:net2 (/ selpoch plan1 plan2 col3) (setq plan1 "ST_N_Poteaux BA Hach") (setq plan2 "ST_N_Indices") (setq col3 (ssget '([surligneur]OBJETS DE COULEUR 11,13,15[/surligneur]))) (setq selpoch (ssget "X" (list '(-4 . "")))) (command "draworder" selpoch "" "AR" )) Voila je ne trouve pas le code surligner qui me sélectionnerai tous les éléments de couleur 11-13-15 MERCI d'avance

merci philphil mais je ne suis pas assez fort en lisp pour le modifier dans le sens qui me convient... :( J'arrive a comprendre l'ensemble du code mais dans le détail je suis larguer ....

ne t'excuses pas au contraire merci pour l'incruste .... en fait je dessin des plans d'exécution chantier.... je reçoit de la part des corps d'état leurs réservations à intégrer sur mes plans et en règle général, suivant comme ils travailles, il n'y a pas ce fameux dessin qui symbolise une trémie donc j'arrive à récupérer de leur part des rectangles (réservations) et le texte (dimension)..... mais je ne peux pas laisser ça dans cette état sinon ce serait illisible.... à noter que juste les réservations du plombier représente 80 trous !!!! Donc je cherche une routine me dessinant automatiquement ce symbole en partant de rectangle !!! voila !!! merci pour votre aide

Bonjour, Après un temps ... je me retrouve à devoir faire des trémies par dizaines. Je ne comprend pas comment fonction ce vba (je n'en ai jamais utilisé) j'ai réussi à le charger, et à le lancer (hhouaaahou ) mais ensuite il me demande les 2 largeurs de trémie en mm et il plante !!! que ce passe-t-il ? j'ai jeter un œil au code et c'est du chinois! merci @bientôt

merci !!! je me doutais que c'était très simple mais je suis mal partie et je suis rester borné :cool: QUESTION: Pour le nom d'une fonction suivant defun est précédé de "c:" (defun c:qmah ()

Bonjour, C'est pas possible ??? S'il vous plait je vais en avoir vraiment besoin très bientôt... merci

Bonjour Juste une petite question sur laquelle je bloque .... la fonction recherche ne pas aidé non plus ... Je souhaiterai créer une routine qui démarrerais par une autre routine déjà existantes puis la continuer afin d'arriver au but souhaité.... Comment insérer une routine dans une routine ??? :( merci

merci beaucoup @+

Bonjour, Et oui c'est encore moi J'ai cherché sur le forum mais je n'ai rien trouvé correspondant à mon objet.... http://img39.imageshack.us/img39/6812/tremu.jpg Je souhaiterai réaliser la polyligne jaune en sélectionnant le rectangle rouge... cela sur une ou plusieurs sélection d'un coups. Pour le réaliser j'ai utilisé 2 rapport 80% au centre du rectangle. merci d'avance @bientôt

Merci beaucoup Surtout que je ne comprend pas la moitié du code ;) mais j'ai pu me débrouillé une personnalisation de dessous les fagots <acronym class=dict title=. Voici le code qui fait exactement ce que je veux : (defun c:xtr () (setq nom-de-xref (cdr (assoc 2 [surligneur](entget (car (entsel)[/surligneur]))))) (setq liste-de-calques1 '("*")) [surligneur](mapcar '(lambda (x)[/surligneur] (command "_.-layer" "in" [surligneur](strcat nom-de-xref "|" x) ""))[/surligneur] liste-de-calques1) (mapcar '(lambda (x) (command "_.-layer" "ra" (strcat nom-de-xref "|" x) "")) liste-de-calques1) (setq liste-de-calques2 '("ST_N_Murs BA" "ST_N_Murs BA Hach" "ST_N_Murs Agglo")) (mapcar '(lambda (x) (command "_.-layer" "ac" (strcat nom-de-xref "|" x) "")) liste-de-calques2) (setq liste-de-calques3 '("ST_N_Murs BA" "ST_N_Murs Agglo")) (mapcar '(lambda (x) (command "_.-layer" "co" "4" (strcat nom-de-xref "|" x) "")) liste-de-calques3) (mapcar '(lambda (x) (command "_.-layer" "tl" "tiret" (strcat nom-de-xref "|" x) "")) liste-de-calques3) (setq liste-de-calques4 '("ST_N_Murs BA Hach")) (mapcar '(lambda (x) (command "_.-layer" "co" "3" (strcat nom-de-xref "|" x) "")) liste-de-calques4) (mapcar '(lambda (x) (command "_.-layer" "t" "" (strcat nom-de-xref "|" x) "")) liste-de-calques4) ) Pourriez vous m'expliquer en détail ce qui ce passe dans les zone en jaune ? Est-ce possible de simplifier le code dans les cas ou je n'est pas de liste de calque ? Pourquoi as tu mis un "_." devant -layeur ou "_" devant co dans ton code ? MERCI @+

bonjour, désolé de ne pas avoir pris le temps avant pour regarder plus en détails vos réponses. La piste que tu me propose Carboleum est dans le gout sauf que : - je souhaite sélectionner une Xref et agir sur plusieurs calques dont je connais le nom et ton code agit sur le calque de l'objet sélectionné. Et la je ne sais pas comment faire :( merci @+

Désolé d'être un boulet ! Mais je ne maitrise pas l'anglais donc j'ai traduit le texte (avec un traducteur de la toile ) Et rien a y faire je n'ai pas avancé !!!