Cómo seleccionar objetos por color en Draw?

[Nbarias]

Hola, alguien me puede ayudar a seleccionar todos los objetos de un mismo color en una página? Gracias!

[LeroyG]

Hasta donde sé, solamente con macros:

Is there a way to autoselect multiple objects with the same properties?

You surely knew already that there not is a readymade tool for the purpose. User code can perform tasks of the kind in principle. The code below shows a rough example how you might approach a solution depending on what you actually want/need. Inspect the objects, and decide yourself what properties you need to compare. Sub selectBasedOnSameAreaColor() doc = ThisComponent sel = doc.CurrentSelection If sel.Count>1 Then Exit Sub sh0 = sel(0) REM Only shapes with area color are accpted here. If N…

Inkscape permite seleccionar por características.

[Nbarias]

Ah, bien intentaré de esa manera copiando ese código. Muchas gracias!

[Lupp]

(Translated from my text written in English based on German-based thinking with the help of www.deepl.com .)

El ejemplo adjunto al post que enlazó LeroyG es muy crudo.
Un problema fundamental es el concepto que hay detrás del término “color”. El software actual utiliza la representación RGB de los colores con 8 bits por componente, por lo que hay 256^3 (=16777216) colores diferentes. Conjuntos de más de 100 colores diferentes pueden parecer a su ojo tan similares que puede juzgarlos “iguales” Tenga en cuenta que LibO no define los colores por nombres. Los nombres sólo se asocian a los colores por paleta.
Mi demo ni siquiera intenta identificar los colores de forma abstracta - por no hablar de referirse a ningún “barrio” - sino que recurre a una forma de ejemplo.

[Nbarias]

@Is there a way to autoselect multiple objects with the same properties?

Sub selectBasedOnSameAreaColor()
doc = ThisComponent
sel = doc.CurrentSelection
If sel.Count>1 Then Exit Sub
sh0 = sel(0)
REM Only shapes with area color are accpted here.
If NOT (sh0.FillStyle=1) Then Exit Sub 
fc = sh0.FillColor
dp = sh0.Parent REM Only the DrawPage of the CurrentSelection is scanned.
uDp = dp.Count - 1
For k = 0 To uDp
  k_sh = dp(k)
  If (k_sh.FillStyle=1) AND (k_sh.FillColor=fc) Then sel.add(k_sh)
Next k
doc.CurrentController.select(sel)
End Sub

Funcionó perfecto! Gracias!