Fonction layer

[ASTERIXII]

Bonjour,

J’aurais besoin d’aide sur une partie de code.

Je veux créer une fonction qui va dans une sélection, ne conserver que les arcs et les cercles, avec l’option type de ligne continuous.

Pour cette partie c’est ok.

Maintenant je voudrais utiliser ma variable ptcalque pour :

- Créer un nouveau calque (avec option couleur/type de ligne) avec le début du calque de l’entité en ajoutant à la fin _Dalle, mais vérifier avant que je n’ai pas déjà créé le calque

- Rendre le calque courant

 

Début de code

(defun c:ss (/ cmdecho)

 

;selection des entités

 

(setq selection (ssget '((0 . "ARC,CIRCLE"))))

 

;nombre d'entitees dans la selection

 

(setq nb (sslength selection))

 

(setq nb1 0)

 

(while (< nb1 nb) ;boucle

 

(setq ptname (ssname selection nb1)) ;recuperation du nom

(setq ptcoord (cdr (assoc 10 (entget ptname)))) ;recuperation des coordonnées

(setq ptcalque (cdr (assoc 8 (entget ptname)))) ;recuperation du calque

(setq pttypeligne (cdr (assoc 6 (entget ptname)))) ;recuperation type de ligne

(setq ptrayon (cdr (assoc 40 (entget ptname)))) ;recuperation des coordonnées

 

;si nil c'est DUCALQUE

; (alert (strcat "Type de l'Entité selectionnée :" pttypeligne))

 

(if (or ( = nil pttypeligne) ( = "Continuous" pttypeligne)) (command "_circle" ptcoord "_d" 30))

 

(setq nb1 (+ nb1 1))

 

); fin while

); fin defun

[ASTERIXII]

C'est bon pour la création et la verification du calque

 

(if (= (tblsearch "layer" "Toto") nil)

 

(command "-calque" "n" "Toto" "co" "7" "Toto" "")

 

)

 

(command "-calque" "ch" "Toto" "")

 

Mais je vais créer un nom de calque unique, et non ajouter une extension au calque de chaque entité