KBR

Myślałem że jestem zapisany bo jakieś maile otrzymywałem. Już to naprawiłem i się wpisałem.

O widzę że się spóźniłem. Planowano oficjalną premierę na październik, myślałem że mam jeszcze czas?

Chyba byłem mocno zmęczony :).

Dzięki! mam wersję "2013.07.09(14388)" Użyłem tego pierwszego rozwiązania, ale nie kończyło mi polecenia lengthen musiałem zapisać (command "_lengthen" (car (entsel "\n Wskażpręt żebrowazny do opisu")) "" ) (SETQ dlug (GETVAR "perimeter" )) Na rozwiązanie z kontem jednak jestem za słaby:).

Mam taki skrypt do opisu prętów zbrojeniowych. Wskazuję pręt a skrypt odczytuję jego długość i nadaje odpowiednią wartość atrybutowi. Do niedawna wszystko działało ok. Tzn na początku używałem komendy "Lengthen" i odczytywałem "perimeter" Później zastąpiłem komendą "area", Teraz jednak przestało mi to działać w odniesieniu do obiektów typu linia. Wcześniej działało do linii i polilinii. Jaj napisać skrypt, żeby działał dla linii i polilinii? (setq obiekt (ssget ":S")) ;(command "lengthen" obiekt )) (command "area" "o" obiekt) (SETQ dlug (GETVAR "perimeter" )) Dodatkowo przydałoby się jeszcze żeby ze wskazanego obiektu odczytać kąt i wstawić blok z odpowiednim kątem. W przypadku polilinii powinien to być kąt wskazanego odcinka. Nie umiem tego odczytać, A nie mam czasu wgłębiać się w literaturę.

U mnie nie działa czy wpisuję z klawiatury , czy wybieram z menu. Coś pewnie się zepsuło?

Może trzeba rozwinąć właściwości albo suwakiem przewinąć w dół, nie widać wszystkiego bo w oknie się nie mieści?

Wydaje mi się że w 2014+ nie działa polecenie aliasedit? W każdym razie u mnie w wersji 2013-07-04(14324) PL nie działa również z podkreśleniem.

Ale ja mam ZWCAD+ 2012! Muszę wykupić aktualizację do ZWCAD+ 2014, przed pojawieniem się oficjalnej, wersji żeby skorzystać z rabatu?

Żeby skorzystać z 1 wersji to trzeba już kupić, czy można czekać aż się ukaże wersja 2014. Ile kosztuje ta aktualizacja? Ile kosztuje lub będzie kosztowała subskrypcja na 3 lata? Ja się ją kupi to otrzyma się drugą licencję na ZWCAD+ 2012. Nie bardzo rozumiem o co chodzi?

Ponieważ różnica jest ok 25 razy więc wygląda jakby różnica była jak inch i mm. Może mimo że w obu przypadkach ustawione są "mm" to gdzieś głębiej pozostały "inch". Dziwna jest też niedokładność wzoru kreskowania

z rysunku old skopiowałem do nowego szablonu dwt. Wszystko wygąda tak samo jednak jak się wejdzie w edycję kreskowania to już wygląd się zmienia trzeba zmienić skalę żeby wyglądało podobnie. Jednocześnie kreskowanie poprawia się.

U mnie w obu rysunkach kreskowanie gravel wygląda inaczej. W new jest w skali 5000, a w old 200 i jest jakby "niedokładne", mimo że na obu rysunkach jest to samo narysowane.

Zmieniłem plik ZWCAD.fmp jednak nie pomogło, pewnie jest gdzieś jeszcze zapisany. Skopiowałem czcionkę ze mienioną nazwą na romans-1.shx i jak ją podstawię za romans to jest ok.

pliki wysłąłem

