Shoutbox

 

support

2020 Nov 12 13:57:35
o taki portal na jakiś czas do nas wpadnie

Lisp odchyłka wysokościowa

  • 8 Odpowiedzi
  • 2240 Wyświetleń

0 użytkowników i 1 Gość przegląda ten wątek.

Offline support

  • *
  • *
  • ☆ Pŕöúđ Mémbéŕ ☆
  • Wiadomości: 3456
  • Płeć: Mężczyzna
  • Mariusz Gawron
    • Zobacz profil
    • Pracownia Geodezyjna Mariusz Gawron

Lisp odchyłka wysokościowa

  • dnia: 26 Marzec 2015, 10:27
Witam,

w moje ręce wpadł list który wpisuje odchyłkę wysokościową - mam prośbę czy ktoś z was potrafi uruchomić.
Nie chodzi mi oczywiście o narzędzia -> Wczytaj aplikacje i wskazanie lispa.

Jeżeli jest ktoś światły w cadzie bardzo proszę o pomoc i mały Know-how.
"Być narodowi użytecznym" - Stanisław Staszic, Patron techników polskich.


Offline Geod

  • *
  • Bywalec
  • *
  • Wiadomości: 13
  • Płeć: Mężczyzna
    • Zobacz profil

Odp: Lisp odchyłka wysokościowa

  • dnia: 11 Marzec 2016, 22:29
Cześć.
Brakowało jednej zmiennej.
(defun c:odwys (/ snap warsaktualna odch pwst dtd)
  (setq snap (getvar "osmode"))
  (command  "_OSNAP" "_NONE")
  (setq warsaktualna (getvar "clayer"))
  (command "_layer" "_m" "odchyłkawys" "")
  (command "_layer" "_c" 3 "" "")
  (setq odch (getstring "Wprowadz odchyłke:"))
  (setq pwst (getpoint "Punkt wstawienia:"))
  (setq dtd 1.0)
  (command "_circle" pwst (* dtd 1.4))
  (command "_text" (polar pwst (+ pi (/ pi 7)) (* dtd 1.4)) dtd 0 odch)
  (command "_layer" "_s" warsaktualna "")
  (setvar "osmode" snap)
  )

Teraz lisp nawet dział.
Zamierzeniem autora było troszkę przyśpieszone wstawianie tekstu. Największym mankamentem tego lispa jest przy każdym uruchomieniu tworzenie warstwy która już istnieje w rysunku.

Offline support

  • *
  • *
  • ☆ Pŕöúđ Mémbéŕ ☆
  • Wiadomości: 3456
  • Płeć: Mężczyzna
  • Mariusz Gawron
    • Zobacz profil
    • Pracownia Geodezyjna Mariusz Gawron

Odp: Lisp odchyłka wysokościowa

  • dnia: 13 Marzec 2016, 11:17
Witaj,
temat dawno temu poruszony na forum, czy mógłbyś łopatologicznie dla potomnych objaśnić działanie lisp'a
oraz jak wczytać i co zrobić po kolei by zadziałał.
dziękuję
"Być narodowi użytecznym" - Stanisław Staszic, Patron techników polskich.


Offline support

  • *
  • *
  • ☆ Pŕöúđ Mémbéŕ ☆
  • Wiadomości: 3456
  • Płeć: Mężczyzna
  • Mariusz Gawron
    • Zobacz profil
    • Pracownia Geodezyjna Mariusz Gawron

Odp: Lisp odchyłka wysokościowa

  • dnia: 20 Marzec 2016, 21:07
podbijam temat
"Być narodowi użytecznym" - Stanisław Staszic, Patron techników polskich.


Offline Geod

  • *
  • Bywalec
  • *
  • Wiadomości: 13
  • Płeć: Mężczyzna
    • Zobacz profil

Odp: Lisp odchyłka wysokościowa

  • dnia: 21 Marzec 2016, 17:57
