Just beginning with TINs
; just beginning to experiment with TINs :-)
;
;
(defun FET:TinLabel ( / bTIN sTIN oPnt lPnt nTinElev)
(vl-load-tin)
(while (not bTIN)
(setq sTIN (car (entsel "\nSelect TIN > ")))
(if (EQ (vla-get-EntityName (vlax-ename->vla-object sTIN)) "BsysCvDbTinSurface")
(setq bTIN T)
(princ "\nThat was not a BricsCAD TIN :-( ")
)
)
(while
(setq oPnt (getpoint "\nSelect Point on TIN > "))
(setq lPnt (list (nth 0 oPnt) (nth 1 oPnt)))
(setq nTinElev (tin:elevationAtPoint sTIN lPnt))
(princ (rtos nTinElev 2 3))
)
)
;
;
(defun FET:TinLabel ( / bTIN sTIN oPnt lPnt nTinElev)
(vl-load-tin)
(while (not bTIN)
(setq sTIN (car (entsel "\nSelect TIN > ")))
(if (EQ (vla-get-EntityName (vlax-ename->vla-object sTIN)) "BsysCvDbTinSurface")
(setq bTIN T)
(princ "\nThat was not a BricsCAD TIN :-( ")
)
)
(while
(setq oPnt (getpoint "\nSelect Point on TIN > "))
(setq lPnt (list (nth 0 oPnt) (nth 1 oPnt)))
(setq nTinElev (tin:elevationAtPoint sTIN lPnt))
(princ (rtos nTinElev 2 3))
)
)
0
Comments
-
Just more info ... TIN data are accessible through XREFs as well. This capability supports some existing processes much better.0