CRÉATION BOUTON NUAGE DE RÉVISION

[emaill]

Bonjour,

 

j'ai créé une nouvelle barre d'outil et j'y ai ajouté une commande pour faire des nuages de révision. Voici ce que j'aimerais que ma commande effectue comme travail:

 

1- CRÉER UN NOUVEAU CALQUE _REV1_NUAGE ET LE METTRE COURANT.

2- CRÉER UNE POLYLIGNE AU NOMBRE D'ARRÊTE INDÉTERMINER ET FERMER DANS L'ESPACE PAPIER

3- AVEC LA COMMANDE NUAGE, LONGUEUR DE L'ARC DE 8 mm ET UTILISÉ LA POLYLIGNE COMME OBJET À CONVERTIR EN NUAGE

4- CRÉER UN NOUVEAU CALQUE _REV1_TRIANGLE ET LE METTRE COURANT.

5- DÉSACTIVER LES OBJETS D'ACCROCHAGE (OSNAP)

 

6- INSÉRÉ UN BLOC ATTRIBUT "TRIANGLE_DE_REVISION.DWG" AVEC JUSTIFICATION DE L'EMPLACEMENT PAR L'UTILISATEUR

À L'ÉCHELLE DE 1 SANS ROTATION ET QUE LA VALEUR D'ATTRIBUT SOIT 1

7- ENVOYER LES OBJETS "NUAGE" ET TRIANGLE DE RÉVISION" DANS L'ESPACE OBJET AVEC LA COMMANDE "CHSPACE"

8- QUITTER LA FENÊTRE DONC LEQUEL LES OBJETS "NUAGE" ET "TRIANGLE DE RÉVISION" CE SONT INSÉRÉS ET METTRE

ACTIVER LA COMMANDE ESPACE PAPIER

9- FAIRE UN ZOOM ÉTENDU

FIN

 

MON BUT: C'est de créer des nuages de révision avec le triangle de révision coller à même ce nuage et je veux passé absolument par la commande objet pour que mes nuages soit bien droit et bien présenté.

 

Voici mon lisp qui bloc après l'insertion de mon bloc attribut. Quelqu'un peut m'aider SVP

 

(defun c:NUAGE ()

(Command "_LAYER" "N" "_REV1_NUAGE" "CH" "_REV1_NUAGE" "")

(command "_.pline"(while (not (zerop (getvar "cmdactive")))(command pause)))(command "pedit" (entlast) "C" "")

(command "_revcloud" "L" "8" "8" "O" "DERNIER" "")

(Command "_LAYER" "N" "_REV1_TRIANGLE" "CH" "_REV1_TRIANGLE" "")

(Command "_-OSNAP" "INACTIF" "")

(Command "-inserer" "C:/_REPERTOIRE_X/BLOCS/TRIANGLE_DE_REVISION.dwg" "E" "1" "R" "0")

(Command "_CHSPACE" "\\")

(Command "_PSPACE" "")

(Command "_ZOOM" "ET" "")

)

 

MERCI

ERIC

[Tramber]

Voici mon lisp qui bloc après l'insertion de mon bloc attribut. Quelqu'un peut m'aider SVP

 

Qui bloque !

Bon, tu peux, par exemple, passer la variable ATTREQ à 0 et te passer de répondre. Si c'est là que ça bloque, c'est que tu as bientôt fini ;)

 

Sujet déplacé. Souvent, le sous-forum Routines est utilisé, j'estime que c'est plutôt dans "Débuter en lisp qu'il faut publier"

Lire ici.