Probl de Filtre SSGET sur (210 0.0 0.0 -1.0)

[lecrabe]

Hello

 

Malheureusement je suis au niveau 0.2 en Lisp !

 

Voila mon souci, je desire faire une simple ligne SSGET du genre:

( ssget "_X" '((0 . "INSERT") (2 . "Mon_Joli_Bloc")) )

 

Pour recuperer dans le jeu de selection courant, TOUS les Blocs ayant une propriete PARTICULIERE !

 

En principe les Blocs NORMAUX ont cette propriete :

(210 0.0 0.0 1.0)

 

Et certains Blocs ANORMAUX ont cette propriete :

(210 0.0 0.0 -1.0)

En fait une direction d'extrusion par rapport au SCU "bizarre"

Direction d'extrusion par rapport au SCU: X = 0.0000 , Y = 0.0000 , Z = -1.0000

 

SVP quel serait la BONNE ligne SSGET pour recuperer ces FOUTUS Blocs ??

 

Merci d'avance, Bye, lecrabe

[PHILPHIL]

hello le crabe

 

Peut ere ca ?

 

(setq selinsert (ssget "_x" (list '(0 . "INSERT") '(2 . "jolie_bloc")'(210 . "0.0 0.0 -1.0"))))

 

Tes blocs ne serait pas issu de quelque chose en 3D, type menuiserie ?

et que quand tu décomposes ton blocs certaines lignes disparaissent parce que leurs vecteurs ne sont plus en accord avec le scu

 

a+, Phil

[lecrabe]

Hello

 

NON malheureusement ta syntaxe est incorrecte !

 

(setq sel1 (ssget "_x" (list '(0 . "INSERT") '(210 . "0.0 0.0 -1.0"))))

 

 

J'ai un DWG qui est une horreur au niveau des Blocs !

 

A propos pendant que j'y suis, SVP si qq'un pouvait ecrire le Micro-Lisp qui permettent de selectionner les Blocs dont le facteur d'echelle d'Insertion X & Y (On ne teste pas le Z) est different ...

 

et SVP aussi IDEM : selectionner les Blocs dont le facteur d'echelle d'Insertion X & Y & Z est different ...

 

 

Bye, lecrabe

[Olivier Eckmann]

Hello,

 

(setq sel1 (ssget "_X" (list (cons 0 "INSERT") (cons 210 (list 0.0 0.0 -1.0)))))

 

Olivier

[lecrabe]

Hello Olivier

 

BRAVO ta ligne de Lisp est parfaite !

 

Sinon je ne sais pas si tu as vu cette autre Micro-Demande !?

A propos pendant que j'y suis, SVP si qq'un pouvait ecrire le Micro-Lisp qui permettent de selectionner les Blocs dont le facteur d'echelle d'Insertion X & Y (On ne teste pas le Z) est different ...

 

et SVP aussi IDEM : selectionner les Blocs dont le facteur d'echelle d'Insertion X & Y & Z est different ...

 

Encore MERCI, Bye, lecrabe

[Olivier Eckmann]

Salut Pat,

 

pour ta sélection, si tu n'es pas à l'intérieur d'un programme, tu peux aussi utiliser la commande SSX qui dispose de l'option Entity (tu saisis INSERT) puis l'option Vector (tu saisi 0,0,-1)

 

pour ta demande :

 

(defun C:SEL_BLK_SCALE_NON_UNIFORM ( / I JeuBl JEU oBloc dXScale dYScale)
 (setq I 0  JeuBl (ssadd))
 (if (setq JEU (ssget "x" (list (cons 0 "INSERT"))))
   (repeat (sslength JEU)
     (setq oBloc (ssname JEU I))
     (setq I (1+ I))
     (setq dXScale (cdr (assoc 41 (entget oBloc))))
     (setq dYScale (cdr (assoc 42 (entget oBloc))))
     (if (/= dXScale dYScale)
(ssadd oBloc JeuBl)
     )
   )
 )
 (if (>= (sslength JeuBl) 1)
   (sssetfirst nil JeuBl)
 )
)

 

 

Olivier