-
Notifications
You must be signed in to change notification settings - Fork 1
/
ktexte_changer_style_et_hauteur.lsp
79 lines (69 loc) · 2.58 KB
/
ktexte_changer_style_et_hauteur.lsp
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
(defun C:ktexte_changer_style_et_hauteur ()
;; commande qui changer le style et la hauteur de textmult forcé (hauteur et police forcées)
(setq
style "arial"
hauteur 2.58
)
(princ "\nSelectionnez les objets a traiter:")
(setq
ss (ssget) ;; creation du jeu de selection ss avec tout les objets à traiter
i1 0 ;; compteur
)
;; test de la selection d'objet
(if (= nil ss)
(progn
(print "\nPas d'objets sélectionnés, sortie du programme")
(quit)
)
(print "\nObjets selectionnés, suite du programme")
)
;; création de la liste de textmult
(setq ssmtext (ssadd) ;; creation d'une variable qui appelle un groupe d'entité nil
i2 0 ;; compteur
)
;; boucle de tri pour séparer les blocs et les polylignes
(repeat (sslength ss)
(setq ent (ssname ss i1)) ;; définir l'entité à tester
(setq lstdxf (entget ent)) ;; lui extraire ses données DXf pour pouvoir tester
(setq enttype (cdr (assoc 0 lstdxf))) ;; extrait le type d'objet de l'entité
(if (= enttype "MTEXT")
(ssadd ent ssmtext) ;; si c'est un block, l'entitée est ajoutée à la liste de block
)
(setq i1 (1+ i1))
)
;; test de la liste
(if (= ssmtext nil)
(progn
(print "\nPas de textmult sélectionnées, sortie du programme")
(quit)
)
(print "\nTextmult existants, suite du programme")
)
;; boucle pour tout les textmult
(repeat (sslength ssmtext)
(setq ent (ssname ss i2)) ;; définir l'entité à tester
(princ ent)
(setq lstdxf (entget ent)) ;; lui extraire ses données DXf pour pouvoir tester
(setq entindex (cdr (assoc 1 lstdxf))) ;; extrait l'index du texte
(setq longueur_texte (strlen entindex)) ;; longueur du texte
(if
(and
(not (= (vl-string-position (ascii ";") entindex nil T) nil))
(not (= 0 (strlen entindex)))
(not (= nil (strlen entindex)))
)
(progn
(setq position_caractère (vl-string-position (ascii ";") entindex nil T)) ;; recherche le dernier ";" dans le texte
(setq longueur_subtexte (- longueur_texte position_caractère 1)) ;; longeur du texte final
(setq texte_final (substr entindex (+ position_caractère 2) longueur_subtexte)) ;; création du sous-texte
(setq lstdxf (subst (cons 1 texte_final) (assoc 1 lstdxf) lstdxf))
)
)
(setq lstdxf (subst (cons 40 hauteur) (assoc 40 lstdxf) lstdxf))
(setq lstdxf (subst (cons 7 style) (assoc 7 lstdxf) lstdxf))
(setq lstdxf (subst (cons 43 hauteur) (assoc 43 lstdxf) lstdxf))
(entmod lstdxf)
(princ ent)
(setq i2 (1+ i2))
)
)