lisp colri random

[rotten80]

Guten Tag für alle!
Ich suche eine fromme Seele, die mir helfen kann, und ich stelle meine Frage hier.
Ich habe eine Reihe von Polylinien geschlossen mit einem Text in der Mitte, alle in der gleichen Schicht.

Ich hätte die Notwendigkeit, die Farbe auf die Polylinien und ihren Text mit einer zufälligen Farbe zu ändern und sie in der gleichen Schicht bleiben lassen.
Das Ergebnis sollte wie:
Poly1+text1--> Farbe rgb zufällig 1------>lagige Konturen
Poly2+testo2--> Farbe rgb zufällig 2------>lagige Konturen
Poly3+testo3--> Farbe rgb zufällig 3------->lagige Konturen
Poly4+testo4--> Farbe rgb zufällig 4-------->lagige Konturen


wenn Sie eine lisp Lösung haben oder es bereits einen ähnlichen Befehl in cad Sie wissen, dass ich dankbar wäre
Grüße
Steak

 

[GP.]

ein zweiter interner Text wird nicht behandelt, die Grenzschicht muss bereits vorhanden sein.

(defun c:xx ( / selpoly n poly t_poly col)
(falls und
(princ "\nselezionare le polilinee")
(setq selpoly (ssget '((0. "lwpolyline") (-4. "&=") (70.1)))
)
(Repeat (setq n (sslength selpoly))
(setq poly (ssname selpoly (setq n (1- n))))
(setq t_poly
(ssget "_wp")
(mapcar 'cdr (vl-remove-if-not '(lambda ( x ) (= 10 (car x))))))))
'((0 . "text,mtext")
)
)
(setq col (lm:randrange 1 255))
(setpropertyvalue poly "color" col)
(vla-put-layer (vlax-ename->vla-object poly) "contorni")
(falls t_poly
(Prog.)
(Setpropertyvalue (Name t_poly 0) "color" col)
(vla-put-layer (vlax-ename->vla-object (ssname t_poly 0)) "contorni")
)
)
)
)
(princ)
)
(defun lm:rand)
(Setq m 4294967296.0)
a 1664525.0
c 1013904223.0
$xn (Rem (+ c (* a (cond ($xn) ((getvar 'date))))))
)
(/ $xn m)
)
(defun lm:randrange)
(- b a -1))
)

 

[rotten80]

Mittico!!! funktioniert sehr gut, auch wenn Sie einige Texte überspringen... aber offensichtlich zu meinem Zweck ist es besser auf diese Weise!
(Ich glaube, weil sie in der Mitte der Figur platziert werden und daher in einigen Fällen außerhalb der Polylinea)

Vielen Dank für Ihre Professionalität und Kompetenz