Aller au contenu

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


philsogood

Messages recommandés

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

Projeteur Revit Indépendant - traitement des eaux/CVC

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

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

Lien vers le commentaire
Partager sur d’autres sites

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

 

Autodesk Expert Elite Team

Lien vers le commentaire
Partager sur d’autres sites

  • 8 mois après...
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.

 

Lien vers le commentaire
Partager sur d’autres sites

Invité
Répondre à ce sujet…

×   Collé en tant que texte enrichi.   Coller en tant que texte brut à la place

  Seulement 75 émoticônes maximum sont autorisées.

×   Votre lien a été automatiquement intégré.   Afficher plutôt comme un lien

×   Votre contenu précédent a été rétabli.   Vider l’éditeur

×   Vous ne pouvez pas directement coller des images. Envoyez-les depuis votre ordinateur ou insérez-les depuis une URL.

×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité