_

Autolisp MTEXT

Forum ogólne, ale nie do zadawania "prostych pytań". Wszystko o CAD, czego nie da się bezpośrednio połączyć z tematyką jednego z poniższych forów tematycznych.

Autolisp MTEXT

Postprzez Romek0712 » mar 01, 2020 21:19

Witam
Pracuje w autocad 2017 LT
Mam problem dotyczący lispa który ma pobierać od użytkownika miejsce punktów osnowy (taki punkt geodezyjny dla niewtajemniczonych) a potem ich nazwy [będą to zawsze 2 punkty ] i w miejsce wskazane przez użytkownika w modelu wklejać informację o odległości do obiektu od każdego z tych punktów. Napisałem coś co jakoś działa ale oprócz tego chciałbym jeszcze ten tekst wstawić w jakimś formacie ustalonym na sztywno z poziomu lispa obok wstawić jakieś obiekty (wzór wyniku w załączniku graficznym) i przede wszystkim zaokrąglić wynik do 50m i użyć polskich znaków.
Jeżeli ktoś podrzuci mi jakąś wskazówkę to będe bardzo wdzięczny bo to przy tworzeniu szkiców zabiera mi 20 % czasu.

(defun C:osnowa_szkice ()

(setq osn1 (getpoint "\nWskaz 1 punkt osnowy"))
(setq name_osn1 (getstring "\nPodaj numer 1 punktu osnowy "))
(setq osn2 (getpoint "\nWskaz 2 punkt osnowy" ))
(setq name_osn2 (getstring "\nPodaj numer 2 punktu osnowy "))

( setq X1 (car osn1))
( setq Y1 (cadr osn1))
( setq X2 (car osn2))
( setq Y2 (cadr osn2))

(while
( setq szkic (getpoint "\nWskaz szkic"))
( setq X3 (car szkic))
( setq Y3 (cadr szkic))

(setq dist1 (sqrt (+ (expt (- X1 X3) 2 ) (expt (- Y1 Y3) 2 ))))
(setq dist2 (sqrt (+ (expt (- X2 X3) 2 ) (expt (- Y2 Y3) 2 ))))

(command "_MTEXT" szkic "_Height" 0.75 "_none" "@" name_osn1 "Odleglosc od obiektu" "okolo"(rtos dist1 2 2) name_osn2 "Odleglosc od obiektu" (rtos dist2 2 2) "" )

)
)
Załączniki
Osnowa.PNG
Romek0712
 
Posty: 6
Dołączył(a): mar 01, 2020 21:04

Re: Autolisp MTEXT

Postprzez kojacek » mar 01, 2020 21:45

Romek0712 napisał(a):Witam
Pracuje w autocad 2017 LT

Odpuść sobie. LT nie obsługuje LISP-a.
Avatar użytkownika
kojacek
 
Posty: 5525
Dołączył(a): paź 03, 2005 20:17

Re: Autolisp MTEXT

Postprzez Romek0712 » mar 01, 2020 21:48

NIe to pomyłka kopiowałem z innego posta mam normalnego cada tylko 2017
Romek0712
 
Posty: 6
Dołączył(a): mar 01, 2020 21:04

Re: Autolisp MTEXT

Postprzez Romek0712 » mar 01, 2020 23:59

kojacek napisał(a):
Romek0712 napisał(a):Witam
Pracuje w autocad 2017 LT

Odpuść sobie. LT nie obsługuje LISP-a.

A czy wersja studencka to też LT ?
Romek0712
 
Posty: 6
Dołączył(a): mar 01, 2020 21:04

Re: Autolisp MTEXT

Postprzez Romek0712 » mar 02, 2020 22:59

Romek0712 napisał(a):Witam
Pracuje w autocad 2017 LT
Mam problem dotyczący lispa który ma pobierać od użytkownika miejsce punktów osnowy (taki punkt geodezyjny dla niewtajemniczonych) a potem ich nazwy [będą to zawsze 2 punkty ] i w miejsce wskazane przez użytkownika w modelu wklejać informację o odległości do obiektu od każdego z tych punktów. Napisałem coś co jakoś działa ale oprócz tego chciałbym jeszcze ten tekst wstawić w jakimś formacie ustalonym na sztywno z poziomu lispa obok wstawić jakieś obiekty (wzór wyniku w załączniku graficznym) i przede wszystkim zaokrąglić wynik do 50m i użyć polskich znaków.
Jeżeli ktoś podrzuci mi jakąś wskazówkę to będe bardzo wdzięczny bo to przy tworzeniu szkiców zabiera mi 20 % czasu.

(defun C:osnowa_szkice ()

(setq osn1 (getpoint "\nWskaz 1 punkt osnowy"))
(setq name_osn1 (getstring "\nPodaj numer 1 punktu osnowy "))
(setq osn2 (getpoint "\nWskaz 2 punkt osnowy" ))
(setq name_osn2 (getstring "\nPodaj numer 2 punktu osnowy "))

( setq X1 (car osn1))
( setq Y1 (cadr osn1))
( setq X2 (car osn2))
( setq Y2 (cadr osn2))

(while
( setq szkic (getpoint "\nWskaz szkic"))
( setq X3 (car szkic))
( setq Y3 (cadr szkic))

(setq dist1 (sqrt (+ (expt (- X1 X3) 2 ) (expt (- Y1 Y3) 2 ))))
(setq dist2 (sqrt (+ (expt (- X2 X3) 2 ) (expt (- Y2 Y3) 2 ))))

(command "_MTEXT" szkic "_Height" 0.75 "_none" "@" name_osn1 "Odleglosc od obiektu" "okolo"(rtos dist1 2 2) name_osn2 "Odleglosc od obiektu" (rtos dist2 2 2) "" )

)
)

Jest ktoś w stanie coś pomóc ?
Romek0712
 
Posty: 6
Dołączył(a): mar 01, 2020 21:04


Powrót do Forum CAD

Kto przegląda forum

Użytkownicy przeglądający ten dział: Brak zidentyfikowanych użytkowników