kruszynski

Moderatorzy
  • Postów

    1474
  • Dołączył

  • Ostatnia wizyta

  • Wygrane w rankingu

    93

Treść opublikowana przez kruszynski

  1. Kiedyś dawno była w ZWCAD taka zmienna systemowa: (setvar "_ZW_UUIDOFUSERMODULE" 1 ) Dokładnie jej sensu nie pamiętam, ale pamiętam że miała jakiś związek z reaktorami, proszę sprawdzić, czy jej ustawienie na 1 nie spowoduje jakiejś poprawy. Zapytam również ZWSOFT o wyjaśnienie co może powodować Pana problemy.
  2. Próbowałem uruchomić ten reaktor i u mnie działa bez problemów w LISP. Może dopisał Pan tam coś więcej niż było w przykładzie i stąd problem. W zasadzie wystarczy: (vl-load-com) (vlr-command-reactor nil '((:vlr-commandWillStart . commandWillStart))) (defun commandWillStart(reactor_object lista) (alert (vl-princ-to-string lista)) ) po uruchomieniu dowolnego polecenia, jego nazwa wyświetli się w dodatkowym okienku na ekranie. W vba jest to jeszcze łatwiejsze, wystarczy w oknie kodu ThisDocument, wybrać "BeginCommand" jak na załączonym obrazku,
  3. Potwierdzam jest jakiś problem z funkcją getCustomByIndex. Zgłoszę to doZWSOFT.
  4. Istnieje możliwość zakupu aktualizacji. Jej cena do końca miesiąca obniżona jest o 50% czyli cena wynosi: 215 zł netto za wersję standard i 265 zł netto za wersję professional. Nie ma znaczenia z której poprzedniej wersji chce Pani aktualizować Jakie inne informacje Panią interesują?
  5. Używając vla-InsertBlock jest jeszcze łatwiejsze. Wystarczy zdefiniowany blok wstawić, atrybuty wstawią się automatycznie zgodnie z wartościami domyślnymi. Atrybuty można potem pobrać bloku i edytować zgodnie z własnymi potrzebami. Np tak: ;(setq *DescBlockName* MojaNazwaBLoku) ;(setq InsPoint (list 12 15 0)) (setq DescBlock(vla-InsertBlock *Modelspace* (vlax-3d-point InsPoint ) *DescBlockName* 1 1 1 0)) Pobranie atrybutów z tego cuda: (if (vlax-get-property DescBlock 'HasAttributes)(progn (setq ExAttrbs(vlax-safearray->list(vlax-variant-value(vla-getattributes DescBlock)))) )) Wycinałem to z większego fragmentu kodu, więc po prostym skopiowaniu może się nie uruchamiać, ale po podstawieniu własnych wartości pod zmienne powinno być bez problemów.
  6. Taki mój przykładzik na wstawianie bloków z atrybutami przez entmake (defun d2r (degs /) (/(* pi degs)180.0)) (defun DrawLine (SP EP / OutLine LiniaDef) (setq LiniaDef(entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(100 . "AcDbLine") (cons 10 (list (car SP) (cadr SP) (caddr SP))) (cons 11 (list (car EP) (cadr EP) (caddr EP)))))) (if LiniaDef (setq OutLine (entlast))) OutLine ) (defun DrawCoordCross ( / OutBlock Name qwe LinePion LinePoziom) (setq Name "Geo_Krzyz") (setq qwe (tblobjname "block" Name )) (if (null qwe) (progn (entmake (list (cons 0 "BLOCK") (cons 100 "AcDbEntity")(cons 100 "AcDbBlockBegin") (cons 67 0)(cons 8 "0")(cons 70 0)(cons 10 (list 0.0 0.0 0.0))(cons 2 Name)(cons 1 ""))) (setq LinePion (DrawLine (list -4 0 0)(list 4 0 0))) (setq LinePoziom (DrawLine (list 0 -4 0)(list 0 4 0))) ;(setq XAtrib(entmake (list '(0 . "ATTDEF")(cons 100 "AcDbEntity")'(8 . "0")'(10 0.0 0.0 0.0)'(1 . "X")'(2 . "X") '(3 . "")'(40 . 1.0)'(41 . 1.0)'(50 . 0.0)'(70 . 0)'(71 . 0)'(72 . 0)'(73 . 2)))) ;(setq YAtrib(entmake (list '(0 . "ATTDEF")(cons 100 "AcDbEntity")'(8 . "0")'(10 0.0 0.0 0.0)'(1 . "Y")'(2 . "Y") '(3 . "")'(40 . 1.0)'(41 . 1.0)(cons 50 (d2r -90))'(70 . 0)'(71 . 0)'(72 . 0)'(73 . 2)))) (entmake '((0 . "ENDBLK"))) )) OutBlock ) (defun C:Cross ( / ) (DrawCoordCross) (setq InsPoint (list 123.0 12 0)) (if InsPoint(progn (setq BlockRef(InsertBlock "Geo_Krzyz" InsPoint 1 1 1 0)) (setq Insertion(entmake(list '(0 . "INSERT") '(100 . "AcDbEntity")'(100 . "AcDbBlockReference") '(2 . "Geo_Krzyz") (cons 8 "0") (cons 10 InsPoint) (cons 41 1) (cons 42 1) (cons 43 1) (cons 50 0) '(66 . 1) ) )) (entmake (list (cons 0 "ATTRIB") (cons 11 InsPoint) (cons 40 1) (cons 1 (rtos (car InsPoint) 2 0)) (cons 2 "X") (cons 7 (getvar "TEXTSTYLE")) (cons 70 0) (cons 72 0) (cons 74 1) ) ) (entmake (list (cons 0 "ATTRIB") (cons 11 InsPoint) (cons 40 1) (cons 1 (rtos (cadr InsPoint) 2 0)) (cons 2 "Y") (cons 7 (getvar "TEXTSTYLE")) (cons 70 0) (cons 50 (d2r -90)) (cons 72 0) (cons 74 1) ) ) (entmake (quote((0 ."SEQEND")))) (setq CrossEnt (entlast)) )) )
  7. w katalogi, gdzie zainstalowany jest ZWCAD, jest katalog ZRXSDK, tam jest kilka przykładów prostych aplikacji tłumaczących zasady używania moedelu obiektowego ZWCADa w VS. Przykłady są w C++ nie bez .NET , ale jest też kilka plików dokumentacji. co do dokumentów, to jest dostępnych kilka pozycji w internecie poświęconych ARX, np: arxdummies Po polsku podstawy ARX, ale daje ogólny pogląd na ZRX: badziewiak
  8. Aplitop ma i może podać :) Zazwyczaj rejestracje obsługiwane są bez konieczności czekania.
  9. Tak łatwo to się nie da. Nie ma zmiennej systemowej, która to kontroluje. Nie znam żadnego sensownego sposobu na wyłączenie.
  10. Serdecznie zapraszamy za seminarium poświęcone programowi ZWCAD, które odbędzie się w Gdańsku 10 lutego 2011 roku Uczestnicy będą mieli możliwość zapoznania się z najnowszą wersją oprogramowania ZWCAD 2011, ale także – z systemem ZW3D, również będącym w ofercie firmy. Seminarium będzie niewątpliwą okazją do nawiązania kontaktów z innymi użytkownikami ZWCADa. Tradycyjnie, po seminarium będzie można zakupić program w atrakcyjnej cenie, a każdy z uczestników będzie mógł wziąć udział w konkursie, w którym nagrodami będzie oprogramowanie komputerowe. Program seminarium: 9:30-10:00 Rejestracja uczestników 10:00-11:30 Prezentacja nowości w ZWCAD 2011 11:30-12:30 Prezentacja programu ZW3D 12:30-13:00 Przerwa kawowa, konkurs z nagrodami 13:00-14:00 Prezentacja aplikacji dodatkowych do ZWCAD 14:00-15:00 Warsztaty Data i miejsce: czwartek 10.02.2011 r., hotel Novotel Gdańsk Centrum, ul. Pszenna 1 Więcej informacji: 33 488 89 39 Aby zgłosić swoje uczestnictwo w seminarium wystarczy wypełnić formularz zgłoszeniowy i wysłać na adres: zwcad@zwcad.pl lub fax-em: 33 470 65 18
  11. Proszę sprawdzić, czy w czasie instalacji zainstalował się u Pana plik: "c:\mdt5\dotnet\reg.bat" (lub "c:\mdt5\dotnet\reg64.bat" jeśli używa Pan systemu 64 bitowego) Problem, jaki Pan opisał najprawdopodobniej sposodowany jest jakimiś ustawieniami polityki bezpieczeństwa, lub antywirusem, który blokuje pewne kroki w instalacji.
  12. Nie używałem nigdy progressBar więc nic pewnego powiedzieć nie mogę, ale: Mogę się podzielić przykładowym plikiem, gdzie jest użyty prosty przykład współpracy sds i LISP (patrz Załącznik). Można w nim zobaczyć jak powinien wyglądać plik w C++ używający funkcji SDS. Nie wczytywałem tego w VBA, ale myślę, że taka przykładowa składnia powinna być użyteczna: Private Declare Function NazwaFunkcji Lib "plik.dll" (ByVal hKey As Long) As Long W ten sposób można zrobić inerface VBA do używania funkcji SDS. invoke dialog from DLL.rar
  13. Zgłosiłem to producentowi nakładki. kiedy otrzymam odpowiedź prześlę ją. Proszę o informację jakiego systemu operacyjnego Pan używa? I czy w czasie instalacji jest Pan zalogowany na koncie z prawami administratora?
  14. OK, rzeczywiście nie powinno tak być. Zgłoszę to do supportu
  15. Proszę spróbować wstawić initget w tym kodzie w liniach 155 i 175, w taki sposób: (setq PunktT0 PunktT1 ) (initget 0) (setq PunktT1 (getpoint PunktT0 "\nKliknij kolejny punkt na rzucie.") U mnie zadziałało na 2011
  16. Jak na mój pierwszy rzut oka, to wygląda, jakby jakieś śmieci zostały z poprzedniego użycia initget. Proszę spróbować przed getpoit, użyć initget.
  17. Numerowanie odbywa się w kolejności zaznaczania.
  18. Niestety ZWCAD nie oferuje pełnego wsparcia dla stylów STB. Temat ten był kiedyś poruszany. Jeśli interesuje Pana więcej informacji zapraszam tutaj: forum
  19. Witam, Podobnie jak na początku tego roku postanowiliśmy ufundować bezpłatną aktualizację do ZWCAD. Tym razem do wersji 2011. Zmieniliśmy nieco kryteria oceny. Teraz braliśmy pod uwagę także merytoryczną wartość postów. W składzie wszystkich pracowników naszej firmy bezpłatne aktualizacje postanowiliśmy przyznać użytkownikom o nickach: 1. gruzin - za pomoc dla użytkowników forum, oraz dzielenie się doświadczeniami w programowaniu LISP, 2. 2P - za kreatywne pomysły oraz dzielenie się bogatym doświadczeniem, 3. Martin_S oraz KBR, za zaangażowanie na forum, bardzo dobrą znajomość ZWCAD i ciekawe posty. Bardzo proszę o przesłanie numeru ID na adres pomoc@zwcad.pl Pozdrawiam
  20. kruszynski

    VBA . . .

    W sprawie IntersectWith, to nie spotkałem obiektu, który nie miałby tej metody, a pracowałem na wielu różnych: liniach, łukach, okręgach, poliliniach, blokach, itp. na pewno IntersectWith mają też: Region, Leader, PolyfaceMesh, Spline, Ray, Point, Trace, Text i wiele, wiele innych. Plik pomocy jest dostępny. Po zainstalowaniu ZWCADa, nawet w wersji testowej, w katalogu Help, jest plik ZWCAD_Dev.chm W nim jest rozpisany model obiektowy, z wypisanymi wszystkimi własnościami i metodami. Co do wydajności, to niestety nie mogę się wypowiedzieć, nie testowałem swoich wynalazków na konkurencyjnych programach. W zasadzie prawie wszystko można sprawdzić w wersji testowej. Jedyne czego sprawdzić nie można wynika z ograniczeń wersji testowej, czyli zapis dużych plików, export do DXF
  21. kruszynski

    VBA . . .

    Co prawda nie ma możliwości uruchamiania plików dvb z AutoCADa, ale jest możliwość stosunkowo łatwego przeniesienia kodu. W tym celu należy z pliku dvb (uruchomionego w Acad) wyexportować wszystkie klasy, moduły, okna jako oddzielne pliki, i w nowym projekcie zvb, należy je importować. Albo metodą siłową: [CTRL+C] [CTRL+V] przekopiować cały kod do nowego projektu. Niestety w celu otwarcia pliku dvb potrzeba jest uprzejmość kogoś kto uruchomi plik dvb na Acad.
  22. Tools 1 był pisany w czasach kiedy nie było Windows7. Planujemy aktualizację tej nakładki i dodanie nowych funkcji, jednak do wersji ZWCAD 2011. W wersji 2010 pojawiła się też nowa funkcja do zarządzania stanami warstw i w przyszłych Toolsach, nie będzie już naszej funkcji do izolacji i powrotu do stanu pierwotnego.
  23. W sprawie jednostek waluty w stylu tabeli, to zostało poprawione. Co prawda nie ma możliwości tworzenia własnych jednostek, ale dodano wiele walut. Jest też dostępne PLN
  24. Otrzymałem odpowiedź w sprawie statusu tej sprawy, została ona oznaczona numerem 12829. Z odpowiedzi wynika, że sprawa jest analizowana. Nie udało mi się uzyskać dokładniejszych informacji o przewidywanym terminie realizacji tego zgłoszenia.
  25. Niestety ZWCAD nie ma takiej możliwości.