KBR

Użytkownik forum
 Pokaż profil  Zobacz aktywność

  • Postów

    265

  • Dołączył

  • Ostatnia wizyta

  • Wygrane w rankingu

    1

 Typ zawartości 

Odpowiedzi opublikowane przez KBR

  5. Odczytywanie długości elementów

    w Wsparcie programistyczne LISP i VisualLISP

    Opublikowano · Edytowane przez KBR

    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ę.

  10. Aktualizacja do ZWCAD+ 2014

    w ZWCAD+ 2014

    Opublikowano

    Ż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?

  16. ZWCAD+ SP3 (wersja wewnętrzna).

    w ZWCAD i ZWCAD+ 2012

    Opublikowano · Edytowane przez KBR

    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.

  17. Kreskowanie w ZWCAD+ SP2

    w ZWCAD i ZWCAD+ 2012

    Opublikowano

    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.

     

     

  23. Lisp do opisu

    w Wsparcie programistyczne LISP i VisualLISP

    Opublikowano

    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
     

  24. Lisp do opisu

    w Wsparcie programistyczne LISP i VisualLISP

    Opublikowano

    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.

  25. Lisp do opisu

    w Wsparcie programistyczne LISP i VisualLISP

    Opublikowano

    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