Merhabalar,
Autocad ile çalýþtýrdýðým noktanýn xyz deðerlerini ekrana yazan lisp, civil 3d ile çalýþtýrdýðýmda Z deðerini 0 olarak gösteriyor, halbuki ayný noktayý autocad ile çalýþtýrdýðýmda lisp, noktanýn Z deðerini ekrana yazýyor. Bir anlam veremedim, bilgisi olan var ise yardýmcý olabilirmi ?
(defun c:LLP (/ txtsz st midpt endpt htxts ang1 ang2 pt1 pt2 scle
arblk tsize)
(setq st nil
midpt nil
endpt nil)
(defun *error* (ms)
(setvar "orthomode" *ortho)
(setq tsize (getvar "textsize"))
(princ ms)
(princ)
)
(setvar "cmdecho" 0)
(setq tsize (getvar "textsize"))
(setq os (getvar "osmode"))
(setq *ortho (getvar "orthomode"))
(setq scle (getvar "dimscale"))
(setvar "orthomode" 0)
(setq p1 (getpoint "\nPick arrow end of leader: "))
(if (= p1 nil)(exit))
(setq midpt (getpoint p1))
(setvar "orthomode" 1)
(if (= midpt nil)(exit))
(setq endpt (getpoint midpt))
(if (= endpt nil)(exit))
(setq px (rtos (nth 0 p1 ) 2 4))
(setq py (rtos (nth 1 p1 ) 2 4))
(setq pz (rtos (nth 2 p1 ) 2 4))
(setq txt (strcat "N " py " "))
(setq txt2 (strcat "E " px " "))
(setq txt3 (strcat "ELEV= " pz " "))
(command "point" p1)
(command "-osnap""none""leader" p1 midpt endpt "" txt txt2 txt3)
(setvar "orthomode" *ortho)
(setvar "osmode" os)
)