-
Qui est en ligne 12 membres, 0 anonyme, 174 invités (Afficher la liste complète)
Pour aller plus loin en LISP
Vous avez déjà écrit des programmes LISP? Vous souhaitez vous perfectionner? Vous butez sur un problème de programmation? Les termes de DCL, ActiveX, réacteur, compilation ne vous sont pas inconnus? Ce forum est pour vous.
1 358 sujets dans ce forum
-
- 12 réponses
- 3,6 k vues
-
- Invité
-
- 9 réponses
- 5,4 k vues
-
- 9 réponses
- 3,5 k vues
-
- 7 réponses
- 7,2 k vues
-
- 7 réponses
- 6,4 k vues
-
- 0 réponse
- 1,5 k vues
-
- 5 réponses
- 3 k vues
-
- 5 réponses
- 3 k vues
-
- 6 réponses
- 3,1 k vues
-
- 8 réponses
- 3,5 k vues
-
- 3 réponses
- 2,5 k vues
-
- 9 réponses
- 3 k vues
-
- 6 réponses
- 3,1 k vues
-
- 8 réponses
- 3,1 k vues
-
- 6 réponses
- 3 k vues
-
- 1 réponse
- 2,3 k vues
-
- 7 réponses
- 3,1 k vues
-
- 6 réponses
- 3,5 k vues
-
- 7 réponses
- 3,1 k vues
-
- 0 réponse
- 1,8 k vues
-
- Invité
-
- 3 réponses
- 2,5 k vues
-
- 6 réponses
- 2,6 k vues
-
- 12 réponses
- 4,1 k vues
-
- Invité
-
- 4 réponses
- 7,6 k vues
-
- 0 réponse
- 1,9 k vues
-
- Invité
-
Statistiques des forums
-
Total des sujets49,3 k
-
Total des messages298,9 k
-
-
Sujets
-
-
Messages
-
Bonjour @Déméter_33 J'ai un peu utilisé le même principe, il n'y en a pas cent. Par contre, je change la police, Wingdings 3 en l'occurrence, les caractères t et u sont des triangles orientés. Voici le visuel : Voici le code : (setq ent (car (entsel))) (setq val (cdr (assoc 1 (entget ent)))) (entmod (subst (cons 1 (strcat "{\\fWingdings 3|b0|i0|c2|p18;t\\" "fArial|b0|i0|c0|p34;" val "\\fWingdings 3|b0|i0|c2|p18;u}") ) (assoc 1 (entget ent)) (entget ent) ) ) -
Bonjour Je souhaiterais savoir s'il était possible de récupérer l’information de la longueur d’un branchement du module assainissement Pour pouvoir l'intégrer dans une étiquette de regard de branchement J’ai essayé par les infos BIM mais sans succès -
Par Déméter_33 · Posté(e)
Pourtant, j'utilisais avant un autre LISP mais qui correspondait moins bien à mes besoins et qui lui fonctionne très bien avec ces caractères : ; Ajouter un morceau de texte (prefix) (defun c:ptx(/ doc ent tx1 tx2 txt) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (and (ssget (list (cons 0 "TEXT,MTEXT"))) (setq tx1 (getstring "\nTexte à ajouter : ")) (progn (vlax-for ent (setq sel (vla-get-activeselectionset doc)) (vla-put-textstring ent (strcat tx1 (vla-get-textstring ent))) ) (vla-delete sel) ) ) (vla-endundomark doc) (princ) ) Peut être faut-il que je pense mon code autrement en ajustant la commande de sélection de celui-ci ? -
Par Déméter_33 · Posté(e)
Bonjour @didier, L'élément de base : L'élément une fois converti : -
Bonjour @Déméter_33 Je ne suis pas sûr de bien comprendre. Est-il possible d'avoir un visuel du rendu souhaité en image ? Est-ce qu'on travaille bien avec du MTEXT, j'ai bien une idée, mais je voudrais voir ce rendu souhaité avant de répondre à côté si je me fourvoie. Amicalement
-
-
Sujets
-
