Aller au contenu
Problème de lien d'inscription (résolu ?) ×

Débuter en LISP

Vous voudriez savoir ce qu'est le LISP? Vous êtes débutant, vous n'êtes pas programmeur mais vous souhaitez vous y mettre? Ce forum est fait pour vous!

1 799 sujets dans ce forum

  1. création d\'intersection et reconstitution de contours

    Par doy,
    • 0 réponse
    • 1,2 k vues
    • doy
    • doy

  2. commande _list

    Par Invité ingoenius,
    • 8 réponses
    • 1,8 k vues
    • Invité
    • Invité

  3. comment récuppérer des points sur des polylignes.

    Par doy,
    • 1 réponse
    • 1,6 k vues

  4. STYLE DE COTE

    Par coxsurf56,
    • 4 réponses
    • 1,6 k vues

  5. deplacement origine scu

    Par Invité ingoenius,
    • 4 réponses
    • 1,6 k vues
    • Invité
    • Invité

  6. détermination de points et calcul du barycentre et +

    Par doy,
    • 0 réponse
    • 2,7 k vues
    • doy
    • doy

  7. métré

    Par mattttth23,
    • 8 réponses
    • 3 k vues

  8. Problème d\'association polyligne / calque

    Par doy,
    • 3 réponses
    • 2,1 k vues

  9. copier un bloc

    Par hardyorock,
    • 4 réponses
    • 1,9 k vues

  10. bloc dynamique et attribut

    Par pierredudu,
    • 3 réponses
    • 1,6 k vues

  11. mettre au clair un plan géometre

    Par whitesquare,
    • 11 réponses
    • 2,8 k vues

  12. Commande lisp gérée avec allias

    Par sechanbask,
    • 5 réponses
    • 2,5 k vues

  13. centre d\'un polyline

    Par CADarome,
    • 11 réponses
    • 5,7 k vues

  14. changer layer d\'un bloc dynamique en lisp

    Par pierredudu,
    • 6 réponses
    • 3,1 k vues

  15. action_tile dans une boucle

    Par pierrevig,
    • 4 réponses
    • 1,9 k vues

  16. problème \"list\"

    Par pierrevig,
    • 2 réponses
    • 2,1 k vues

  17. ajouté des selection

    Par hardyorock,
    • 4 réponses
    • 3,6 k vues

  18. convertir des lysps de 14 à 2006 (en ordre)

    Par remixlux,
    • 8 réponses
    • 3 k vues

  19. Livre LISP?

    Par fabdo,
    • 6 réponses
    • 2,7 k vues

  20. LISP ou VBA

    Par fabdo,
    • 5 réponses
    • 2,5 k vues

  21. Modifier un Texte d\'un bloc avec attributs

    Par JUJUZAZA,
    • 11 réponses
    • 11 k vues

  22. vlax-ldata ... suite

    Par Bred,
    • 14 réponses
    • 3,9 k vues

  23. Compter nb élément identique dans une liste

    Par Bred,
    • 7 réponses
    • 4 k vues

  24. Sélection multiple

    Par kclement,
    • 10 réponses
    • 5,5 k vues

  25. menu chargé en automatique

    Par pierredudu,
    • 9 réponses
    • 2,4 k vues


  • Statistiques des forums

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

  • Sujets

  • Messages

    • sagaff
      Autocad civil 3d pour dessiner les réseaux d'assainissement et eau potable

      Par sagaff · Posté(e)

      Bonjour, je viens d'être embauché dans une entreprise d'études et de travaux pour les réseaux d'assainissement et d'eau potable. Actuellement l'entreprise utilise Microstation que je trouve extrêmement laborieux et archaïque par rapport à Revit et Autocad par exemple. Par exemple pour la mise en page d'un plan cela me prend un temps fou à bricoler pour sortir quelque chose de potable.  Autocad Civil 3d serait t'il plus approprié ? Peut il fait la même chose au point de vue dessin ? Est-il capable d'importer des fichiers Dgn ?  Auriez vous un autre logiciel à me conseiller ?  Merci pour votre réponse. 
    • (gile)
      Objet en avant ou en arrière plan

      Par (gile) · Posté(e)

      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))  
    • (gile)
      Objet en avant ou en arrière plan

      Par (gile) · Posté(e)

      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) )  
    • didier
      Multi-Axe et tabulations

      Par didier · Posté(e)

      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
    • didier
      Attribut dans une côte dans un bloc dynamique

      Par didier · Posté(e)

      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

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