Adapter un lisp

[yusukens82]

Bonjour

 

Quelqu’un pourrait m'aider à adapter un lisp ?

Depuis le lisp de GILE que je me sers très souvent :

SSL (sélection spécial par layer)

 

J’ai rajouté une ligne pour qu'il fasse en plus un « ordre de tracer »

 

voici mon lisp adapter :

(defun c:SSLAR (/ ss ent)

 (and
   (or
     (and
(setq ss (cadr (ssgetfirst)))
(= 1 (sslength ss))
(setq ent (ssname ss 0))
     )
     (and
(sssetfirst nil nil)
(setq ent (car (entsel)))
     )
   )
   (sssetfirst nil (ssget "_X" (list (assoc 8 (entget ent)))))
 )
 (princ)
(command "ordretrace" "AR")
)

 

Plutôt que de mettre en arrière tous les calques « selon la section »

J’aimerai lui indiquer directement dans le lisp le nom du calque.

 

Exemple de la procédure que j’aimerai que le lisp fasse :

- Sélectionner tous les calques « mur »

- Ordre de tracé = ARRIERE

- Sélectionner tous les calques « plancher »

- Ordre de tracé = ARRIERE

- Sélectionner tous les calques « plafond »

- Ordre de tracé = ARRIERE

- ETC…

 

 

....

 

[Edité le 7/4/2009 par yusukens82]

[yusukens82]

Sinon comment juste selectionner tous les entités du calque "murs"

[(gile)]

Salut,

 

Regarde ici.

[yusukens82]

Salut Gile, merci de ton aide.

Je viens de tester le lisp dans le lien.

Cela revient encore à sélectionner directement l'objet sous AutoCAD.

Ce n'est pas exactement ce que j'aimerai faire.

 

Gros modo, voila comment je pense que le code doit être :

 

(defun c:SSLARpersonnalisé ()

===> Récupérer tous les calques « MUR » <===
(command "ordretrace" "AR")

===> Récupérer tous les calques « PLAFOND » <===
(command "ordretrace" "AR")

===> Récupérer tous les calques « PLANCHER » <===
(command "ordretrace" "AR")

)

 

Ce lisp pourra permettre de mettre à jour l’ordre de tracer selon les calques bien prédéfinis dans le lips.

cela va beaucoup servir lorsqu'on a une chartre graphique avec ordre de tracer par calque à respecter.

 

Penses-tu que cela est possible ?

 

 

 

 

.

 

 

 

[Edité le 10/4/2009 par yusukens82]

[(gile)]

(defun SSLARperso ()
 (vl-cmdf "_.draworder" (ssget "_X" '((8 . "MUR"))) "" "_back")
 (vl-cmdf "_.draworder" (ssget "_X" '((8 . "PLAFOND"))) "" "_back")
 (vl-cmdf "_.draworder" (ssget "_X" '((8 . "PLANCHER"))) "" "_back")
 (princ)
) 

[yusukens82]

Magnifique Gile, vraiment.

cela fait très longtemps que je voulais avoir un lisp comme ça.