Zainstalowałem wersję beta polską przez odinstalowanie i zainstalowanie ponowne, teraz mam wersję 12211 ( przez naprawę nie nie zmieniała się wersja) Mam taki problem które wydawało mi się ze nie było w poprzednich wersjach. Aliasy nie działają w przypadku kiedy odnoszą się do angielskich poleceń np DIST, LINE itd. Żeby działały trzeba użyć np zamiast "d" - "_d", ale jest to nie do przyjęcia, ponieważ zamiast jednego trzeba wprowadzić dwa znaki i jeszcze pierwszy z shiftem. Próbowałem zmienić ZWCAD.pgp dodając po "*" "_", ale to nie działa. Czy można to jakoś zmienić? Ewentualnie proszę o listę angielskich poleceń zamienionych na polskie. Niektóre polecenia działają np DIM. Druga sprawa to przy wczytywaniu pierwszego pliku ZWCAD zapytał mnie o jakąś czcionkę chyba FONF... nie pamiętam dokładnie nazwy, nie widział romans.shx, to dałem Ariel i teraz we wszystkich rysunkach podstawia za romans ariel mimo, że wgrałem mu czcionki i je widzi (ale może nie tam gdzie trzeba tzn. do katalogu w C:\Program Files (x86)\ZWCAD+ 2012 PLK\fonts). Zaczynam, edycję jakieś czcionki romans od razu zamieniana jest na ariel.

Zauważyłem taki błąd. W dwóch rysunkach z których jeden powstał przez przekopiowanie elementów do nowego rysunku ( w obu jednostki są ustawione na mm), kreskowanie GRAVEL zachowuje się inaczej. W starym wstawiłem w skali 200 i wzór jet postrzępiony w nowym zew skalą 5000 i wzór jest ok.

proszę o link do SP3

Czy pojawienie się wersji 2014 oznacza że nie będzie wersji 2012 +SP3?

Zainstalowałem wersję z adresu przez napraw, ale nie dział fi. Tzn w jednowierszowym tekście działa, w mtext już nie chyba, że przerobie z jednowierszowego. Dopóki go nie edytuje to przynajmniej na wyświetlaczu widać poprawnie fi. Być może coś by się poprawił gdybym odinstalował i zainstalował powtórnie, ale nie mam czasu.

Ja miałem taki problem po którejś kompilacji ZWCAD. Musiałem dograć polskie czcionki do któregoś katalogu albo podać dodatkowe ścieżki dostępu (nie pamiętam). .

Dziękuję za pomoc. Jednak jednak opisywanie bez okna dialogowego nie jest zbyt wygodne. Będę stosował opis tekstem jednowierszowym łątwiejsza i szybsza edycja. Jest takie polecenie mleader. Może za pomocą tego polecenia zamiast mtext można zrobić podobną procedurę?

Dzięki za odpowiedzi. Procedurę przerobiłem z procedury do robienia opisów tekstem jednowierszowym z podkreśleniem i długość teksu używałem do określenia długości podkreślenia. W tekscie wielowierszowym jest mi to nie potrzebne. Wiele się nie zastanawiałem bo do tej pory działało. Wykasowałem linie odpowiedzialne za mierzenie tekstu ale nadal nie działa. Więc coś nie tak z poleceniem mtext pokazuje się taki komunikat: Command: TT Unknown command "TT". Press F1 for help. Unknown command "TT". Press F1 for help. Unknown command "TT". Press F1 for help. Start : To point :Current text style: "Standard" Text height: 62.5

