Thấy việc thiết thực của vấn đề nên mình viết cho mọi người cách nội suy điểm trên bề mặt 3Dface (Nội suy trên mô hình TIN).
Lisp này bạn có thể apload và dùng được ngay trên Autocad.
Lisp nội suy độ cao trên bề mặt 3Dface
Tên Lệnh: 3DF
Cách sử dụng:
Để nội suy độ cao trên bề mặt 3Dface thì cần có một bề mặt 3Dface.
- Cách tạo bề mặt 3Dface: Từ tập điểm (Point hoặc Text) => Dùng lệnh TIN => Quét chọn tập điểm (Point hoặc Text) => Kết quả
- Dùng lệnh 3DF => Nhập cao chữ cần ghi độ cao lên màn hình => Quét chọn toàn bộ 3Dface vừa tạo =>
Kích chọn điểm cần nội suy.
Link: Mediafire
Tác giả: Nguyễn Thiên Đường
Nguồn: Trắc địa Pro
toàn ra 0.000
ReplyDeleteCao độ ra 0.00
ReplyDeleteLisp chạy rất tốt. Cảm ơn bạn rất nhiều vì đã chia sẻ. Chúc bạn mạnh khoẻ và thành công.
ReplyDeleteLisp gốc này là của mấy bác Nga Ngố^^:
ReplyDelete(defun c:TIN(/ I L S)
(command "layer" "n" "TIN" "c" 255 "TIN" "m" "TIN" "")
(princ (strcat "\n select points"))
(if (setq i 0
s (ssget '((0 . "POINT")))
) ;_ setq
(progn (repeat (sslength s)
(setq l (cons (cdr (assoc 10 (entget (ssname s i)))) l)
i (1+ i)
) ;_ setq
) ;_ repeat
(eea-delone-triangulate i l)
) ;_ progn
) ;_ if
) ;_ defun
(defun eea-delone-triangulate
(i1 L / A A1 A2 A3 I I2 L1 L2 L3 LP MA MI P S TI TR X1 X2 Y1 Y2)
;;*********************************************************
;;
;; Written by ElpanovEvgeniy
;; 17.10.2008
;; edit 20.05.2011
;; Program triangulate an irregular set of 3d points.
;;