Interrompre une commande en LISP

[Arcasdk]

Bonjour, je souhaite interrompre une commande que j'ai lancé dans un lisp.

 

(command "_.insert" way "o") 

 

Voici ce qui m'intéresse, la suite de la commande ne m'est plus utile...

 

autocad attend la suite

 

(command "_.insert" way "o" [surligneur].....[/surligneur]) 

 

J'ai essayé le ^C^C mais sans succés.... :casstet:

 

Merci

[vinz34]

Salut,

 

Tout d'abord tu dois donner le nom de ton bloc entre guillemets :

 

(command "_.insert" "way" "o")

 

Si tu t'arrêtes ici autocad te rend la main.

 

Sinon tu écris pause pour chaque saisie utilisateur souhaitée.

 

 

[Arcasdk]

Merci Vinz34 pour ta réponse,

 

Way est une variable, je ne suis pas certain qu'il me faille des guillemets.

 

Et bien qu'Autocad devrait me rendre la main, il attend malgré tout que je le lui spécifie un point d'insertion.

 

...

 

Merci

[bseb67]

Salut,

 

Pourquoi tu veux arreter la commande?

sinon donne 0,0,0 comme point d'insertion, et faut juste mettre attdia à 0 et attreq à 0 pour les valeurs par défaut dans les attributs

 

[Arcasdk]

Bonjour Bseb67, en fait je travaille sur un plan d'ensemble qui n'est constitué que de bloc.

 

J'ai apporté plusieurs modifications aux plans de détail de certaines pièce dont j'ai créer les blocs des 3 vues. (côté, dessus, face)

 

Maintenant pour mettre à jour mon plan d'ensemble, il me faut redéfinir mes blocs.

 

Donc INSERER, NOM DE FICHIER, Voulez vous redéfinir? OUI

et maintenant je n'ai aucune raison de vouloir continuer mon insertion puisque tous mes blocs sont déjà présents dans le plan d'ensemble (à la bonne place) et tout juste redéfinis.

 

Ma routine peut s'arrêter là!!

 

Pour les curieux voici mon code entier....

 

 

 

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;   Mise à jour du bloc sélectionner            ;
;   Vérifier que le bloc se trouve dans c:\bloc ;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


(defun c:upd (/ ent name pins)
   (while (or (not (setq ent (car (entsel "\nSelectionner le bloc:"))))
       (/= (cdr (assoc 0 (entget ent))) "INSERT"))      
     )
(setq name (cdr (assoc 2 (entget ent))))
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

 (setq way (strcat name "=c:\\bloc\\" name ".dwg"))
 (command "_.insert" way "o")
 )

[Patrick_35]

Salut

 

Tu ne peux pas procéder comme tu l'indiques. Il faut insérer le bloc et ensuite l'effacer avec (entlast).

 

@+

[(gile)]

Salut,

 

Si ton bloc est dans un dossier du chemin de recherche, tu peux utiliser la syntaxe :

 

NomDuBloc=NomDuBloc.dwg

 

par exemple, avec un bloc nommé "bloc" :

 

(command "_insert" "bloc=bloc.dwg" '(0 0) (command)) 

[Arcasdk]

Bonjour Patrick_35 et merci. Donc j'ai fait comme tu as dit. Avec entlast et entdel après une insertion en 0.0.

 

Merci aussi à (Gile). Si je ne me trompe pasla syntaxe que tu me cite est bien celle que j'ai utilisé.

 

 

Merci à tous. Ma ptchiote routine tourne correctement.

[Bruno_T]

bonjour, on peut supprimer la saisie du point d'insertion, et de mémoire, l'extension dwg (cela est peut-être dépendant de la version d'AutoCAD)

 

(command "_insert" "ancienbloc=nouveaubloc")
(command)

ancienbloc et nouveaubloc peuvent avoir le même nom

 

Bruno Toniutti

 

[Arcasdk]

Merci Bruno-T

 

On peut trouver la réponse à mon problème ici