[ZWCAD | VBA] Problem z obsługą stylów tekstu oraz szablonów DWT


e_CAD

Rekomendowane odpowiedzi

Przedstawię problem na przykładzie zarówno ZWCAD 2017 i ZWCAD+ 2015 w którym wygląda to lepiej ale również nie tak jak to powinno być. Dodam jeszcze, że identyczne testy przeprowadziłem na oprogramowaniu CAD konkurencji i tam zarówno obsługa stylów jak i szablonów DWT wygląda prawidłowo.

 

Oto prosta procedura w VBA, którą będę posługiwał się w poniższych przykładach:

Sub Test()

    Dim P As Variant

    P = ThisDrawing.Utility.GetPoint(, "Wskaż punkt:")

 

    Dim T As ZcadText

    Set T = ThisDrawing.ModelSpace.AddText("Tekst", P, 50)

    T.StyleName = "t"

    T.Update

End Sub

 

Poniżej zamieszczam również grafiki, które kolejno obrazują opisywane sytuacje.

 

ZWCAD 2017:

1.       Tworzę Styl tekstu o nazwie "t"

2.       Wstawiam tekst przy pomocy powyższej procedury VBA

3.       Niestety wstawiony tekst nie posiada cech ustawionych w oknie stylów (nie jest ani pochylony, ani jego współczynnik szerokości nie wynosi 0.8, tylko 1)

 

ZWCAD+ 2015

1.       Tworzę styl tekstu o nazwie "t"

2.       Wstawiam tekst przy pomocy powyższej procedury VBA

3.       Tekst wstawił się prawidłowo

4.       Modyfikuję styl tekstowy "t"

5.       Wstawiam tekst przy pomocy powyższej procedury VBA

6.       Niestety wstawiony tekst nie posiada pełnych cech ustawionych w stylu (wysokość), ale jak się okazuje zaznaczenie wrysowanego tekstu, zmiana jego stylu w oknie Właściwości na "standard" i za chwilę ponownie na "t" aktualizuje/regeneruje ten obiekt i wyświetlany jest poprawnie. Nie zmienia to faktu, że od razu powinien być wrysowany poprawnie.

7.       Usuwamy wszystkie obiekty z DWG i całość (łącznie z naszym stylem tekstu "t") zapisujemy jako szablon DWT

8.       Zamykamy ZWCAD i uruchamiamy ponownie i otwieramy zapisany przed chwilą szablon DWT

9.       Wstawiam tekst przy pomocy powyższej procedury VBA

10.   Niestety wstawiony tekst również nie ma pełnych cech ustawionych w stylu "t". Wstawiając natomiast nowy tekst przy pomocy _TEXT wszystko jest poprawnie "Prawidłowy tekst".

 

zwcad2017_1.png

zwcad2017_2.png

zwcadplus_1.png

zwcadplus_2.png

zwcadplus_3.png

zwcadplus_4.png

zwcadplus_5.png

zwcadplus_6.png

Edytowane przez e_CAD
Odnośnik do komentarza
Udostępnij na innych stronach

Dołącz do dyskusji

Możesz dodać zawartość już teraz a zarejestrować się później. Jeśli posiadasz już konto, zaloguj się aby dodać zawartość za jego pomocą.

Gość
Dodaj odpowiedź do tematu...

×   Wklejono zawartość z formatowaniem.   Usuń formatowanie

  Dozwolonych jest tylko 75 emoji.

×   Odnośnik został automatycznie osadzony.   Przywróć wyświetlanie jako odnośnik

×   Przywrócono poprzednią zawartość.   Wyczyść edytor

×   Nie możesz bezpośrednio wkleić grafiki. Dodaj lub załącz grafiki z adresu URL.

Ładowanie