Skip to main content

Posts

Showing posts with the label Thủ thuật Lisp



Code dạo theo yêu cầu - Kỳ 1 (Lisp Code)

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.

Thư viện hàm về xây dựng và khai thác mô hình lưới tam giác

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

Tạo và hiệu chỉnh nhanh tỉ lệ dim text trong Autocad

Tải Lisp "BDtext.VLX" về máy rồi dùng lệnh AP của cad để load lisp vừa tải. Tính năng lisp giúp tạo và chuyển đổi nhanh đường dóng kích thước và chữ theo tỷ lệ nhập rồi cập nhật lại. Các lệnh trong Lisp: Click tải về tại đây  |  Video hướng dẫn   CR : Tạo nhanh định dạng Dim Text. UD : Update tỉ lệ Dim. UT : Update cao chữ Text. N1 : Chuyển text sang định dạng Normal (Cao chữ: 1.8) N2 : Chuyển text sang định dạng Normal (Cao chữ: 2.5) H1 : Chuyển text sang định dạng Header (Cao chữ: 3.5) H2 : Chuyển text sang định dạng Header (Cao chữ: 5.0) ST : Sắp xếp và căn chỉnh lại các dòng text theo khoảng cách. CD : Cut đường chân dim. BD : Bao đường đỉnh dim. SD : Điều chỉnh tỉ lệ dim (Scale Dim). FD : Nhân vào dim. PD : Thêm tiền và hậu tố cho Dim. OB : Xiên Dim. Lệnh UD&N1, N2, H1, H2 sẽ update cỡ dim và cao text theo SD Keyword: Lệnh cutdim, bounddim, căn chỉnh, sắp xếp text, hiệu chỉnh nhanh tỉ lệ kích thước.

Phát sinh dim theo tuyến Pline, bố trí hầm ga - cây xanh theo khoảng cách

Tải Lisp "BLines.VLX" về máy rồi dùng lệnh AP của cad để load lisp vừa tải. Tính năng lisp giúp ghi dim hoặc chèn Block theo các điểm gãy của Polypline dùng để bố trí cây xanh dọc tuyến theo khoảng cách đã biết. Ngoài ra Lisp còn hỗ trợ bố trí hầm ga theo Polyline định hướng khi biết khoảng cách theo tim giữa 2 hầm ga. Các lệnh dùng trong Lisp gồm: Click tải về tại đây  |  Video hướng dẫn PLI (Vẽ PLine với các điểm gãy theo khoảng cách cho trước) : Select Polyline ( Chọn tim tuyến dẫn hướng ) - Input distance ( Nhập khoảng cách vẽ điểm gãy ) PLD (Pline Dim - Ghi Dim theo các điểm gãy của Polyline ) : Select Polyline ( Chọn tim tuyến dẫn hướng ) - Input distance ( Nhập khoảng cách ghi Dim ) IBL (Insert Block theo điểm gãy của Polyline ) : Select Polyline ( Chọn tim tuyến dẫn hướng ) - Input Block name ( Nhập tên Block cần chèn )

Lisp xuất lưới tam giác bề mặt thiết kế

Tải Lisp "BCtour.VLX" về máy rồi dùng lệnh AP của cad để load lisp vừa tải. Các tính năng của Lisp xuất lưới tam giác bề mặt thiết kế nhằm phục vụ việc xuất cao độ đỉnh hầm ga - phục vụ thiết kế thoát nước - Tra cứu cao độ bề mặt thiết kế. Hạn chế thời gian nội suy cao độ khi thiết kế khu dân cư với mật độ hầm ga lớn.

Lisp chỉ hướng tạo vecter cho Polyline

Tải Lisp "BLines.VLX" về máy rồi dùng lệnh AP của cad để load lisp vừa tải. Bạn nhập lệnh VEC và sau đó chọn một polyline thì nó sẽ hiển thị mũi tên tạm thời cho thấy hướng của polyline. Khi bạn phóng to hoặc thu nhỏ, hoặc thậm chí sử dụng REGEN, các mũi tên tạm thời sẽ ngừng hiển thị. Muốn đảo hướng polyline ta dùng lệnh 

Lisp cắm cọc giải phóng mặt bằng

Tải Lisp "BLines.VLX" về máy rồi dùng lệnh AP của cad để load lisp vừa tải. Các tính năng Lisp - Phát sinh cọc giải phóng mặt bằng  - Bố trí nhanh mặt bằng cây xanh, Phát sinh nhanh địa vật phục vụ công tác khảo sát theo text điểm cho trước.