W oknie F2 pokazują sie Command: TT textstyle Enter new value for TEXTSTYLE <"Standard">: standard Command: ortho Enter mode [ON/OFF] <ON>: on Command: layer Current layer: "opis" Enter an option [?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: m Enter name for new layer (becomes the current layer) <opis>: opis Enter an option [?/Make/Set/New/ON/OFF/Color/Ltype/LWeight/Plot/Freeze/Thaw/LOck/Unlock/stAte]: Command: TT Unknown command "TT". Press F1 for help. Command: TT Unknown command "TT". Press F1 for help. Command: TT Unknown command "TT". Press F1 for help. Command: -osnap Enter list of object snap modes: nea Command: Start :-osnap Current osnap modes: Near Enter list of object snap modes: non Command: To point :-mtext Current text style: "Standard" Text height: 250 Specify first corner: Specify opposite corner or [Height/Justify/Line spacing/Rotation/Style/Width]: _H Specify height <250>: 250.0000000000000 Specify opposite corner or [Height/Justify/Line spacing/Rotation/Style/Width]: _J Enter justification [TL/TC/TR/ML/MC/MR/BL/BC/BR] <TL>: _Bl Specify opposite corner or [Height/Justify/Line spacing/Rotation/Style/Width]: W Specify width: 25000.00000000000 MText: Command: ; error: bad argument type: 2D/3D point: nil Wydaje mi się że jest problem z drugim pinktem okna mtextu. próbowałem go podawać wcześnij definiją albo podając wspórzędne albo jeszcze jedno oczekiwanie na dane "" ale ni poradziłe sobie. Pracuje na wesji angielskiej z polskim menu, ponieważ w wersji poskiej nie mogłem się przyzwyczaić do skrutu "k" w uchwytach.

Witam ma taki lisp zrobiony jeszcze kiedy pracowałem na autocadzie. Procedura działa na ZWCAD 2012 ale nie dział na ZWCAD2012+ Już dawno nie pisałem lispów więc trudno mi znaleść błąd. Lisp wywala się prawdopodobnie na poleceniu mtext chyba nie umie kreślić punktu wstawienia mtextu Może koś umie pomóc? ;********************************************************************************** ;Opis za pomocą mtekstu ze stałą skalą raz przyjetą ;*************************************************************************************** (defun c:tt (/ pt1 pt2 e ) (setq osmode1 (getvar "osmode"))(setq osmode3 (getvar "osmode")) (If (= sc2 nil)(setq sc2 (getvar "dimscale"))) (if (= sc3 nil) (progn (setq sc3 (getreal (strcat "\nPodaj skalę rysunku <" (rtos sc2 2 0) ">: ") )) (if (= sc3 nil)(setq sc3 sc2)) (setq sc2 sc3) )) (command "textstyle" "standard") (setq h (/ (* sc3 25) 10)) (setq h1 (* sc3 0.5)) (setq warstwa (getvar "clayer")) (command "ortho" "on") (setq war "opis") (if (null C:tlyr)(load "F:/a_block/lay/tlyr")) (command "tlyr" "") (command "layer" "m" "opis" "" "" "" "") (command "osnap" "nea") (setq pt1 (getpoint "\n Start :")) (command "osnap" "non") (setq pt2 (getpoint "\n To point :")) (setq radx (angtof "0" 0)) ;(setq rady (angtof "90" 0)) ;(setq rad45 (angtof "45" 0)) ;(setq rad60 (angtof "60" 0)) ;(setq rad30 (angtof "30" 0)) ;(setq rad300 (angtof "300" 0)) (setq w (* (* sc3 25) 10)) (setq pt6 (polar pt2 radx w)) (if (<= (car pt1)(car pt2)) (progn (command "mtext" pt2 "H" h "J" "Bl" "W" w "") (setq e (entget (entlast))) (setq pt3 ( cadr (textbox e))) (setq pt4 '(0 0 )) (setq dl (distance pt4 pt3)) (setq sc1 dl) ) (progn (command "mtext" pt2 "H" h "J" "Br" "W" w "") (setq e (entget (entlast))) (setq pt3 ( cadr (textbox e))) (setq pt4 '(0 0 )) (setq dl (distance pt4 pt3)) (setq sc1 (- 0 dl)) ) ) (if (/= e nil)(command "_leader" pt1 pt2 "" "" "" "")) (COMMAND "change" "last" "" "p" "c" "8" "") (command "layer" "set" warstwa "") (command "osmode" osmode1 ) );defun