Aller au contenu

AutoCAD 2013


556 sujets dans ce forum

    • 10 réponses
    • 3,1 k vues
    • 10 réponses
    • 2,9 k vues
  1. couleurs icones aides au dessin

    • 24 réponses
    • 5,6 k vues
  2. Suppression Pack 1

    • 3 réponses
    • 2,4 k vues
  3. texte multi colonnes

    • 5 réponses
    • 2,5 k vues
  4. Objets AEC

    • 3 réponses
    • 3,6 k vues
    • 1 réponse
    • 1,7 k vues
  5. distance par rapport a l'origine

    • 5 réponses
    • 3 k vues
  6. Blocs signalisation

    • 4 réponses
    • 2,1 k vues
  7. Autocad Ne répond pas

    • 2 réponses
    • 6,4 k vues
  8. Commande Rectangle

    • 8 réponses
    • 11,2 k vues
  9. ruban Présentation

    • 0 réponse
    • 1,4 k vues
    • 3 réponses
    • 2 k vues
  10. Ouverture Autocad map 2013

    • 6 réponses
    • 4,2 k vues
    • 7 réponses
    • 3,8 k vues
  11. Un Chtimi chez Adesk ?

    • 11 réponses
    • 3,2 k vues
  12. Autocad 2013 et Windows 8

    • 15 réponses
    • 20,6 k vues
  13. ombre solaire

    • 9 réponses
    • 3,2 k vues
    • 2 réponses
    • 1,7 k vues
  14. aide absente sur 2013

    • 2 réponses
    • 1,7 k vues
  15. Vue non alignée sur SCG

    • 1 réponse
    • 1,5 k vues
    • 4 réponses
    • 13,6 k vues
  16. Valeur de ZOOM

    • 4 réponses
    • 3 k vues
  17. totalaera totalpérim

    • 3 réponses
    • 2,2 k vues
  18. Bug avec l'option paramèTres de la commande Hatch

    • 0 réponse
    • 1,2 k vues


  • Statistiques des forums

    • Total des sujets
      49,3 k
    • Total des messages
      299 k
  • Sujets

  • Messages

    • Je suis parti de l'ancien code, mais j'aurais pu (dû) écrire de façon moins cryptique : (defun DrawOrderByLayer (fun / ent doc blocks layer sort lst var) (vl-load-com) (and (setq ent (car (entsel "\nSélectionnez un objet sur le calque cible: "))) (SETQ doc (vla-get-ActiveDocument (vlax-get-acad-object)) blocks (vla-get-Blocks doc) layer (cdr (assoc 8 (entget ent))) ) (not (vla-StartUndoMark doc)) (vlax-for b blocks (or (not (vl-catch-all-error-p (setq sort (vl-catch-all-apply 'vla-GetObject (list (vla-GetExtensionDictionary b) "ACAD_SORTENTS") ) ) ) ) (setq sort (vla-AddObject (vla-GetExtensionDictionary b) "ACAD_SORTENTS" "AcDbSortentsTable" ) ) ) (setq lst nil) (vlax-for obj b (if (= (vla-get-Layer obj) layer) (setq lst (cons obj lst)) ) ) (if lst (fun sort (vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbObject (cons 0 (1- (length lst)))) lst ) ) ) ) ) ) (vla-EndUndoMark doc) (vla-Regen doc acActiveViewport) (princ) ) (defun c:TOP () (DrawOrderByLayer vla-MoveToTop)) (defun c:BOT () (DrawOrderByLayer vla-MoveToBottom))  
    • Salut les commandes TOP et BOT définies ci-dessous affectent tous les espaces et tous les blocs. (mapcar (function (lambda (cde fun) (eval (list 'defun cde '(/ ent doc blocks layer sort lst var) '(vl-load-com) (list 'and '(setq ent (car (entsel "\nSélectionnez un objet sur le calque cible: ") ) ) '(setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) blocks (vla-get-Blocks doc) layer (cdr (assoc 8 (entget ent))) ) '(not (vla-StartUndoMark doc)) (list 'vlax-for 'b 'blocks '(or (not (vl-catch-all-error-p (setq sort (vl-catch-all-apply 'vla-getObject (list (vla-getExtensionDictionary b ) "ACAD_SORTENTS" ) ) ) ) ) (setq sort (vla-addObject (vla-getExtensionDictionary b ) "ACAD_SORTENTS" "AcDbSortentsTable" ) ) ) '(setq lst nil) '(vlax-for obj b (if (= (vla-get-Layer obj) layer) (setq lst (cons obj lst)) ) ) (list 'if 'lst (list fun 'sort '(vlax-make-variant (vlax-safearray-fill (vlax-make-safearray vlax-vbObject (cons 0 (1- (length lst))) ) lst ) ) ) ) ) ) '(vla-EndUndoMark doc) '(vla-regen doc acActiveViewport) '(princ) ) ) ) ) '(c:top c:bot) '(vla-MoveToTop vla-MoveToBottom) )  
    • Merci beaucoup @La Lozère pour l'échange. La prochaine fois qu'une question sur ce sujet se présentera, on saura renvoyer vers ce message. Amicalement
    • Bonjour @barbichette Ravi de voir que la question posée a trouvé sa solution. Ce serait sympa pour la communauté de fournir le bloc avec la solution mise en place pour que les prochaines questions portant sur ce sujet soient redirigées vers ce message. Le principe est l'échange de savoir, de combines, de bidouilles, de ce qui fait avancer les choses en général. Amicalement
    • Bon.... J'ai trouvé. Ou plutôt on m'a montré... Merci le support Je cherchais à tabuler au niveau de la branche. Ici : Alors qu'il fallait le faire au niveau du carrefour. Ici :
  • Sujets

×
×
  • 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é