dawido000

Witam, problem wyłączeniem Dynamic Input ciągle istnieje. Jest bardzo uciążliwe. Sprawdzałem na wersji zwcad+ 2012.07.16(3997).

vernum będę w stanie przesłać w najbliższy poniedziałek, ponieważ nie mam dostępu do komputera. Mam takie pytanie, skąd można wziąć całą dokumentację do ZWCADa+ dotyczącą Visual Basica oraz LISPa?

Chciałem uruchomić to makro w ZWCAD+, ale wyskakuje mi błąd i wyrzuca z programu. Wyskakuje okienko dotyczące przesłania informacji o zaistniałym problemie do producenta.

Odnośnie Dynamic Input.... W wersji 2012 wiem, że można wyłączyć. Ściągnąłem wersję ZWCAD+ beta i tam nie ma tego przycisku. Mam nadzieję, że w oficjalnej wersji będzie :).

Ile ja bym dał żeby calutki bwcad dzialał bez problemu na zwczadzie.

Hmm, ja nie mogę wyłączyć dynamic input

Wersja ZWCADA: 2011.10.30 Testowałem na obiektach typu polilinia, prostokąt. W załączniku rysunek, na którym testowałem makro: Sub si() Dim pole, pole1 As Double Dim i, m As Integer Dim sel As ZwcadSelectionSet Dim kwadrat As ZwcadEntity Dim fild As ZwcadText Dim ip Dim slajd As String On Error Resume Next Thisdocument.SelectionSets.Item("ss").Delete Set sel = Thisdocument.SelectionSets.Add("ss") sel.SelectOnScreen m = sel.Count For i = 0 To m - 1 Set kwadrat = sel.Item(i) pole1 = kwadrat.Area pole = pole + pole1 slajd = Thisdocument.Utility.RealToString(pole, zcDecimal, 2) Next MsgBox slajd ip = Thisdocument.Utility.GetPoint(, "Wstaw") ip(1) = ip(1) + 0.1 Set fild = Thisdocument.ModelSpace.AddText(slajd, ip, 0.2) End Sub rysunek_testowy.dwg

Miejmy nadzieję, że w wersji ZWCAD+ błędy te zostaną usunięte. Dzięki.

Dlaczego w ZWcadzie nie działa mi funkcja CreateObject wywołana jak poniżej, program wykrzacza się właśnie na tej funkcji. W autocadzie wszystko działa normalnie. Dim VL As Object Set VL = CreateObject("VL.Application.16")

Witam w autocadzie zrobiłem sobie makro które zlicza sumę pól (fragment): ThisDrawing.SelectionSets.Item("ss").Delete Set sel = ThisDrawing.SelectionSets.Add("ss") sel.SelectOnScreen m = sel.Count For i = 0 To m - 1 Set kwadrat = sel.Item(i) pole1 = kwadrat.Area pole = pole + pole1 slajd = ThisDrawing.Utility.RealToString(pole, acDecimal, 2) Next Przerobiłem go na wersję zwcada: Thisdocument.SelectionSets.Item("ss").Delete Set sel = Thisdocument.SelectionSets.Add("ss") sel.SelectOnScreen m = sel.Count For i = -0 To m - 1 Set kwadrat = sel.Item(i) pole1 = kwadrat.Area pole = pole + pole1 slajd = Thisdocument.Utility.RealToString(pole, zcDecimal, 2) Next Wszystko działa, tylko dlaczego wywołanie pole1 = kwadrat.Area zwraca wartość zawsze zero. Tak jakby kwadrat.Area nie było takiego obiektu. Ktoś mi pomoże? Może brakuje jakiejś bibilioteki[/code]

Witam, zakupiłem zwcada i chciałem zapytać o dwie rzeczy. 1) Czy Wam działa przyciemnianie xref? Bo mi nie działa. 2) Czy też macie coś takiego że przy przesuwaniu łapką bądź zumowaniu, kursor oraz rysunek cały czas migocze? Dziękuję z góry za wypowiedzi i porady.