[VBA] Problem z UNDO i REDO


e_CAD

Recommended Posts

vernum = "2017.12.05(24685)_x64"

W powyższej kompilacji ZWCAD nie działa UNDO i REDO na wrysowanych przy pomocy VBA elementach (raczej bez znaczenia jest czy elementy rysowane są od razu w kodzie, czy przy pomocy procedur/funkcji).

W poprzednich ZWCAD wszystko działało poprawnie, nawet w ZWCAD 2017 te funkcje działają prawidłowo na tym samym kodzie programu.

ThisDrawing.StartUndoMark
...
ThisDrawing.EndUndoMark

 

Link to comment
Share on other sites

Dzień dobry

Przed zgłoszeniem tematu do ZWSOFT wykonałem jeszcze prosty test, dla potwierdzenia. W moim teście undo i redo działa. Być może robimy coś inaczej. Proszę sprawdzić projekt z załącznika. Jeśli taki najprostszy możliwy przykład u Pana zadziała, to proszę przygotować przykład, na którym będę mógł potwierdzić problem.

vernum: 2018.02.11(28325)_x64

test.zvb

Link to comment
Share on other sites

Dzień dobry,

Proszę w swoim przykładzie zmodyfikować fragment kodu tak jak poniżej:

ThisDrawing.StartUndoMark
ThisDrawing.ModelSpace.AddLine sp, ep
ThisDrawing.ModelSpace.AddLine sp1, ep1
ThisDrawing.EndUndoMark

i wtedy będzie widoczna opisywana przeze mnie sytuacja.

Po wykonaniu kodu i wciśnięciu UNDO znika tylko 1 linia, a po ponownym wciśnięciu UNDO kolejna linia.

A prawidłowo powinno być tak (jak w poprzednich kompilacjach i wersjach ZWCAD), że po wciśnięciu UNDO znikają od razu 2 linie (po to łączymy kod komendami .StartUndoMark i .EndUndoMark, żeby tak właśnie się zadziało).

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...