Add Prefix/Suffix to Multiple Dimensions?

[DELLA MAGGIORA YANN]

(defun AffixDim (fr préfixe suffixe / )
(entmod (list (cons -1 en) (cons 1 (strcat prefix « <> » suffixe))))
)

(defun SelectDimsAndAffix (suffixe de préfixe / ss n)
(if (setq ss (ssget '((0 . « *DIMENSION »))))
(progn
(setq n (sslength ss))
(while (>= (setq n (1- n)) 0)
(AffixDim (ssname ss n) suffixe de préfixe)
     )
   )
 )
)

(defun c :PrefixDim-2X (/) (SelectDimsAndAffix « 2X » «  ») (princ))
(defun c :PrefixDim-9X (/) (SelectDimsAndAffix « 9X » «  ») (princ))

(defun c :AffixDim (/ suffixe de préfixe)
(ou *Préfixe AffixDim* (setq *Préfixe Dim* «  »))
(ou *Suffixe Dim* (setq *Suffixe Dim* «  »))
(if (et (préfixe setq (getstring t (strcat « Préfixe (. for None) < » *AffixDim-Prefix* « > : « )))
(not (eq prefix «  »))
)
(progn
(if (eq prefix « . »)
(setq prefix «  »)
)
(setq *AffixDim-Prefix* préfixe)
) (
setq prefix *AffixDim-Prefix*)
)
(if (and (setq suffix (getstring t (strcat « Suffixe (. for None) < » *AffixDim-Suffix* « > : « )))
(not (eq prefix «  »))
) (
progn
(if (eq suffixe « . »)
(suffixe setq «  »)
)
(suffixe setq *AffixDim-Suffix*)
)
(suffixe setq *Suffixe Dim*)
)
(Suffixe de préfixe SelectDimsAndAffx)
(princ)
)

 

Edited March 27 by SLW210
Added Code Tags!!

[DELLA MAGGIORA YANN]

Il y a 6 minutes, pkenewell a dit :

Je viens de tester le code et il fonctionne bien pour moi sans aucune altération. Si vous l’avez modifié d’une manière ou d’une autre, publiez le code complet que vous utilisez, ainsi qu’un exemple de dessin où cela ne fonctionne pas, en pointant vers une dimension que vous essayez de modifier.

 

Je viens de tester le code et il fonctionne correctement pour moi sans aucune altération. Si vous l’avez modifié de quelque manière que ce soit, publiez le code complet que vous utilisez, ainsi qu’un exemple de dessin dans lequel il ne fonctionne pas, en pointant vers une dimension que vous essayez de modifier.

 

AffixDim2.LSP

[pkenewell]

@DELLA MAGGIORA YANN Please correct you post above to place the code in code tags. I also asked for an example drawing.

[pkenewell]

@DELLA MAGGIORA YANN ton code est complètement corrompu ! Il semble que vous ayez essayé de l'exécuter via un traducteur et que tout le code ait été modifié. Voici une copie avec uniquement les invites traduites en français :

(defun AffixDim (en prefix suffix / )
   (entmod (list (cons -1 en) (cons 1 (strcat prefix "<>" suffix))))
)

(defun SelectDimsAndAffix (prefix suffix / ss n)
   (if (setq ss (ssget '((0 . "*DIMENSION"))))
      (progn
         (setq n (sslength ss))
         (while (>= (setq n (1- n)) 0)
            (AffixDim (ssname ss n) prefix suffix)
         )
      )
   )
)

(defun c:PrefixDim-2X (/) (SelectDimsAndAffix "2X" "") (princ))
(defun c:PrefixDim-9X (/) (SelectDimsAndAffix "9X" "") (princ))

(defun c:AffixDim (/ prefix suffix)
   (or *AffixDim-Prefix* (setq *AffixDim-Prefix* ""))
   (or *AffixDim-Suffix* (setq *AffixDim-Suffix* ""))
   (if (and (setq prefix (getstring t (strcat "Entrez un préfixe ou (. pour Aucun) <" *AffixDim-Prefix* ">: ")))
          (not (eq prefix ""))
       )
      (progn
         (if (eq prefix ".")
            (setq prefix "")
         )
         (setq *AffixDim-Prefix* prefix)
      )
      (setq prefix *AffixDim-Prefix*)
   )
   (if (and (setq suffix (getstring t (strcat "Entrez un suffixe ou (. pour Aucun) <" *AffixDim-Suffix* ">: ")))
         (not (eq prefix ""))
       )
      (progn
         (if (eq suffix ".")
            (setq suffix "")
         )
         (setq *AffixDim-Suffix* suffix)
      )
      (setq suffix *AffixDim-Suffix*)
   )
   (SelectDimsAndAffix prefix suffix)
   (princ)
)

 

[DELLA MAGGIORA YANN]

8 minutes ago, pkenewell said:

@DELLA MAGGIORA YANN Please correct you post above to place the code in code tags. I also asked for an example drawing.

Good morning,
sorry I don't know what I did wrong.
I don't really know where to post my message.
attached the lisp in question and an example of what I want in the dwg

AffixDim2.LSP AFFIXDIM TEST.dwg

[pkenewell]

@DELLA MAGGIORA YANNIl semble que votre deuxième message du fichier ci-joint soit correct, je ne peux donc pas vous dire ce qui ne va pas. Comme je vous l'ai dit, veuillez envoyer un exemple de fichier DWG avec les dimensions que vous essayez de modifier.

[DELLA MAGGIORA YANN]

6 minutes ago, pkenewell said:

@DELLA MAGGIORA YANN ton code est complètement corrompu ! Il semble que vous ayez essayé de l'exécuter via un traducteur et que tout le code ait été modifié. Voici une copie avec uniquement les invites traduites en français :

(defun AffixDim (en prefix suffix / )
   (entmod (list (cons -1 en) (cons 1 (strcat prefix "<>" suffix))))
)

(defun SelectDimsAndAffix (prefix suffix / ss n)
   (if (setq ss (ssget '((0 . "*DIMENSION"))))
      (progn
         (setq n (sslength ss))
         (while (>= (setq n (1- n)) 0)
            (AffixDim (ssname ss n) prefix suffix)
         )
      )
   )
)

(defun c:PrefixDim-2X (/) (SelectDimsAndAffix "2X" "") (princ))
(defun c:PrefixDim-9X (/) (SelectDimsAndAffix "9X" "") (princ))

(defun c:AffixDim (/ prefix suffix)
   (or *AffixDim-Prefix* (setq *AffixDim-Prefix* ""))
   (or *AffixDim-Suffix* (setq *AffixDim-Suffix* ""))
   (if (and (setq prefix (getstring t (strcat "Entrez un préfixe ou (. pour Aucun) <" *AffixDim-Prefix* ">: ")))
          (not (eq prefix ""))
       )
      (progn
         (if (eq prefix ".")
            (setq prefix "")
         )
         (setq *AffixDim-Prefix* prefix)
      )
      (setq prefix *AffixDim-Prefix*)
   )
   (if (and (setq suffix (getstring t (strcat "Entrez un suffixe ou (. pour Aucun) <" *AffixDim-Suffix* ">: ")))
         (not (eq prefix ""))
       )
      (progn
         (if (eq suffix ".")
            (setq suffix "")
         )
         (setq *AffixDim-Suffix* suffix)
      )
      (setq suffix *AffixDim-Suffix*)
   )
   (SelectDimsAndAffix prefix suffix)
   (princ)
)

 

sorry I copied your code identically but it still doesn't work
maybe this comes from the fact that I have Bricscad 2024 French???

[DELLA MAGGIORA YANN]

6 minutes ago, pkenewell said:

@DELLA MAGGIORA YANNIl semble que votre deuxième message du fichier ci-joint soit correct, je ne peux donc pas vous dire ce qui ne va pas. Comme je vous l'ai dit, veuillez envoyer un exemple de fichier DWG avec les dimensions que vous essayez de modifier.

I put them in the previous message

[pkenewell]

@DELLA MAGGIORA YANN I don't know what to tell you. It works correctly for me with your sample drawing. It may have something to do with using BricsCAD but I don't know what would be different.

[DELLA MAGGIORA YANN]

4 minutes ago, pkenewell said:

@DELLA MAGGIORA YANN Je ne sais pas quoi vous dire. Cela fonctionne correctement pour moi avec votre exemple de dessin. Cela a peut-être quelque chose à voir avec l’utilisation de BricsCAD, mais je ne sais pas ce qui serait différent.

Thanks anyway, I will find another solution.
Good day to you