TotalArea.lsp sous LT

[pointpower]

Bonsoir,

 

Je souhaiterais utiliser ce lisp sous autocad 2009 LT mais visiblement il ne prend que des scripts.

 

Svp auriez-vous une solution (conversion de ce lisp en script). Ce lisp permet de faire des sum de surfaces (hachures, polygones mais aussi des métrés lignes, polylignes...).

 

Merci mille fois d'avance.

 

A bientôt

[(gile)]

Salut,

 

Je suis désolé de te décevoir, mais je ne pense pas que TotalArea (ou TotalPerim) ne soit portable en script.

Un script ne permet que d'appeler des commandes natives, TotalArea est un vrai programme qui utilise des boites de dialogue, des réacteurs pour faire faire à AutoCAD ce qu'il ne fait pas nativement.

 

Pour moi, la différence majeure, avec le prix, entre les version LT et les versions pleines est bien cette possibilité d'utiliser des applicatifs écrits dans de vrais langages de programmation.

[pointpower]

Merci pour ta réponse,

 

Ai-je une autre solution pour y arriver?

 

A+

[Carboleum]

Vas voir du coté de LT extender (demandes à google ;-)

Je sais pas ce que ca vaut mais c'est la seule solution semble-il.

 

Sinon, tu as toujours ZW-CAD qui est beaucoup moins cher que AutoCAD.

Est-ce que TotalAera tourne dessus ? J'ai un doute: TotalAera fonctionne avec des réacteurs, ceux-ci ne sont pas encore pas être implémentés dans zwcad.

 

C'est pas gagné!

[FormaBois]

Salut,

c'est faisable avec 3 macros à lancer successivement.

C'est Bonuscad qui les avaient partagés sur un forum, il suffit de faire une petite recherche...

Je viens de retrouver le sujet ici

[Carboleum]

 

le sujet ici

 

joli!

[pointpower]

Re,

 

Mais les macros sont pour des métrés et pas des aires non?

 

Svp comment je fais fonctionner les macros (il faut les rentrer une par une dans la ligne de commande?)

 

Merci

[FormaBois]

Svp comment je fais fonctionner les macros (il faut les rentrer une par une dans la ligne de commande?) Merci

 

Il faut les associer à un bouton de commande (une icône)

Pour répondre à la 1ère question il y a les 2 : aire et longueur

[pointpower]

Re,

 

Dsl mais je sais pas comment associer les boutons et créer un icône. Stp peux-tu m'expliquer

 

A+

[FormaBois]

Salut,

taper CUI

1. Dans la rubrique Liste des commandes (en bas à G) Clic D "Nouvelle commande"

2. Dans la rubrique Propriétés (en bas à D) sélectionner la ligne Macro > cliquer le bouton et coller le texte de la macro. Attention dans le copier/coller à ne pas laisser d'espaces dans le code.

3. Associer une image/icône, rubrique Icône de bouton

4. Sélectionner et glisser la nouvelle commande dans une barre d'outil

 

Il est préférable de créer une nouvelle barre d'outil pour y glisser ces nouvelles commandes, rubrique Personnalisations dans Tous les fichiers CUI, ligne "Barres d'outils" ou "Menus" ou "Onglets de ruban" suivant ton utilisation

@+

[pointpower]

Merci,

 

je vais tester.

 

A+

[pointpower]

Re,

 

j'ai bien crée le bouton mais y'a un souci (je sais pas si j'ai pas fait une connerie, j'ai mis chaque macro sur une ligne donc saut de ligne entre chaque macro....), il me demande le premier coin du texte, l'angle de rotation ensuite sélectionner les objets, je sélectionne de zone de hachures et là il me parle de longueur. résultat dans le texte j'ai 0 et en-dessous un chiffre qui correspond pas à l'aire.

 

Svp, besoin d'aide j'ai pas compris, dsl.

[FormaBois]

Il faut créer 3 boutons pour les 3 macros, voir le lien que j'ai donné plus haut

...As-tu bien lu toutes les réponses faites sur ce sujet ?

- 1er bouton d'initialisation pour commencer, ou faire une nouvelle somme

- 2ème bouton pour le calcul. Macro répétée indéfiniment jusqu'à l'appui de la touche ESC ou sélection du 3ème bouton

- 3ème bouton pour le total

Le premier bouton pose le texte "Récapitulatif", le 2ème donne les surfaces suite à la sélection des objets (Polylignes fermées ou éventuellement hachures) et le 3ème donne la somme.

[bryce]

Bonjour,

 

Il ne faut pas coller les 3 macros dans le même bouton.

Il faut créer un bouton pour chaque macro. ;)

[pointpower]

Re

 

Ok mais tu lance comment après?

[FormaBois]

C'est le point 4 de mon post du 11 octobre ...si tu utilises les barres d'outils.