Cześć, tak wygląda objaśnienie do kodu jeśli to komuś pomoże. Po średniku jest krótkie wyjaśnienie dla każdej linijki.
Kod należy umieścić w pliku z rozszerzeniem .lsp w folderze (domyślnie support) i w AutoCAD załadować poleceniem  __appload
To co po średniku w danej linijce jest ignorowane przez kompilator autolisp
(defun c:odwys (/ snap warsaktualna odch pwst dtd) ;definiowanie nowego polecenia oraz zmiennych lokalnych
  (setq snap (getvar "osmode")) ;pobranie zmiennej systemowj kodu lokalizacji
  (command  "_OSNAP" "_NONE"); wyłączenie lokalizacji
  (setq warsaktualna (getvar "clayer")); pobranie zmiennej systemowej nazwy warstwy aktaulanej
  (command "_layer" "_m" "odchyłkawys" "");tworzenie nowej warstwy o nazwie "odchyłkawys"
  (command "_layer" "_c" 3 "" "");przypisanie koloru nowostworzonej warstwie
  (setq odch (getstring "Wprowadz odchyłke:"));pobranie tekstu od uzytkownika
  (setq pwst (getpoint "Punkt wstawienia:")); pobranie wspolrzednych od uzytkownika
  (setq dtd 1.0);podstawienie zmiennej wartosci 1.0
  (command "_circle" pwst (* dtd 1.4));Rysowanie okregu wspolrzednych srodka pwst i promieniu (* dtd 1.4)
  (command "_text" (polar pwst (+ pi (/ pi 7)) (* dtd 1.4)) dtd 0 odch);Tworzenie tekstu
  ;(polar pwst (+ pi (/ pi 7)) (* dtd 1.4)) - odpowiada za loklizacje tekstu (funkcja polar jest tu nie potrzebna)
  ;dtd - wysokosc tekstu
  ;0 - kat obrotu tekstu (układ matematyczny)
  ;odch - ciag znakow wstawiony do tesktu
  (command "_layer" "_s" warsaktualna "");Ustawienie warstwy jako aktualnej ktora jest przypisna zmiennej systemowej
  (setvar "osmode" snap);Ustawienie lokalizacji takiej jaka byla podstawiona zmiennej snap
  )

RoBoCIK połączył wiadomości: 21 Marzec 2016, 18:20
Dorzucę swoją wersję alternatywną która "robi to samo". W moim mniemaniu jest trochę lepsza.
(defun c:odwys2 (/ odch pwst)
  (while
    (and
      (setq odch (getstring t "\nWprowadz odchylke: "))
      (setq pwst (getpoint "\Punkt wstawienia: "))
      (entmakex (list (cons 0 "TEXT") (cons 10  (polar pwst 3.6 1.4)) (cons 40 1.0) (cons 1 odch)))
      (entmakex (list (cons 0 "CIRCLE") (cons 10 pwst) (cons 40 1.4)))
      )
    )
  (princ)
  )
Pozdrawiam
« Ostatnia zmiana: 21 Marzec 2016, 18:20 wysłana przez Geod »

Offline support

  • *
  • *
  • ☆ Pŕöúđ Mémbéŕ ☆
  • Wiadomości: 3456
  • Płeć: Mężczyzna
  • Mariusz Gawron
    • Zobacz profil
    • Pracownia Geodezyjna Mariusz Gawron

Odp: Lisp odchyłka wysokościowa

  • dnia: 18 Wrzesień 2016, 20:30
Jeszcze wrócę do tego, nie działa mi to jak powinno w ac 2008 lub coś robię źle, mam coś zaznaczyć jakąś warstwę czy coś ... jak to prawidłowo działa.
"Być narodowi użytecznym" - Stanisław Staszic, Patron techników polskich.


Offline Geod

  • *
  • Bywalec
  • *
  • Wiadomości: 13
  • Płeć: Mężczyzna
    • Zobacz profil

Odp: Lisp odchyłka wysokościowa

  • dnia: 18 Wrzesień 2016, 21:00
Powinno działać w ten sposób:
1. Wczytujesz lispa polecenie:  _appload
2. Uruchamiasz program polecenie: odwys2
3. Pojawia się zgłoszenie "Wprowadz odchylke: " wpisujesz tekst.
4 . Pojawia się zgłoszenie wstawienia punktu "Punkt wstawienia: " wybierasz punkt i akceptujesz lewym przyciskiem myszy.
Powtarzasz pkt 3 i 4

Offline support

  • *
  • *
  • ☆ Pŕöúđ Mémbéŕ ☆
  • Wiadomości: 3456
  • Płeć: Mężczyzna
  • Mariusz Gawron
    • Zobacz profil
    • Pracownia Geodezyjna Mariusz Gawron

Odp: Lisp odchyłka wysokościowa

  • dnia: 18 Wrzesień 2016, 22:35
Hmmm, czyli wszystko ręcznie?
Sadziłem że to potrafi jakoś z warstwy odczytać zmienną jakiś pomierzony poziom posadzki i podaję wartość danego "zera" wskazuje warstwę z pomiaru rzędnych i lisp sam wstawia tekst w wartością odchyłki ...
A tutaj to tylko tyle że tworzy warstwę o nazwie odchyłka w kolorze zielonym ...
"Być narodowi użytecznym" - Stanisław Staszic, Patron techników polskich.


Offline Geod

  • *
  • Bywalec
  • *
  • Wiadomości: 13
  • Płeć: Mężczyzna
    • Zobacz profil

Odp: Lisp odchyłka wysokościowa

  • dnia: 19 Wrzesień 2016, 08:52
W rysunku AutoCAD masz jakąś stała rzedną np. posadzka i jakieś punktu (pomiar)?