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


e_CAD

Recommended Posts

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

Edited by e_CAD
Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Reply to this topic...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Loading...