Aller au contenu

Créer des champs rapidement


Alexandre113

Messages recommandés

Bonjour à tous,

 

 

Je suis entrain de créer des schémas qui sont amené a changer. J’utilise la fonction "Champ" d'autocad (Insertion/Champ) afin que mes numérotations suivent automatiquement.

 

Je me suis aperçu que le "dialogue" d'autocad était toujours le même.

 

Exemple ci-dessous: (J'utilise la fonction champ puis objet, je choisi l'objet et enfin sont index)

 

%<\AcObjProp Object(%<\_ObjId 8796086055536>%).TextString \f "%tc1">%

%<\AcObjProp Object(%<\_ObjId 8796086055664>%).TextString \f "%tc1">%

%<\AcObjProp Object(%<\_ObjId 8796085999168>%).TextString \f "%tc1">%

 

 

Serai t'il possible de créer une LISP qui permettrai de choisi en un clic le texte ou l'attribut et de le créer en champ ?

 

 

Merci

Lien vers le commentaire
Partager sur d’autres sites

Salut,

 

Quelque chose comme ça ?

 

(defun c:TXT2FIELD (/ doc txt pt)
 (vl-load-com)
 (setq doc (vla-get-Activedocument (vlax-get-acad-object)))
 (if
   (and
     (setq txt (car (nentsel "\nSéléctionnez un texte ou un attribut: ")))
     (member (vla-get-ObjectName (setq txt (vlax-ename->vla-object txt)))
      '("AcDbAttribute" "AcDbMText" "AcDbText")
     )
   )
    (if (setq pt (getpoint "\nSpécifiez le point d'insertion : "))
      (vla-AddText
 (vla-get-Block (vla-get-ActiveLayout doc))
 (strcat
   "%<\\AcObjProp Object(%<\\_ObjId "
   (vla-GetObjectIdString (vla-get-Utility doc) txt :vlax-false)
   ">%).TextString \\f \"%tc1\">%"
 )
 (vlax-3d-point (trans pt 1 0))
 (getvar 'textsize)
      )
    )
   (prompt "\nSéléction no valide.")
 )
 (princ)
)

Gilles Chanteau - gileCAD -
Développements sur mesure pour AutoCAD
ADSK_Expert_Elite_Icon_S_Color_Blk_125.png

Lien vers le commentaire
Partager sur d’autres sites

Créer un compte ou se connecter pour commenter

Vous devez être membre afin de pouvoir déposer un commentaire

Créer un compte

Créez un compte sur notre communauté. C’est facile !

Créer un nouveau compte

Se connecter

Vous avez déjà un compte ? Connectez-vous ici.

Connectez-vous maintenant
×
×
  • 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é