pop3k

OK, dzięki no to zaczynam zabawę. Ahoj przygodo!

Tak, chcę przerzucić swoje kalkulatory i makra rysunkowe do VB.NET, dużo już o tym myślałem i widziałem dużo większe możliwości ale nie wiem jak się za to zabrać. Jest tu gdzieś na forum jakieś łatwe wprowadzenie? Coś jak: - dostać się do bibliotek zwcada - stworzyć przykładowy rysunek na podstawie kilku prostych danych od użytkownika z userform - wrzucić ikonkę do zwcada i otwierać program jak w VBA w aplikacji? Jakbym miał taką ściągę to by poszło.

Dokładnie tak, dzięki za pomoc, używałem nie tej metody co potrzeba 😄

Dodane wymiary za pomocą VBA i metody ThisDrawing.ModelSpace.AddDimAligned(Startp, Endp, textpos) różnią się od standardowych wymiarów w zwcadzie. Klikając na koniec wymiaru wykonanego za pomocą VBA cały wymiar obraca się a nie rozciąga pozostawiając nieobrócony tekst wymiarowania. Czy można uzyskać efekt standardowych wymiarów z poziomu VBA?

Dostałem info, że w wersji 2026 będzie to poprawione. Pożyjemy, zobaczymy. Będzie okazja na aktualizację.

Cześć, W jakimś programie do rysowania żelbetu widziałem fajną opcję, że po ukryciu arkusza UserForm w celu kliknięcia w obszar roboczy Zwcada i narysowaniu czegoś z kodu przy kursorze podświetlany jest ślad pełnego rysunku jaki powstanie w miejscu kursora po kliknięciu myszki. Podobna sytuacja jest w standardowych funkcjach programu jak np. chcę dodać obrazek poprzez funkcję Wstaw -> obraz rastrowy -> wybieram obrazek, klikam OK i przy kursorze pokazuje mi się ramka z obrazkiem, która jeszcze nie jest wstawiona ale będzie po kliknięciu myszą w obszar roboczy modelu. Mam nadzieję, że to co napisałem jest zrozumiałe. Jak to zrobić? Można prosić jakiś mały kod programu wstawiający jakieś kształty w taki sposób?

Czy są jakieś wieści w sprawie?

Dzięki za ekspresową odpowiedź. Tak, o to chodziło.

Witam od zwcada 2024 zmieniła się funkcja wydłuż / extend. Program nie prosi już domyślnie o krawędź do wydłużenia. Pamiętam, że jest jakaś zmienna, która przywraca działanie funkcji jak w poprzednich wersjach. Podpowiecie mi jaka?

Albo inaczej - czy obok własnych ikonek interfejsu można dodać ikonkę/kontrolkę typu textbox która będzie obsługiwana poprzez VBA?

Czy poprzez VBA można wpłynąć na zmianę obrazka w ikonce interfejsu? Nie chodzi mi o standardowe ikonki tylko o te dodane przeze mnie. Po kliknięciu w ikonkę chciałbym, żeby podmieniła się bitmapa a tym samym kolor tej oraz sąsiedniej ikonki. Jeżeli nie przez VBA to da się przez C#?

Macie może informacje czy w wersji 2024 zostało to poprawione?

Macie może informacje czy w wersji 2024 zostało to poprawione?

Cześć, zauważyłem kolejny błąd w ZWCAD, proszę o pomoc w możliwościach. Napisałem sobie taki prosty kod ze wstawieniem bloku. Blok posiada okrąg i atrybuty. Zauważyłem, że po kolejnym wstawieniu bloku lokalizacja względem obiektu - kwadrant koła - przestaje działać na bloku. Wszystko przedstawia poniższy filmik. Kod: Private Sub CommandButton1_Click() UserForm1.hide Dim BlockRef As ZcadBlockReference Dim BlockAttributes As Variant Dim PIERWSZY As Variant Dim FileToInsert As String PIERWSZY = ThisDrawing.Utility.GetPoint(, "Podaj punkt P1") FileToInsert = "C:\e-cad\e-cad Zelbet Stal Drewno\Bloki\Opisy\e-cad_ZelbetOpis_7.dwg" Set BlockRef = ThisDrawing.ModelSpace.InsertBlock(PIERWSZY, FileToInsert, 1, 1, 1, 0) BlockAttributes = BlockRef.GetAttributes BlockAttributes(0).TextString = "blok" BlockRef.Update Exit Sub End Sub (W kodzie dodałem na końcu Exit Sub, bo myślałem, że obiekt gdzieś wiruje w tle ale to nic nie dało. W filmiku tego Exit Sub nie było) Filmik: http://cloud.movavi.com/show/47b0ff05-a0a5-4862-8df1-0a48f3990d14

Działa. Czyli jest rozwiązanie tymczasowe. entity = "(handent " & Chr(34) & BlockRef.Handle & Chr(34) & ")" punkty = pt1(0) & "," & pt1(1) & " " & pt2(0) & "," & pt2(1) punkt1 = Replace(pt1(0), ",", ".") punkt2 = Replace(pt1(1), ",", ".") punkt3 = Replace(pt2(0), ",", ".") punkt4 = Replace(pt2(1), ",", ".") punkt = punkt1 & "," & punkt2 & " " & punkt3 & "," & punkt4 ThisDrawing.SendCommand "_MIRROR" & vbCr & entity & vbCr & vbCr & punkt & vbCr & "Tak" & vbCr ThisDrawing.SendCommand "STR_ZPP_v2" frm_ZP_v2.hide Zapisuję kod na forum dla tych co szukają gotowego rozwiązania. Dziekuję!