Một số tiện ích hiệu chỉnh nhanh bản vẽ

Tải Lisp BLines.VLX bằng lệnh AP của CAD. Sau đây là một số lệnh hiệu chỉnh nhanh bản vẽ trong Lisp này : 1. ROT : Xoay tất cả các đối tượng là Text hoặc Block theo tim tuyến cho trước. Chọn tất cả các Text và Block cần Xoay rồi Enter chọn Tim tuyến.

Tiện ích thống kê cốt thép trên Excel

Tải và mở file Excel : BSbar.xls tại sheet làm việc "Model"  click tại ô cần chèn thép thống kê. Nhấn vào hình dạng thép cần chèn. Sau đó nhập các kích thước trên hình dạng thép, đường kính, số lượng. Nếu muốn chèn thêm, chọn dòng cần chèn click vào nút "Chèn dòng", rồi tiếp tục nhấn vào hình dạng các thép cần chèn. Cuối cùng, xóa các dòng trống.

Lisp thống kê nhanh khối lượng bình đồ

Tải Lisp " BMass.rar " về máy sau đó giải nén vào thư mục "D:\BuildTip\" rồi dùng lệnh AP của cad để load lisp "BMass.VLX" vừa giải nén Các tính năng Lisp - 1.Thống kê nhanh chiều dài bó vỉa, diện tích vỉa hè, vuốt nối ...  - 2.Ghi và xuất khối lượng chiều dài gia cố, diện tích lấp ao rãnh ... bình đồ - 3.Thống kê diện tích hộ giải tỏa phục vụ công tác tính chi phí đền bù

Lisp thống kê thép hình trong cad

Tải file “TKSteel.rar” về máy. Hướng dẫn tải về - Hướng dẫn dùng Lisp. Trong ổ đĩa D: tạo thư mục Facebuild (D:\Facebuild), rồi copy file "TKThep.zip" vào và giải nén - Load lisp TKSteel.lsp vừa tải bằng lệnh AP (APPLOAD)

Lisp xoay Text và Block theo tim tuyến

Tải lisp “BLines.VLX” về máy. Load lisp vừa tải bằng lệnh AP (APPLOAD).  Yêu cầu: Đã có đường tim tuyến ( tim đường ) vẽ bằng Polyline liên tục.  Các lệnh trong Lisp phục vụ tính năng này gồm : Click tải về tại đây   |   Video hướng dẫn Lệnh ROT ( Rotate Text And Block ) - Chọn Text/Block cần xoay: < Chọn tất cả các text cao độ và block cây trên bản vẽ - Enter > - Chỉ định đường dẫn: < Chọn tim tuyến cần xoay theo > - Gốc cộng thêm: < Là gốc bạn muốn cộng thêm vào khi xoay text / block, tính bằng độ. Mặc định là 0.00 ( độ )> Không nhập mà Enter để chọn giá trị mặc định. Ngoài ra để góc xoay tăng độ chính xác. Tại command lệnh nhập DCX ( Độ chính xác ). Sau đó nhập giá trị mức độ chính xác ( nên từ 0.5 đến 0.01 ), mặc định là 0.1 - Giá trị càng nhỏ càng chính xác nhưng lệnh sẽ thực hiện lâu hơn. Lisp thường dùng trong thiết kế giao thông. Để xoay các text cao độ, hoặc các block địa vật theo tim tuyến phục vụ cho bản in trên Layout ... Keywords

Lisp thống kê cốt thép, Lisp ghi mặt cắt trong cad

Tải file “TKThep.zip” về máy. Hướng dẫn tải về - Hướng dẫn dùng Lisp. Trong ổ đĩa D: tạo thư mục Facebuild (D:\Facebuild), rồi copy file "TKThep.zip" vào và giải nén - Load lisp TKThep.lsp vừa tải bằng lệnh AP (APPLOAD)

Lisp điền lý trình trong cad, tra cứu lý trình điểm nằm ngoài tim tuyến

Tải lisp “BLines.VLX” về máy. Hướng dẫn tải về - Hướng dẫn dùng Lisp. Load lisp vừa tải bằng lệnh AP (APPLOAD) Yêu cầu: Đã có đường tim tuyến ( tim đường ) vẽ bằng Polyline liên tục. Lisp gồm các lệnh sau: Click tải về tại đây   |  Video hướng dẫn   Các lệnh trong Lisp phục vụ tính năng này gồm: TLT :  Tra lý trình từ điểm chỉ định và PLine tuyến được chọn. VEC , REV : Xem và đảo hướng tuyến của Polyline được chọn. Lisp thường dùng thiết kế giao thông. Để ghi lý trình cọc giải phóng mặt bằng, Ghi lý trình hố ga theo tuyến, Ghi lý trình bố trí cọc tiêu biển báo trong bản vẽ... Keywords : Lisp ghi ly trinh trong cad, Lisp dien ly trinh coc ...

