Échelle d\'insertion répétitive de Blocs

[Serge1591]

Ma bibliothèque de bloc est montée en métrique, mais je dois à l'occasion faire des dessins en unité impériale. Alors j'incère mes blocs en modifiant l'échelle par défaut de Autocad de 1 par l'échelle voulut. C'est très répétitif. Il existe t-il un Lisp ou une façon de faire pour régler l'échelle d'insertion d'un bloc qu'une seule fois au début du dessin ? Merci d'avance.

[Tramber]

Je ne trouve pas de variable système mais tu peux glisser ceci dans un bouton :

 

^C^C_-insert nomdubloc \10 10 0 

 

\ marque la pause pour la saisie du point d'insertion

10, échelle en X

la même en Y

0 c'est pour la rotation mais on peut aussi mettre \

 

 

 

Il faut maitriser la configuration d'un nouveau bouton, ca commence par un clic droit sur une barre puis personnaliser...

 

Ensuite il faut rajouter une icone en glissant (une icone utilisateur mais n'importe laquelle fonctionnera à condition de modifier son contenu comme + haut).

 

en lisp

 

(command "_scale" (entlast) "" "@" 10) fonctionnera après toute insertion de bloc et réponse ENTREE à toutes les options échelles et rotation

 

en effet, "@", rappelera le dernier point saisie (insertion du bloc)

glisser ce code dans un bouton, ...aussi

[Serge1591]

Merci pour la réponse rapide.

 

La méthode que vous me donner est intéressante, mais ne me donne pas le choix d'insérer le bloc de mon choix, choisie dans toute ma bibliothèque.

 

Y a t-il une méthode pour que chaque insertion de bloc se modifie automatiquement (ce scale), selon une échelle choisie au départ ?

 

Merci.

 

[Patrick_35]

Tu as le lisp Bibles qui permet cela. Il est en téléchargement membres

 

@+

[Tramber]

Y a t-il une méthode pour que chaque insertion de bloc se modifie automatiquement (ce scale), selon une échelle choisie au départ ?

 

C'est le lisp en bas mais c'est une opération en 2 temps.

L'avantage c'est qu'il n'y a pas de problèmes inhérents aux scripts (attributs, réglage insertion, ATTREQ,...etc,etc)

 

 

Voici un bon script

^C^C_insert;\10 10 \

Mais d'abord il faut s'assurer que tout est coché pour tout demander à l'écran dans la boite INSERER Bloc.

 

Pour ne pas faire de saisie de rotation :

^C^C_insert;\10 10 0

 

[Edité le 21/1/2005 par Tramber]

[bonuscad]

Salut,

 

Un truc dans ce style!

(defun c:ins_mm2inch ( / bloc-name pt_ins ang_ins pt_ang)
(setvar "cmdecho" 0)
(setq bloc-name (getfiled "Sélectionner un dessin comme bloc" "" "dwg" 8))
(initget 1)
(setq pt_ins (getpoint "\nSpécifiez le point d'insertion: "))
(setq ang_ins (getorient pt_ins "\nSpécifiez l'angle de rotation <0>: "))
(if (not ang_ins) (setq ang_ins 0.0))
(setq pt_ang (polar pt_ins ang_ins (cvunit 1 "millimeter" "inch")))
(command "_.-insert" bloc-name pt_ins (cvunit 1 "millimeter" "inch") (cvunit 1 "millimeter" "inch") pt_ang)
(setvar "cmdecho" 1)
(prin1)
)

 

Voir le fichier "ACAD.UNT" dans le dossier support pour définir les autres modes possible de (cvunit)

 

tu pourras te constituer un bouton sous la forme:

^C^C(if (not c:ins_mm2inch) (load"ins_mm2inch")) ins_mm2inch