Thủ thuật xây dựng

Code 1: Chèn text cao độ tại các tâm hình tròn (circle) sẵn có.  Nội dung text là giá trị cao độ của tâm hình tròn. Ứng dụng code thường dùng cho các trường hợp bạn phân rã cao độ khảo sát ra đối tượng hình tròn cao độ là tâm. Sử dụng: Load code rồi nhập lệnh "btip01" chọn các hình tròn là xong. (defun c:btip01() (setq o (ssget) i 0) (repeat (sslength o) (setq a (entget (ssname o i)) p (cdr (assoc 10 a)) b (nth 2 p) i(1+ i)) (command ".text" "j" "r" p 0.8 0 (rtos b 2 3)))) Keyword:  Insert elevation text at existing circle centers, Lisp code.

BFx01.VLX - Đây là hàm chuyên dụng phục vụ tạo và khai thác mô hình lưới tam giác bề mặt. Cung cấp lệnh / hàm tạo mô hình lưới tam giác, tra cao độ ... Ứng dụng tạo code thiết kế đường, thoát nước, san lấp, nạo vét ... Click tải về tại đây Các lệnh sẵn có ZTE : Chuyển đổi text lên cao độ Z. LTG : Tạo lưới tam giác từ Text cao độ. LTT : Chọn lưới tam giác cần tra cứu. TCD : Tra cứu cao độ lưới. CCD : Chèn thêm cao độ. VEC: Vẽ véc tơ chỉ hướng PLine REV: Đảo hướng PLine vẽ Các hàm của BFx01.VLX GetZ (Pnt) : Hàm trả về cao độ lưới tam giác với điểm Pnt. Bạn cần gán: Pnt ( Điểm ) , 3dFace ( Mô hình lưới tam giác ) Ví dụ về hàm (vl-load-com) (setvar "cmdecho" 0) (prompt "\nChọn lưới tam giác cần tra cứu: ") (setq 3dFace (ssget (list (cons 0 "3DFACE")))) (setq Pt1 (getpoint "Chỉ định điểm cần tra cao độ:")) (print (GetZ Pt1)) ; In ra cao độ tra cứu. Trong phần tới "Thu thuat xay dung" sẽ giới thiệu phương pháp làm bình đồ San Lấp, Vẽ trắc dọc

Hàm SPLIT : Ngắt chia chuỗi - Cấu trúc : (split strg find)  strg : chuỗi cần ngắt, find : kí hiệu ngắt Hàm UBOUN : Trả về số lượng phần tử - Cấu trúc : (uboun lisd) lisd : danh sách