blog

Utilisation du programme AutoLISP pour étiqueter les coordonnées du point

étiqueter

J’ai publié un conseil AutoCAD sur la façon de créer vos propres coordonnées d’étiquette dans AutoCAD à l’aide d’attributs de bloc. C’est bien que vous puissiez créer votre propre bloc, créer vos propres formes de bloc et le personnaliser pour qu’il ressemble à tout ce que vous voulez.

Mais il y a une limite. Il ne reconnaîtra que la position du point à partir des coordonnées globales. Si vous déplacez le SCU, il utilisera toujours les coordonnées globales. Cela a du sens, car si nous voulons étiqueter nos coordonnées, nous utilisons généralement des coordonnées globales. Mais que se passe-t-il si vous souhaitez étiqueter les coordonnées du SCU ?

Parce que j’apprends actuellement AutoLISP, j’ai décidé de prendre comme défi de créer un programme pour le faire. Vous pouvez télécharger le fichier dans le lien que vous trouverez sous cet article.

Comment utiliser le programme ?

  • Télécharger le fichier LISP
  • Chargez le programme LISP. Il existe plusieurs manières de charger le programme AutoLISP, mais c’est la manière la plus simple.
  • J’ai écrit le code à exécuter lorsque je tape LB puis [enter]. Vous devriez pouvoir l’utiliser après avoir chargé le programme.
  • Vous devez cliquer deux fois : le point que vous souhaitez étiqueter et l’emplacement de l’étiquette.
  • Il utilisera la commande leader. Alors s’il est trop grand, trop petit, ou si vous souhaitez le personnaliser, changez de style.
  • Il utilise également les paramètres UNITS du fichier. Si vous souhaitez modifier le format au format décimal ou architectural, modifiez-le dans les paramètres UNITS.
  • Le programme continuera à vous demander des points jusqu’à ce que vous appuyiez sur [esc] ou [enter]. Je décide de le faire de cette façon parce que la plupart du temps, nous voulons créer plusieurs étiquettes à la fois. Vous n’avez donc pas besoin de le réactiver après avoir étiqueté un point.
  • A lire :  Modification des objets de dessin AutoCAD

    Si vous suivez le didacticiel AutoLISP dans CAD Notes, soyez patient ! Nous allons y arriver. Voici le code.

    ; Étiquetage automatique des coordonnées
    ; Edwin Prakoso
    ; https://www.cad-notes.com
    ;
    ; Limitation
    ; ———-
    ; Utilisera le style de ligne de repère actuel et le paramètre d’unités actuel

    (defun c:lb (/pxy ptcoord textloc)
    (tandis que
    (setq p (getpoint « 
    Choisir le point: « ))
    (setq textloc (getpoint « 
    Choisissez l’emplacement de l’étiquette : « ))
    (setq x (rtos (voiture p)))
    (setq y (rtos (cadr p)))
    (setq z (rtos (caddr p)))
    (setq ptcoord (strcat x « ,  » y « ,  » z))
    (commande « _LEADER » p textloc «  » ptcoord «  »)
    )
    )

    Et si vous voulez simplement le télécharger et l’utiliser, téléchargez ce fichier. Il y a deux fichiers dans le fichier zip.

  • LB.lsp est pour les coordonnées d’étiquetage (X et Y uniquement)
  • LBZ.lsp est pour les coordonnées d’étiquetage (X, Y et Z)
  • Profitez du LISP et partagez-le avec vos amis !

    Notes : Après avoir écrit ceci, je me rends compte que Shawki abo zeed a publié un code similaire dans l’étiquetage des conseils de coordonnées. Il semble qu’il a plus de fonctionnalités. Si celui-ci ne fonctionne pas correctement, vous pouvez également essayer son code. Merci à Shawki !

    .

    Bouton retour en haut de la page