Pour insérer sur le ruban c'est un peu plus compliqué.

Mais tu peux très bien créer et sortir une barre d'outils à droite ou à gauche dans un espace de travail avec le ruban

[pointpower]

Re,

 

J'ai réussi à créer les boutons, j'en ai mis 4 (macro1,2 2bis et 3)

 

Par contre ça marche pas, ça calcule des longueur et pas des aires.

 

Sinon je me demandais comment on peut associer ces macros avec une sélection rapide d'objets, ce serait pratique non?

 

Merci

[FormaBois]

C'est la différence entre 2 et 2bis

Une est dédié à cumuler des longueurs d'objet fermés et l'autre des longueurs d'objets non fermés

Donc utiliser 1 - 2 - 3

ou bien 1 - 2bis - 3

Après il est possible d'adapter, bon développement et bon courage

[pointpower]

Merci, c'est sympa.

 

Dsl pour les questions mais je ne fais pas de prog, j'aimerais bien apprendre. Par contre j'ai mis un autre message pour le type de ligne talus avec barbules si vous avez une idée?

 

Merci.

 

A+

[pointpower]

Re,

 

Je confirme, ça ne fonctionne pas, je prends des hachures total 0, j'ai aussi essayé avec des contours genre polyligne idem.

 

Par contre les longueurs marchent bien.

 

A+

[FormaBois]

Idem, explique exactement la procédure que tu utilises

[rebcao]

Bonjour,

 

Tu peux regarder ce sujet...

 

 

Christian

[pointpower]

Re,

 

Si j'ai bien compris il me faut qu'une macro, la macro complète que tu a donné (la macro qui est complètement indigeste..., dsl j'ai pas pu faire de copier coller comme c'est une image.

 

Merci

[FormaBois]

Je confirme, ça ne fonctionne pas, je prends des hachures total 0, j'ai aussi essayé avec les contours genre polyligne idem.

 

*^C^C_.area;_object;\userr1;$M=$(+,$(getvar,userr1),$(getvar,perimeter));_.text;;$(rtos,$(getvar,perimeter),2,2);

Essais effectués sur un 2011 complète. Voici le déroulement en zone de commande.

On voit bien qu'après la cd _.area les valeurs Aire et Périmètre s'affichent, mais userr1 prend la dernière qui est périmètre, et là franchement je ne sais pas aller plus loin :(

Commande: _.userr1

Entrez une nouvelle valeur pour USERR1 <224.1892>: 0.0

Commande: _.text

Style de texte courant:  "Arial"  Hauteur de texte:  2.5000  Annotatif:  Non
Spécifiez le point de départ du texte ou [Justifier/Style]: _justify
Entrez une option 
[Aligne/Fixé/Centre/Milieu/Droite/HG/HC/HD/MG/MC/MD/BG/BC/BD]: _right

Spécifiez l'extrémité droite de la ligne de base du texte:
Spécifiez la hauteur <2.5000>:

Spécifiez l'angle de rotation du texte <0>: 0.0

Entrez le texte: Récapitulatif

Commande:
Commande:
Commande: _.area

Spécifiez le premier coin ou [Objet/Ajouter une aire/Soustraire une aire] 
<Objet>: _object

Choix des objets:

Aire = 300.6225, Périmètre = 73.5723
Commande: userr1

Entrez une nouvelle valeur pour USERR1 <0.0000>: 73.57234327

Commande: _.text

Style de texte courant:  "Arial"  Hauteur de texte:  2.5000  Annotatif:  Non
Spécifiez le point de départ du texte ou [Justifier/Style]:

Entrez le texte: 73.57

Commande:
Commande:
Commande: _.area

Spécifiez le premier coin ou [Objet/Ajouter une aire/Soustraire une aire] 
<Objet>: _object

Choix des objets:

Aire = 125.1455, Périmètre = 46.9071
Commande: userr1

Entrez une nouvelle valeur pour USERR1 <73.5723>: 120.47940805

Commande: _.text

Style de texte courant:  "Arial"  Hauteur de texte:  2.5000  Annotatif:  Non
Spécifiez le point de départ du texte ou [Justifier/Style]:

Entrez le texte: 46.91

Commande:
Commande:
Commande: _.area

Spécifiez le premier coin ou [Objet/Ajouter une aire/Soustraire une aire] 
<Objet>: _object

Choix des objets: *Annuler*

Commande:
Commande: _.text

Style de texte courant:  "Arial"  Hauteur de texte:  2.5000  Annotatif:  Non
Spécifiez le point de départ du texte ou [Justifier/Style]:

Entrez le texte: Total=120.48

[pointpower]

Re,

 

Svp, quelqu'un a t il une correction de la 2ieme macro censée donner des aires....

 

Merci