LISP do zmiany koloru tekstu w liniach odniesienia

[hamamatsu]

Witam wszystkich, nurtuje mnie taki problem, czy jest możliwość zmiany koloru tekstu w liniach odniesienia automatycznie dla wielu takich odniesień (mówimy o mleader'ach).

Zaznaczenie wszystkich i zmiana koloru z poziomu palety kolorów działa ale tylko do pewnego momentu. A mianowicie: gdy mamy linię odniesienia, otworzymy tekst dwuklikiem i zmienimy kolor tego tekstu to potem zaznaczenie tej linii odniesienia i zmiana koloru z pozycji palety kolorów zmienia tylko linię a nie tekst. (mam nadzieje że to dobrze wyjaśniłem).

I tutaj pojawia się moje pytanie, czy można to jakoś zautomatyzować? przykładowo mam ponad 500 takich linii odniesienia ze zmienionym ręcznie kolorem tekstu i chcę żeby ten tekst we wszystkich miał kolor np jak warstwa  (lub narzucony przeze mnie ale jak warstwa i tak by mi już robiło robotę)  trochę z chatem GPT podziałałem ale ostatecznie mi napisał że się nie da tego zrobić..... Pracuję na pełny autocad 2021 lub gstarcad 2023.

Z góry dziękuję za pomoc.

HamamatsU 

[RobS]

Hej,

Musisz usunąć nadpisanie tekstu w odnośnikach.

Użyj skrypt STPMLEADER - Reset MLeader Text Color Font Type.lsp

Wczytaj go poleceniem AP i wywołaj STPMLEADER.

[hamamatsu]

Hehe, chciałem to zrobić w zupełnie inny sposób ale to co podesłałeś pasuje mi w 95% przypadków! Bardzo dziękuję za pomoc

[hamamatsu]

A to idąc kawałek dalej, jest też może już jakieś gotowe narzędzie, które będzie działać tak samo jak to powyżej ale do tekstu? Wielowierszowego i jednowierszowego?

polecenie SETBYLEAR niestety nie działa na tekst jeśli ma on już dwuklikiem zmieniony kolor...

[RobS]

Do tekstów wieloliniowych użyj skrypt  STPMTEXT - Reset MText Color.lsp

[Marek-M]

Nie używałem kodu, który wrzucił @RobS ale korzystam od dawna ze skryptu StripMtext, który działa zarówno na MTEXT jak i MLEADER. Wersja, którą tu wrzucam jest po drobnej modyfikacji jednej sekcji kodu, bo trafiłem na jakieś nietypowe zawartości w swoim pliku CAD.

StripMtext v5-0d.lsp

[hamamatsu]

hej, dzięki za odpowiedź, ale niestety zauważyłem że zarówno programik @RobS jak i Twój nie do końca działa na MLEADER...

mam MLEADER z wszystkimi parametrami Bylear, wchodzę dwuklikiem w niego i zmieniam kolor tekstu na jakiś inny. Potem po wyjściu z tekstu zmieniam kolor dla całego MLEADERA na jeszcze jakiś inny, zmienia mi się tylko kolor strzałki. I teraz takiego MLEADERA nie mogę żadnym z tych dwóch programów zmienić, żeby kolor tekstu był Bylear...chyba że coś robię nie tak.

[RobS]

Nie wiem czy dobrze Cię rozumiem, ale u mnie skrypt działa jak na poniższym nagraniu.

Nadpisałem kolor tekstu, także mimo zmiany koloru warstwy na której jest wstawiony odnośnik kolor tekstu nie zmienił się.

Po wywołaniu polecenia STPMLEADER wybieram odnośnik, klikam Enter i tekst znowu ma kolor Jak Warstwa.

[hamamatsu]

postaram się nagrać jak to wygląda u mnie i wrzucę wieczorem filmik.

Może jakieś zmienne systemowe mam nie tak poustawiane że nie zawsze mi ten lisp zadziała...

[hamamatsu]

No dobra, sprawdziłem to na AUTOCAD 2021 i wygląda to tak.

Jeśli mam mleader który ma wewnątrz zmieniony kolor tekstu  to LISP działa i zmienia kolor tekstu na taki jaki ma strzałka (nieważne czy strzałka ma kolor bylear czy nadany inny). ale jeśli zmienię kolor mledera poprzez funkcję "uzgodnij właściwości" to wtedy już nie działa...

[Marek-M]

Nie do końca rozumiem jakie są Twoje oczekiwania. Może wyjaśnię jak działa skrypt StripMtext - oczyszcza on zawartość tekstową (contents) MTEXT lub MLEADER ze znaczników formatujących tekst w tym polu zostawiając tam czysty tekst, którego kolory, justowanie i inne parametry będą już zależały od ustawień stylu MLEADER.

 

W poniższym przykładzie (Rys. 1.) zawartość pola Contents po wyczyszczeniu skryptem będzie miała po prostu samą treść `TEST` bez znaczników formatujących `{\C3;...}`. To w jakim kolorze będzie tekst MLEADER po uruchomieniu skryptu zależy od ustawień samego MLEADER (czy ma wybrany kolor, czy jest ustawiony ByLayer itp) oraz od konfiguracji jego stylu w menedżerze (Rys. 2).

Rys. 1.

Rys. 2.

[hamamatsu]

Zdążyłem już rozgryźć jak to działa ale mnie właśnie bardziej chodziło o coś co podesłał @RobS. Bo często dostaje rysunki gdzie mam mnóstwo MLEADER'ow, są one na różnych warstwach ale mają tekst w środku nie bylear tylko swój własny nadany przez "dwuklik". Gdy np. muszę wszystkie MLEADER'y zrobić na szaro to zaznaczenie ich, ustawienie bylear i potem zmiana koloru warstwy nie pomaga. Dlatego potrzebowałem rozwiązania, które pozwoli mi w szybki sposób ustawić wszystkie MLEADER'y na jeden kolor. 

Niestety jest jeden wyjątek jaki opisałem powyżej, jeśli MLEADER ma nadane właściwości poprzez funkcję "uzgodnij właściwości" to wtedy skrypt STPMTEXT - Reset MText Color.lsp nie działa niestety nie wiedzieć dlaczego... 

[Marek-M]

Właśnie po wyczyszczeniu formatowania kolor tekstu w MLEADER jest zależny od ustawień własnych wybranego MLEADER oraz od ustawień stylu w menadżerze. Jeżeli styl MLEADER ma ustawiony kolor na ByBlock, to wtedy będzie przyjmował kolor przypisany do wybranego MLEADER.

STPMTEXT chyba działa podobnie do StripMtext, tylko że w tym drugim można skonfigurować jakie typ formatowania tekstu ma być czyszczony, więc jest jakby bogatszy w funkcje.