[ZWCAD+ nowe informacje.]

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

[Przerobienie prostego makra z Autocada na Zwcada - problem]

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?

[Przerobienie prostego makra z Autocada na Zwcada - problem]

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.

[ZWCAD+ potrzebne funkcje]

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

[ZWCAD+ nowe informacje.]

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

[ZWCAD+ potrzebne funkcje]

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

[Przerobienie prostego makra z Autocada na Zwcada - problem]

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

[Dwa problemy z ZWCADem 2012]

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

[[VBA] Funkcja CreateObject nie działa]

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")

[Przerobienie prostego makra z Autocada na Zwcada - problem]

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]

[Dwa problemy z ZWCADem 2012]

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.