Dzień dobry,
zwracam się z uprzejmą prośbą o pomoc. Programowanie nie jest moją mocną stroną, a zwłaszcza składnia do której nawiążę.
Przygotowuję prosty LISP do wykorzystania w oprogramowaniu Autodesku. Jego główne zadania to pobranie wartości Z wskazanego przez kliknięcie punktu oraz wstawienie punktu i etykiety z wartością wysokości w postaci tekstu.
Docelowy wygląd:
Mój problem polega na niewiedzy, jaki sposób poprawić ten dość banalny kod który załączam, aby:
1. Tekst wstawiał się w wysokości 0.3m (nie ma konieczności definicji przez użytkownika w programie)?
2. Położenie tekstu (Position Z) odpowiadała wartości Z wskazanego punktu?
(defun c:lh (/ p x y ptcoord textloc)
(while
(setq p (getpoint "\nPick Point: "))
(command "_POINT" p)
(setq z (rtos (caddr p)))
(setq ptcoord (strcat z))
(setq textloc (getpoint "\nPick Label Location: "))
(command "_TEXT" textloc p "" ptcoord "")
)
)
Z góry dziękuję za jakiekolwiek wskazówki!