Aller au contenu

ClemAuto

Membres
  • Compteur de contenus

    15
  • Inscription

  • Dernière visite

ClemAuto's Achievements

Apprentice

Apprentice (3/14)

  • One Month Later Rare
  • Week One Done Rare
  • Reacting Well Rare
  • Collaborator Rare
  • First Post Rare

Recent Badges

0

Réputation sur la communauté

  1. @Invité Oran & @Steven Merci beaucoup ! Ce lisp fonctionne parfaitement en peu de temps 👍 Encore merci 🙂 Bien cordialement
  2. @didier N'y a-t-il pas de solution pour tout mettre sur une position z=0 (même les blocs en questions sans y toucher) avec une commande, lisp ou programme ? Car je souhaiterais conserver ses blocs sans devoir les décomposer ou modifier chaque blocs un par un La question est de savoir si on peut forcer cela, un lisp qui prendrai en compte tout le dessin Comme par exemple un lisp de couleur où avec la commande tout le dessin y compris les blocs se changent Bien cordialement
  3. Bonjour @didier Ci joint mon dessin avec le problème rencontrer Bien cordialement DESSIN TEST.dwg
  4. Bonjour @Curlygoth Quand je vais dans ses objets en question l'objet est bien en Position Z = 0 mais quand je le modifie c'est que le point d'insertion qui est en z=0 le reste et dans une autre altimétrie c'est pour cela que je ne le vois pas aligné en vue de côté… Je ne sais pas si un lisp ou un programme existe pour forcer cela, et tout mettre en z=0 même dans les objets Si je décompose tout mon dessin, tout les blocs cela fonctionne avec CTRL A / Déplacer 0,0,0 / 0,0,1e99 ... Mais je souhaiterai conserver mon dessin avec ses blocs actuels, donc forcer le déplacement en Z=0 même dans ses blocs (car j'ai des blocs dans des blocs etc) Bien cordialement
  5. Bonjour @Ra_Mamt La commande FLATTEN ne fonctionne pas dans mon cas Bien cordialement
  6. Bonjour J'ai un dessin où j'ai une multitude d'objet, de calque etc et je souhaiterais l'aplatir pour que le z de TOUT le dessin soit égal à 0 Les plans archi que j'ai ont du être réalisé en 3D et les objets intégrés dans le dessin ne sont pas sur une altimétrie de 0 En cherchant sur le forum plusieurs solution sont proposés mais aucune ne fonctionne pour mon cas Quelques objets se mettent sur un Z=0 mais quand je suis de vue de côté ils sont pas alignés car dans ses objets en questions l'altimétrie n'est pas de 0 J'aimerai savoir si c'est possible de TOUT mettre à un z=0 Bien cordialement
  7. Bonjour @Luna @Curlygoth Je reviens demander de l'aide... J'ai un dessin où j'ai une multitude d'objet, de calque etc et je souhaiterais l'aplatir pour que le z de TOUT le dessin soit égal à 0 Les plans archi que j'ai ont du être réalisé en 3D et les objets intégrés dans le dessin ne sont pas sur une altimétrie de 0 En cherchant sur le forum plusieurs solution sont proposés mais aucune ne fonctionne pour mon cas Quelques objets se mettent sur un Z=0 mais quand je suis de vue de côté ils sont pas alignés car dans ses objets en questions l'altimétrie n'est pas de 0 J'aimerai savoir si c'est possible de TOUT mettre à un z=0 Bien cordialement
  8. @Luna & @Curlygoth Merci beaucoup pour vos réponses tout est plus clair pour moi maintenant 👍 Amicalement 🙂
  9. Bonjour @Luna Merci beaucoup pour ta réponse, c'est exactement ce que je cherchais ! 🙂 Par contre petite question, cela fonctionne très bien quand je dessine moi même les cercles, polyligne etc... mais cela ne fonctionne pas avec des éléments (cercle polyligne... aussi) que j'ai copier d'un autre dessin et je ne comprend pas pourquoi Car même quand je copie les propriétés des éléments que j'ai dessiné, la commande ne prend pas en compte les éléments copiés d'un autre dessin (alors qu'ils sont identiques aux autres) Avez-vous une solution à ce problème ? Ci-joint le dwg pour comprendre le problème Sur le screen ci-dessous on peut voir les points donnés grâce à la commande mais on voit que ceux que j'ai copié ne sont pas pris en compte, j'espère être clair ^^ Dessin1.dwg
  10. J'ai cherché longuement sur plusieurs site et forum de lisp et je suis tombé sur ça : http://lee-mac.com/intersectionfunctions.html#intersectionsbetweensets Sur ce site j'ai trouvé un lisp qui pourrait me convenir parfaitement (voir gif) Mais je n'arrive pas à l'utiliser, je n'ai rien qui se passe ou j'ai cette erreur sur AutoCAD ; erreur: no function definition: CONTRE Voici ce que j'ai mis (ce qui est sur le site) : ;; Intersections - Lee Mac ;; Returns a list of all points of intersection between two objects ;; for the given intersection mode. ;; ob1,ob2 - [vla] VLA-Objects ;; mod - [int] acextendoption enum of intersectwith method (defun LM:intersections ( ob1 ob2 mod / lst rtn ) (if (and (vlax-method-applicable-p ob1 'intersectwith) (vlax-method-applicable-p ob2 'intersectwith) (setq lst (vlax-invoke ob1 'intersectwith ob2 mod)) ) (repeat (/ (length lst) 3) (setq rtn (cons (list (car lst) (cadr lst) (caddr lst)) rtn) lst (cdddr lst) ) ) ) (reverse rtn) ) (defun c:inter ( / obj1 obj2 ) (if (and (setq obj1 (car (entsel "\nSelect 1st Object: "))) (setq obj2 (car (entsel "\nSelect 2nd Object: "))) ) (foreach pnt (LM:intersections (vlax-ename->vla-object obj1) (vlax-ename->vla-object obj2) acextendnone) (entmake (list '(0 . "POINT") (cons 10 pnt))) ) ) (princ) ) (vl-load-com) (princ) ;; Intersections Between Sets - Lee Mac ;; Returns a list of all points of intersection between objects in two selection sets. ;; ss1,ss2 - [sel] Selection sets (defun LM:intersectionsbetweensets ( ss1 ss2 / id1 id2 ob1 ob2 rtn ) (repeat (setq id1 (sslength ss1)) (setq ob1 (vlax-ename->vla-object (ssname ss1 (setq id1 (1- id1))))) (repeat (setq id2 (sslength ss2)) (setq ob2 (vlax-ename->vla-object (ssname ss2 (setq id2 (1- id2)))) rtn (cons (LM:intersections ob1 ob2 acextendnone) rtn) ) ) ) (apply 'append (reverse rtn)) ) (defun c:intersets ( / ss1 ss2 ) (if (and (setq ss1 (ssget)) (setq ss2 (ssget)) ) (foreach pnt (LM:intersectionsbetweensets ss1 ss2) (entmake (list '(0 . "POINT") (cons 10 pnt))) ) ) (princ) ) (vl-load-com) (princ) Si quelqu'un pourrait m'orienter sur ce LISP je suis preneur… Bien cordialement
  11. Bonjour @Steven Après avoir télécharger AutoCAD MAP 3D et utilisé la commande MAPCLEAN je n'arrive à avoir le résultat que je souhaite Y a t'il des particularités pour cette commande ? Je n'arrive pas avoir mes points d'intersection entre mes 2 calques... Bien cordialement
  12. Bonjour @Curlygoth J'ai bien compris votre démarche mais si mes calques sont composés de plusieurs objet différent, puis-je le faire en sélectionnant directement tout le calque ? Et avoir les points d'intersection des 2 calques directement ? Cette fonction n'est-elle pas disponible en lisp ? bien cordialement
  13. Bonjour @didier L'idéal serai de sélectionner les calques (par ex : trouver les conflits entre le calque 1 et le calque 2) Non pas forcément en VBA, mais je suis preneur de toute solution. Bien cordialement
  14. Bonjour @lecrabe J'utilise une licence pour Autodesk AutoCAD 2023, mais je n'ai pas la commande MAPCLEAN Bien cordialement
  15. Bonjour, Je suis à la recherche d'une commande ou d'un lisp sur AutoCAD me permettant de détecter des conflits / superpositions de ligne. L'idéal serai de détecter ce conflit sur des calques et/ou objet distinct ou même si possible entre un claque/objet avec un Xréf. Par exemple avec l'image ci-dessous de détecter sur tout le dessin quand le cercle en pointillé vert touche le rectangle noir. Cette Commande ou Lisp est-t-il possible ? Merci d'avance J'ai trouver ce GIF sur internet, c'est exactement ce que je souhaite faire si cela peut aider à la compréhension de ma demande ^^
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité