qui peut écrire ce code lisp !!!!!

[Anonymous]

Bonjour à tous, n'arrivant pas à insérer mon lisp car pas de barre d'outils, voila ce que j'aimerais faire, j'ai une variable r dans laquelle se trouve la liste des objets sur le calque zéro. en éxécutant mon lisp, une boite de dialogue s'ouvre qui contient tous les éléments sur le calque zéro. sur cette boite de dialogue, je vais sélectionner certains éléments de cette liste. j'aimerais un code me permettant de récupérer les éléments sélectionnés de cette liste. Cordialement.

[Anonymous]

Passe par la commande FILTRE ... calque sélexctionne 0 et ensuite tu peux supprimer les entités que tu ne souhaites pas copier directement sur le dessin.

Phil www.autospeed.biz

[Anonymous]

Bonjour Autospeed, merci pour ta réponse, mais mon but c 'est d'automatiser cette tâche. Merci encore.

[Anonymous]

J'ai un lisp qui capture et transfère toutes les entités du calque 0 sur un calque _rest_0  de couleur gris si ça t'intéresses , je m'en sert pour les traitements de plans.

[Kevin_Megel]

moi ça m'interesse, mais il me faudrai qqch pour tout mettre sur le calque 0 d'un coup

[Anonymous]

pas besoin de lisp pour ça , tu traces un trait dans le calque 0 pour avoir un repère visible ,puis avec le pinceau tu captures toutes tes entités et tu transfères tout dans le calque 0

[Kevin_Megel]

oui c'est pas faux: le lundi matin c'est dure de reflechir.... 😛

non mais j'aurai pu trouver ça tout seul, (merci quand même)

[Anonymous]

Va falloir que j'écrive un lisp GDC.LSP comme Greffe De Cerveau.lsp pour les lundis matin 🙂

[Kevin_Megel]

ça serait bien oui 😄

[DELDEVGP]

J

(defun c:calque0ToR0 ( / js i ent objE)

  (if (tblsearch "LAYER" "0_Rest")
      (command "-calque" "l" "0_Rest" "")
      (command "-calque" "et" "0_Rest" "")
  )
  
  (if (setq js (ssget (list (cons 8 "0"))))
      (progn
	(setq i 0)
	(while (setq ent (ssname js i))	   
	   ;;Ancienne méthode
	   ;|(setq obj (entget ent)
		 obj (subst (cons 8 "0_Rest") (assoc 8 obj) obj)
	   )
	   (entmod obj)
	   |;
	   ;;Ancienne méthode		   
	   (setq objE (vlax-ename->vla-object ent))
	   (vlax-put-property  objE "LAYER" "0_Rest")
	   (setq i (1+ i))
	)
      )
  )
  (princ)
)

e n'ai pas testé, mais ça devrait fonctionner