-
Qui est en ligne 9 membres, 0 anonyme, 149 invités (Afficher la liste complète)
Routines LISP
Postez ici vos routines LISP. Une routine est du code court destiné à être réutilisé. Par exemple, un programme mettant à jour la valeur d'un attribut de bloc est une routine. Ne postez pas d'applications ici!
1 364 sujets dans ce forum
-
- 6 réponses
- 3,3 k vues
-
- 1 réponse
- 2,1 k vues
-
- 2 réponses
- 1,7 k vues
-
- 10 réponses
- 3,6 k vues
-
- 12 réponses
- 2,4 k vues
-
- 5 réponses
- 4 k vues
-
- 1 réponse
- 1,9 k vues
-
- 35 réponses
- 4,9 k vues
-
- 4 réponses
- 1,9 k vues
-
- 0 réponse
- 1,6 k vues
-
- 5 réponses
- 1,9 k vues
-
- 12 réponses
- 2,9 k vues
-
- 6 réponses
- 6,3 k vues
-
- 2 réponses
- 2,3 k vues
-
- 2 réponses
- 2,1 k vues
-
- 0 réponse
- 1,3 k vues
-
- 5 réponses
- 2,5 k vues
-
- 1 réponse
- 1,8 k vues
-
- 6 réponses
- 5,9 k vues
-
- 1 réponse
- 7,5 k vues
-
- 14 réponses
- 2,6 k vues
-
- 2 réponses
- 1,9 k vues
-
- 6 réponses
- 2,7 k vues
-
- 2 réponses
- 3,2 k vues
-
- 21 réponses
- 5 k vues
-
Statistiques des forums
-
Total des sujets49,3 k
-
Total des messages298,9 k
-
-
Sujets
-
-
Messages
-
En passant par chr, ça pourrait peut-être fonctionner ? Source : https://www.da-code.fr/chr/ -
Par Déméter_33 · Posté(e)
Bonjour, Dans une routine assez imposante de fusion d'un fichier natif dans un modèle pré-paramétré, je cherche à transformer l'apparence et la composition de certains "TEXT" en éléments "MTEXT" avec l'insertion de préfixes et suffixes composés de caractères unicodes , ◄ en préfixes et ► en suffixes. Pour cela, j'ai adapté un morceau de LISP (PTX-STX) trouvé sur ce même forum, mais dans lequel je n'arrive pas à paramétrer les caractères UNICODE, même en les entrants manuellement. (defun TextDp1b2Mtext (/ doc ent Pref Suff) (setq TDPsel (ssget "X" '((0 . "TEXT") (8 . "Sectionnement_PlotsAnno")))) (vl-load-com) (setq doc (vla-get-activedocument (vlax-get-acad-object))) (vla-startundomark doc) (setq Pref (getstring "\Entrer alt+17")) ;Définition du préfixe manuelle (setq Suff (getstring "\Entrer alt+16")) ;Définition du suffixe manuelle (while (< i (sslength TDPsel)) (setq ent (vlax-ename->vla-object (ssname TDPsel i))) (vla-put-textstring ent (strcat Pref (vla-get-textstring ent) Suff)) (setq i (1+ i)) ) (vla-endundomark doc) (setq Setlen (sslength TDPsel) Count 0 ) (repeat SetLen (setq Ntxt (ssname TDPsel Count)) (command "_txt2mtxt" Ntxt "") (setq jsF (ssadd (entlast)) NMtxt (entlast)) (setq dxf_ent (entget NMtxt)) (entmod (append dxf_ent (list (cons 90 19) ;Encadrement (cons 8 "G-ANNOTATIONS") ;Calque (cons 40 0.15) ;Hauteur de texte (cons 45 1.2) ;Bordure (cons 441 0) ;Echelle (cons 41 1.4) ;Largeur ) ) ) (setq Count (+ 1 Count)) ) (princ) ) Le résultat du code joint me donne bien l'apparence désirée mais n'insère pas les caractères demandés. Help me please. -
-
Par MalabarMalade · Posté(e)
Messieurs, Mesdames D'abord, la bonne journée à tous puis mes remerciement pour ce forum. Je viens de prendre un poste en MO pour réaliser des avants projets de stations services PL. On a un Delta de 2m entre l'alti de la route d'accès et celui du terrain ciblé. Le PL aura donc une pente et un virage pour accéder au niveau où se situe les pompes. Ce cas me questionne. Selon mon hypothèse. En remblayant d'un mètre, j'obtiens un accès comme suit: niveau de la route d'accès, 10m à 3% de pente, 13.5 m à 6%, 10m à 3%, puis 5m à 1%. Comment puis évaluer le risque de renversement des semis-remorques? Lorsque virage il y a ? Connaissez vous des outils qui pourraient m'aider? Vous remerciant -
Bonjour, tu peux retrouver les termes bloc de gauche entre autre dans les guides du CEREMA sur les VSA90/110 par exemple la notion de bloc permet de faire varier les bdg et voie tout en gardant une largeur minimale Eric
-
-
Sujets
-