Lisp điền diện tích trong Cad

Tải lisp “WriteArea.lsp” về máy. Hướng dẫn tải về - Hướng dẫn dùng Lisp. Load lisp vừa tải bằng lệnh AP (APPLOAD) Yêu cầu trên bản vẽ có sẵn Text để thay thế giá trị.

Lisp xác định phạm vi giải tỏa tầm nhìn

Tải lisp “TamNhin.lsp” về máy. Hướng dẫn tải về - Hướng dẫn dùng Lisp. Load lisp vừa tải bằng lệnh AP (APPLOAD) Yêu cầu: Quỹ đạo di chuyển của luồn xe trên đường ( làn xe ) vẽ bằng Polyline liên tục.

Lisp xuất lưới tam giác từ text cao độ

Tải lisp “BCtour.VLX” về máy. Hướng dẫn tải về - Hướng dẫn dùng Lisp. Load lisp vừa tải bằng lệnh AP (APPLOAD). Các lệnh trong Lisp phục vụ tính năng này gồm: 1. "ZTE" - Chuyển text lên cao độ mà nó đang chứa. Ví dụ nội dung text là 2.31 sau khi dùng lệnh thì giá trị Z điểm chèn của text đó là 2.31 2. "LTG" - Tạo lưới tam giác từ text cao độ. Click tải về tại đây  | Video hướng dẫn Yêu cầu: Đã có sẵn text cao độ và text cao độ phải có giá trị Z điểm chèn bằng giá trị cao độ text. Tại command lệnh nhập LTG - Chọn tất cả các text cao độ cần tạo lưới tam giác. Enter ta được lưới tam giác cần tạo. 2. "TCD" - Tra cao độ tại một điểm và chèn text cao độ tại điểm đó ra bản vẽ. Tại command lệnh nhập TCD - Nhập cao chữ text cao độ cần chèn. Chọn lưới tam giác vừa tạo ( Khi chọn có thể chứa các đối tượng khác lưới tam giác ) . Enter và chỉ điểm cần tra cứu cao độ. Ta được text cao độ điểm cần tra trên bản vẽ. Lisp thường dùng để lấy cao độ đỉnh ga phục

Lisp thống kê vạch sơn tự động

Tải lisp “VachsonFB.lsp” về máy. Hướng dẫn tải về - Hướng dẫn dùng Lisp. Load lisp vừa tải bằng lệnh AP (APPLOAD). Tạo lớp Layer cho từng loại vạch sơn. Vi dụ :  Vạch sơn 1.10 rộng 10cm dày 1.5mm liền nét  . Có hai cách :

Lisp tra va xuat cao do tu luoi tam giac

Tải lisp “BCtour.VLX” về máy. Hướng dẫn tải về - Hướng dẫn dùng Lisp. Load lisp vừa tải bằng lệnh AP (APPLOAD) Yêu cầu : Đã có sẵn lưới tam giác xuất từ phần mềm Nova hoặc từ các tiện ích lisp khác (nên lưu lên một Layer riêng).

Lisp điền yếu tố cong cho bán kính cong

Tải lisp “BLines.VLX” về máy. Hướng dẫn tải về - Hướng dẫn dùng Lisp. Load lisp vừa tải bằng lệnh AP (APPLOAD).  Tại Command lệnh gõ lệnh YTC <Yeu To Cong> Click tải về tại đây  | Video hướng dẫn Input scale plan 1/ : <500> Nhập tỷ lệ bình đồ thiết kế Giá trị nhập là 500, 1000, ... (Mặc định là 1/500) Select arc object : Chọn bán kính cong cần điền thông số yếu tố cong Insert point table : Chỉ định điểm chèn bảng thông số cong trên bản vẽ Select arc object : Chọn đường cong khác hoặc enter để kết thúc lệnh. Lưu ý: Đối tượng chọn là các đối tượng arc (cung tròn) Keywords : Lisp ghi thong so ban kinh cong, Lisp tinh toan thong so duong cong, Tải lisp miễn phí, Download free Lisp.