Ändern Sie die Farbe auf den Text der überlappenden Quoten

[Mano63]

wie man einen Befehl erhält, der mit einer einzigen Auswahl die Textfarbe der überlappenden/koinzidierten Quoten (alle, beide oben und unten) ändern kann?
Danke im Voraus an diejenigen, die mir helfen werden

 

[GP.]

Müssen Sie diese Duplikate löschen oder nur Farbe ändern?

 

[Mano63]

Ich würde absagen müssen Alle die Duplikate (oben und unten, aber eine Farbänderung des Textes ist fein (wenn einfacher). dann mit "Select similar" kann ich auswählen und löschen.
Danke für die Unterstützung.

 

[GP.]

Sehen Sie, ob sie geht...

(defun c:pippo ( / q lq lq+ dup)
(vla-startundomark (vla-get-activedocument))
(falls (setq q (ssget "_x"((0 . "dimension"))))))))
(Progn)
(Repeat)
(setq lq (cons (ssname q (setq n (1-n))))))
)
(Mapcar)
Lambda (x)
(setq lq+ (cons (list x (getpropertyvalue x "textposition"))
)
lq
)
(foreach x (_listduplicatecounter)
(falls (> (cdr x) 1) (setq dup (cons (car x) dup)))
)
(foreach x lq+
(falls Mitglied (cadr x) dup)
)
)
)
(vla-endundomark (vla-get-activedocument))
(princ)
)

(defun _listduplicatecounter (lst / c new)
alan j. thompson, 06.26.10
(foreach x lst
(falls (setq c) (assoc x new))
(setq neu (subst (cons x (1+ (cdr c)))))
(erstelltq neu (erweitert))
)
)
)

 

[Mano63]

pippo geht großartig (... es gibt hinter gp.
Wenn ich nicht zu viel frage, um die Arbeit abzuschließen, dann brauche ich auch "pluto":
zusätzliche Anweisungen oder neue Befehle, um die Quoten mit internen Texten auszuwählen und die Textfarbe zu ändern, damit Sie die Quoteneinstellungen auswählen und ändern können (nur die grünen Texte unter die Quotenlinie bringen, die mit der Polylinea-Seite zusammenfällt.
Wie auch immer, danke!

 

[GP.]

Und dann ist das genug, es ist nicht fair für Ihre Kollegen... früher oder später treten sie in den Arsch...

(defun c:jm ( / q Poly n Poly+ q1 pq pvic)
(falls und
(setq q (ssget "_x" ((0 . "Dimension")))))
(princ "\nselezionare and retttangoli da trattare")
(setq poly (ssget '(0 . "lwpolyline")))))
)
(Progn)
(Repeat)
(setq poly+ (cons (ssname poly (setq n (1-n)))) poly+))
)
(setq remote_p (list (getvar "extmax")) (* 1.1 (cadr (getvar "extmax")))))
(Repeat)
(setq q1 (ssname q (setq n (1-n))))
(foreach ele poly+)
(falls (inside_p (setq pq (getpropertyvalue q1 "textposition"))(mapcar 'cdr (vl-remove-if-not '(lambda (x ) (= 10 (car x))))))))))
(Progn)
(setq pvic (vlax-curve-getclosestpointto ele pq)))
(Setpropertyvalue q1 "textposition" (polar pq (angle pq pvic) (* (Abstand pq pvic))))
)
)
)
)
)
)
)

(defun inside_p (:p :lst / remote_p cross)
(Anhang :lst (Liste :lst))
(setq remote_p (map '+'(1.0 1.0 0)
(Satzkreuz 0)
(Mapcar)
Lambda (a b)
(wenn (inters :p remote_p a b) (setq cross (1+ cross)))
)
:lst (cdr :lst)
)
(= 1 (Rem Kreuz 2)
)

 

[Mano63]

Ich gehe zum Samt. .
Vielen Dank!
Meine Kollegen werden sie leicht hypnotisieren.. Sie werden nicht zum Verkauf suchen. .

 

[Mano63]

ZEITSCHRIFTEN:
im Falle geschlossener Polylinien "isoliert", nicht einer an der anderen befestigt, vielleicht wäre es nützlich, wie ich erraten hatte, eine Farbänderung der internen Texte an die Polylinien (um sie leicht durch die Eigenschaften auszuwählen und, falls erforderlich, zu beseitigen). andernfalls sollte ich die Quoten 1 bis 1 wählen.
Wenn Sie mir helfen können, werde ich mich um die Stahlpflaster kümmern, wenn sie sich wie Ihre Prognosen verhalten müssen. .
Wie auch immer, vielen Dank!

 

[GP.]

Ersatz

 (Prog.)
(setq pvic (vlax-curve-getclosestpointto ele pq))
(Setpropertyvalue q1 "textposition" (polar pq (angle pq pvic) (* (Abstand pq pvic) 3))
)

mit

(vla-put-textcolor (vlax-ename->vla-object q1)

bei roter Farbe

 

[Mano63]

Ich weiß, dass ich auf eine ganz spezifische Situation gerutscht habe, dass kleine Interessen diejenigen, die dieses Forum bevölkern, und dafür danke ich Ihnen zweimal.
Ich werde versuchen, die Datei entsprechend Ihren Anweisungen zu aktualisieren und Feedback zu geben.
Danke noch mal an gp!

 

[Mano63]

Ich korrigierte und funktioniert perfekt