Sélection de polyligne selon la longueur

[DenisHen]

Bonjour à tous.

 

Aujourd'hui, j'ai un petit problème qui se pose. Je fais un ssget pour sélectionner toutes les polylignes d'un calque. Mais j'aimerais trier celles qui sont inférieures à 2m.

 

Voici mon ssget :

(setq Select (ssget "_A" (list (cons 0 "LWPOLYLINE") (cons 6 "ST_FDP_HAIED"))))

 

Si quelqu'un as une astuce, un conseil... Je suis preneur...

[(gile)]

Salut,

 

On ne peut pas filtrer directement avec la longueur d'une polyligne avec un filtre d sélection (il n'y a pas de propriété DXF correspondant à ce critère).

Il faut que tu fasse ça dans le traitement de ton jeu de sélection.

[DenisHen]

Salut (gile).

 

Merci pour cette réponse...

[Fraid]

Bonjour,

 

j'men sort avec cette pirouette

 

(command "_.area" "_o" (ssname Select n))
(getvar "PERIMETER")

 

bon courage a toi, c'est dur...

[DenisHen]

A toutes fins utiles, voici mon bout de code... :

  (if (setq ss (ssget "_X" (list (cons 0 "LWPOLYLINE,LINE") (cons 8 "Routes"))))
   (progn (setq i 0)
          (while (setq ssObj (ssname ss i))
            (setq i (1+ i))
            (if (< (getpropertyvalue ssObj "length") 2)
              (progn (command "chprop" ssObj "" "ca" "FDP_Talus Barbules" "Co" "ducalque" ""))
            ) ;_ Fin de if
          ) ;_ Fin de while
   ) ;_ Fin de progn
 ) ;_ Fin de if

Il tri les "LWPOLYLINE" et les "LINE" inférieures à 2 mètres et étant dans le calque "Routes" et les place dans le calque "FDP_Talus Barbules" avec la couleur "DuCalque".

[(gile)]

Tu pourrais utiliser setpropertyvalue pour modifier le calque et la couleur plutôt que la commande CHPROP.

[DenisHen]

Effectivement...

 

Mais ça ne fonctionne pas... :

(if (setq ss (ssget "_X" (list (cons 0 "LWPOLYLINE,LINE") (cons 8 "Routes"))))
   (progn (setq i 0)
          (while (setq ssObj (ssname ss i))
            (setq i (1+ i))
            (if (< (getpropertyvalue ssObj "length") 2)
              (progn ;;(command "chprop" ssObj "" "ca" "FDP_Talus Barbules" "Co" "ducalque" ""))
                     (setpropertyvalue ssObj "Layer" "FDP_Talus Barbules")
                     (setpropertyvalue ssObj "Color" "ducalque")
              ) ;_ Fin de progn
            ) ;_ Fin de if
          ) ;_ Fin de while
   ) ;_ Fin de progn
 )

[(gile)]

Pour utiliser ces fonctions, il ne faut pas hésiter à faire un dumpallproperties pour voir (dans la fenêtre de texte) le nom des propriétés et le type de valeur

 

(setpropertyvalue ssObj "LayerId" (tblobjname "layer" "FDP_Talus Barbules"))
(setpropertyvalue ssObj "Color" "BYLAYER")

[DenisHen]

Merci pour ton aide.

 

Mais c'est curieux, l'entité garde la couleur fixée et ne passe pas à ByLayer...

 

mais la couleur "DuCalque" n'est pas -1 ou 256 ?

 

PS : je confirme, 256 est la couleur "DuCalque". Encore merci.