convertir des objets ##### en lignes de repères multiples

[philsogood]

hello

connaissez vous un moyen pour convertir un texte accompagné d'une flèche en une ligne de repères multiples?

j'ai un fichier qui foisonnent de ce type d'objets qui sont, disons le, de la ###### pas très commode à utiliser...

je vous ai joint un spécimen pour que vous puissiez le disséquer au besoin... si ça se trouve ya même une commande native!! =.)

(dans un mode parfait, le texte serait à la même palce et la flèche aussi)

Phil

nouveau fichier bloc.dwg

[Curlygoth]

Citation

connaissez vous un moyen pour convertir un texte accompagné d'une flèche en une ligne de repères multiples?

En natif je sais pas...

tu peux creer un style de ligne de repere multiple

moi ferais de la prog :

1°) Selection du texte

2°) Sélection de la fleche

3°) Création de la ligne de repère multiple et suppression du texte et de la fleche

[Luna]

Coucou,

Je ne pense pas qu'en natif les équipes de dev' d'AutoCAD est prévu ce genre de pratiques barbares...
Pour la programmation, la question est surtout : de combien d'objets parle-t-on ? Si on en a 4-5 on peut demander à l'utilisateur de faire la sélection des objets lui-même mais si on en a une centaine...il faudra faire en sorte de faire la sélection des objets en automatique (et avec les bonnes flèches...)

Bisous,
Luna

[lecrabe]

Hello

Et si tu essayais le Lisp joint !? ... Lisp tire de mon stock de 3001 routines ...

Ce Lisp traite UNE chose a la fois : Choix de la Fleche de rappel puis Choix du texte

La Sante, Bye, lecrabe

 

;;; 
;;; http://forums.autodesk.com/t5/autocad-2013-2014-2015/mtext-to-multileaders/td-p/5336487
;;; 
;;; CADALYST 08/08 www.cadalyst.com/code
;;; Tip 2305: LeaderToMleader.lsp Leader to Multileader (c) 2008 Lyle Hardin
;;; Pick an old style Leader and Text to create a NEW Mleader entity and erase the old leader and text.
;;; March 2008 
;;; 
;;; Please run L2ML in Model Space 
;;; 
 
(prompt "\n LeaderToMleader.lsp loaded.... Enter L2ML to run ") 

(defun c:L2ML ()

(setq leader (entsel "\nPick Leader ")  ; pick leader
leader2 (entget (car leader))
pt1 (dxf 10 leader2)            ; get first point of leader
layer (dxf 8 leader2)           ; get layer of leader

mtext (entsel "\nPick Text ")   ; pick text
mtext2 (entget (car mtext))
pt2 (dxf 10 mtext2)             ; get point of text
text (dxf 1 mtext2)             ; get
)                               ; setq

(command "_-layer" "_s" layer "") ; set layer of leader picked to current
(command "_mleader" pt1 pt2 text)  ; start mleader command 

(COMMAND "_ERASE" mtext "")   ; erase text picked
(command "_erase" leader "")  ; erase leader picked

) ; defun


(defun dxf(code elist)    ; define dxf function
(cdr (assoc code elist))  ; Finds the association pair, strips 1st element
)                         ; defun

 

[philsogood]

Hello

J'ai 83 paires d'objets, ça a l'air super ton truc lecrabe mais j'ai pas osé mettre les doigts dedans !! (186 clics !!) :.)

Phil

[philsogood]

hop hop hop.... rectificatif.... j ai fait le truc à la mano... c'est un peu long mais vu le bordel que c'était avec les autres entités,

je suis content quand même!!

merci le crabe, Phil

[philsogood]

@lecrabe ce qui serait intéressant ça serait de savoir comment tu as fait pour ranger tout tes Lisps et t'y retrouver

[lecrabe]

Hello

Donc tu as utilise "ma" routine avec les 186 CLICs !?

La Sante, Bye, lecrabe

 

[sylarr]

Le 23/11/2021 à 10:38, lecrabe a dit :

Hello

Et si tu essayais le Lisp joint !? ... Lisp tire de mon stock de 3001 routines ...

Ce Lisp traite UNE chose a la fois : Choix de la Fleche de rappel puis Choix du texte

La Sante, Bye, lecrabe

 

;;; 
;;; http://forums.autodesk.com/t5/autocad-2013-2014-2015/mtext-to-multileaders/td-p/5336487
;;; 
;;; CADALYST 08/08 www.cadalyst.com/code
;;; Tip 2305: LeaderToMleader.lsp Leader to Multileader (c) 2008 Lyle Hardin
;;; Pick an old style Leader and Text to create a NEW Mleader entity and erase the old leader and text.
;;; March 2008 
;;; 
;;; Please run L2ML in Model Space 
;;; 
 
(prompt "\n LeaderToMleader.lsp loaded.... Enter L2ML to run ") 

(defun c:L2ML ()

(setq leader (entsel "\nPick Leader ")  ; pick leader
leader2 (entget (car leader))
pt1 (dxf 10 leader2)            ; get first point of leader
layer (dxf 8 leader2)           ; get layer of leader

mtext (entsel "\nPick Text ")   ; pick text
mtext2 (entget (car mtext))
pt2 (dxf 10 mtext2)             ; get point of text
text (dxf 1 mtext2)             ; get
)                               ; setq

(command "_-layer" "_s" layer "") ; set layer of leader picked to current
(command "_mleader" pt1 pt2 text)  ; start mleader command 

(COMMAND "_ERASE" mtext "")   ; erase text picked
(command "_erase" leader "")  ; erase leader picked

) ; defun


(defun dxf(code elist)    ; define dxf function
(cdr (assoc code elist))  ; Finds the association pair, strips 1st element
)                         ; defun

 

 

Hello @lecrabe, je ressuscite ce sujet pour te dire merci beaucoup pour ton Lisp.

J'ai aussi une petite question peut-être néophyte, est-il possible de conserver la taille du texte initial (avant fusion avec la ligne) ?

Est-ce qu'il faut regarder dans les styles de ligne de repère multiple avant de faire le Lisp plutôt ?  

 

Edit : Il semblerait que aujourd'hui mon Autocad ne veut pas faire marcher le lisp car il me positionne la ligne de repère multiple assez loin du dessin.