CADxp: un lisp pour sélectionner toutes les hachures ? - CADxp

Aller au contenu

Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

un lisp pour sélectionner toutes les hachures ?

#1 L'utilisateur est hors-ligne   brunomu 

  • ceinture verte
  • Groupe : Membres
  • Messages : 78
  • Inscrit(e) : 13-mai 06

Posté 20 juin 2010 - 09:38

Bonjour Forum,

J'aimerais disposer d'un lisp qui permette de sélectionner d'un coup toutes les hachures, quel que soit le calques où elles sont dessinées.
Je sais le faire "manuellement" avec un filtre ou avec QSELECT, mais en LISP : je sais pô.

Quelqu'un pourrait-il m'aider ?

Merci !
0

#2 L'utilisateur est hors-ligne   lecrabe 

  • ceinture rouge et blanche 8em dan
  • Groupe : Moderateurs
  • Messages : 7336
  • Inscrit(e) : 10-décembre 03
  • LocationLoire (42)

Posté 20 juin 2010 - 10:05


Hello

Je n'ai pas d'AutoCAD sous la main, ma reponse n'est pas sure du tout !

-- Pour selectionner TOUS les blocs, on fait en general :
(ssget "_X" '((0 . "INSERT")))

-- Donc pour selectionner TOUTES les hachures, c peut etre :
(ssget "_X" '((0 . "HATCH")))

Autres exemples sur les polylignes :

-- Pour selectionner TOUTES les Polylignes CLOSES du dessin (visibles ou invisibles)
(ssget "x" (list(cons 0 "lwpolyline")(cons 70 1)))

-- Pour selectionner TOUTES les Polylignes NON CLOSES du dessin (visibles ou invisibles)
(ssget "x" (list(cons 0 "lwpolyline")(cons 70 0)))

Good Luck, Le Decapode



0

#3 L'utilisateur est hors-ligne   usegomme 

  • ceinture noire 1er dan
  • Groupe : Membres
  • Messages : 616
  • Inscrit(e) : 03-octobre 03

Posté 20 juin 2010 - 18:16

Salut
Ce qu' a indiqué Lecrabe mais sous forme de commande

(defun c:ssh () (sssetfirst nil (ssget "x" '((0 . "HATCH")))))

 



[Edité le 20/7/2010 par usegomme]
0

Partager ce sujet :


Page 1 sur 1
  • Vous ne pouvez pas commencer un sujet
  • Vous ne pouvez pas répondre à ce sujet

1 utilisateur(s) en train de lire ce sujet
0 membre(s), 1 invité(s), 0 utilisateur(s) anonyme(s)