Hi folk!!!
someone could help me?
I´m making my personal lisp and I have a doubt to end this lisp...Please!!!!!
for each point that I click insert the block and give a numeral (ok! I passed this part)
Now, I´d like to get number and get horizontal distance and vertical distance. I know to do it just for one. See my code....
(defun C:notas ()
;section axis
(setq eixo_projetado (getpoint "\nClick on axis section..."))
(setq cota_baixa (getpoint "\nClick on the low quota..."))
(setq cota_baixa_y (getreal "\ntype the quota..."))
;insert object.....
(setq iponto 1 aponto 1.)
(while (setq pnt (getpoint (strcat "\nClique in the first point **" (itoa iponto) "** <if there is no point just enter>: ")))
(command "-insert" "C:/LISPS ALEXANDRE/BLOCOS/PIRULITO" pnt "1" "1" "0" iponto)
(setq iponto (1+ iponto)))
;Make calculations for each point clicked. How can I do that?...
;in X
(setq p1x (car eixo_projetado))
(setq p2x (car ponto_interesse))
(setq soma_x (- p2x p1x))
(setq distancia_x (rtos soma_x 2 3))
;in Y
(setq p1y (cadr cota_baixa))
(setq p2y (cadr ponto_interesse))
(setq soma_y (+ cota_baixa_y (- p2y p1y)))
(setq distancia_y (rtos soma_y 2 3))
;insert the attributed block (my block have many texts)...
(command "-insert" "C:/LISPS ALEXANDRE/BLOCOS/NS_FERROVIA2" eixo_projetado "1" "1" "0" point number1 x1 y1 point number2 x2 y2 point number3 x3 y3........etc)
