Insertion automatique de bloc dans le bon calque (LISP)

Insertion automatique de bloc dans le bon calque (LISP)

nathan.dereux
Enthusiast Enthusiast
369 Visites
3 Réponses
Message 1 sur 4

Insertion automatique de bloc dans le bon calque (LISP)

nathan.dereux
Enthusiast
Enthusiast

Bonjour,

J'utilise actuellement cette commande pour insérer un bloc à des coordonnées XYZ précises sur mon dessin :

(command "_-insert" "PLAMBE" "1885233.909,6185671.019" "1" "1" "0" "1885233.909" "6185671.019" "199.024" "7")

 

Le bloc inséré est "PLAMB". À partir de cette commande, savez-vous s'il est possible de renseigner le calque de destination pour ce bloc ?

 

Merci par avance, bonne journée

Nathan

0 J'aime
Solutions acceptées (3)
370 Visites
3 Réponses
Replies (3)
Message 2 sur 4

tramber
Advisor
Advisor
Solution acceptée

Il y aurait moyen de changer de calque avant et après grace à la variable CLAYER.

Ou alors de faire un petit 

(command "chprop" "d" "" "ca" "AXES" "")

Ici pour mettre le dernier objet créé sur mon calque AXES, charge à toi de mettre le nom de ton calque.


EESignature

0 J'aime
Message 3 sur 4

nathan.dereux
Enthusiast
Enthusiast
Solution acceptée

Merci beaucoup !

Tu m'as mis sur la voie, j'ai trouvé la commande -CALQUE pour choisir le calque courant juste avant l'insertion du bloc.

 

Ca donne ça :

(command "-CALQUE" "CH" "NOM_DU_CALQUE")(command)(command)(command "_-insert" "BLOC" "1875206.028,6178404.489" "1" "1" "0" "199.515" "BLOC" "199.515" "BLOC")(command)(command)

 

Merci encore, bonne journée,

Nathan

0 J'aime
Message 4 sur 4

tramber
Advisor
Advisor
Solution acceptée

Une autre structure :

(setq *clayer*(getvar"clayer"))
(setvar"clayer" "axes")
(command .... mes actions)
(setvar"clayer"*clayer*)

EESignature

0 J'aime