Bảng xếp hạng

Mình có viết 1 lisp hỗ trợ vẽ nhanh các loại thép hình theo tiêu chuẩn VN, tiêu chuẩn châu âu. Các bạn làm công việc liên quan có thể xem qua video sau:

(100 . "AcDbRotatedDimension") (-3 ( "ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 69) ;; <--------------- Background Text Fill Colour (1070 . 1) ;; <--------------- Background Text Fill Colour (1002 . "}") ) ) ) @Lee-Mac : nằm trong dữ liệu Dim Xdata override. Bạn muốn biết rõ thì nó nằm trong code của lisp Mask v1.5, chú ý 2 hàm mask:getdimxdata và mask:setdimxdata để biết cách append thêm 2 mã này cho đối tượng http://lee-mac.com/mask.html Trước việc này bạn có thể làm bằng Dim Update sau khi gán Dimtfill rồi Dim -> Update -> All. Giờ thì lệnh Dim bị bỏ rồi, bạn cũng có thể làm bằng Dim1. Code kruuger / Theswamp . Bạn có thể search (Defun C:BMM (/ lst object SC STYL) (vl-load-com) (setq lst (entsel "\nSelect dimension object: ")) (setq object (car lst)) (setq object (vlax-ename->vla-object object)) (if (wcmatch (vla-get-objectname object) "AcDb*Dimension") (progn (setq STYL (vla-get-StyleName object)) (command ".dimstyle" "r" STYL) (setq SC (vla-get-ScaleFactor object)) (setvar "dimscale" SC) (setvar "dimtfill" 1) (command "DIM1" "UPDATE" lst "") (command ".draworder" (car lst) "" "front") (setvar "dimtfill" 0) );progn );if ) Hoặc bạn cũng có thể chỉnh bằng Dimtfill -> 1 -> -Dimstyle -> Apply -> Chọn các Dim -> Draw order -> Front (defun c:foo(/ s oTF) ;@Ketxu 10/2020 (setq s (ssget (list (cons 0 "DIMENSION"))) oTF (getvar 'Dimtfill) ) (setvar 'Dimtfill 1) (command "-dimstyle" "Apply" s "") (command ".draworder" s "" "front") (setvar 'Dimtfill oTF) )

Sách Excel nâng cao và ứng dụng trong Xây dựng mới ra lò. Sách phù hợp với ai hoạt động trong lĩnh vực kỹ thuật như Xây dựng, Giao thông, Địa chất công trình - Địa kỹ thuật, Thủy Lợi, Thống kê... Gồm 15 chương với 420 trang. Các bạn có thể mua như sau: Link Facebook: https://www.facebook.com/groups/598088926920174

Bạn thử chạy xem nhé. Lệnh là: VeDC Vì Bạn chỉ đưa 1 mặt cắt nên chưa thực hiện kiểu bao chọn được. Nếu cần kiểu bao cả đám, Bạn đưa cho mình thật nhiều m/c như thế Bạn thực hiện theo yêu cầu trên màn hình. Thân chào! VeDC.LSP

Đã viết cho bạn đây, lệnh là C2P nhé C2P-Circle to Point.zip

Dưới đây là lisp convert các mã font thông dụng (unicode, tcvn, vni, xược) trong AutoCAD. Chương trình tự nhận dạng mã font hiện hành của đối tượng text. Sau khi Appload xong: Dùng lệnh cfu để chuyển font sang unicode Dùng lệnh cft để chuyển font sang tcvn Dùng lệnh cfv để chuyển font sang vni Dùng lệnh cfx để chuyển font sang xược (/) Dùng lệnh cfk để chuyển font sang không dấu Dùng lệnh cf+ để chuyển font sang chữ hoa Dùng lệnh cf- để chuyển font sang chữ thường File lisp: Download Lisp chuyển font (để tham khảo) File vlx: convertfont.vlx (download và sử dụng file này) Câu hỏi thường gặp Hỏi: Sau khi chuyển font, tôi vẫn chưa đọc được Đáp: Sau khi chuyển font, bạn phải chỉnh cả style phù hợp thì mới đọc được (nếu style chưa phù hợp với mã font) Hỏi: Text của tôi là TCVN (vì sử dụng font .vnArial hiển thị bình thường), nhưng không thể convert được sang bất cứ mã nào. Khi convert dường như Text không hề thay đổi. Đáp: Có thể mã chữ của bạn được viết theo mã %%. Cách kiểm tra xem có phải mã này không bằng cách dùng lệnh LIST rồi chọn một text có tiếng việt. Nếu bạn thấy tại các vị trí ký tự nguyên âm là dấu %%, thì bạn phải "sửa" text trước khi dùng mã lệnh này. Cách sửa bạn xem ở đây: http://www.cadviet.com/forum/topic/150896-lisp-chuya-n-a-i-ma-font-cha-trong-autocad/?p=386883 Hỏi: Tại sao khi tôi chuyển từ TCVN sang các mã khác, các chữ có dấu bị hoa-thường không đúng. Đáp: Vì font TCVN có nhược điểm là dùng chung mã chữ (char code) cho cả chữ hoa hoa và chữ thường thường. Vì vậy khi convert sang mã khác, sẽ không đúng ý. Muốn được đúng, bạn cần convert sang mã khác, sau đó dùng lệnh cf+ hoặc cf-. Lịch sử phát triển 2015-10-04: Phiên bản đầu tiên 2015-10-05: - Hiệu chỉnh lỗi tên file - Tính năng tự tìm mã font - Tính năng loại bỏ dấu 2015-10-06: - Sửa lỗi - Tính năng chữ hoa / chữ thường - Sửa / rút ngắn số lệnh 2015-11-23: - Cải tiến tính năng tự tìm mã font - Cải tiến tốc độ chạy chương trình - Bổ sung tính năng xác định thời gian 2015-11-27: - Upload file lisp thay vì download file. ____________________________________________

Của bạn đây. PLT.lsp

Không phải lỗi gì hết. Bật các layer muốn hiển thị lên là được.

Sai chỗ car(a1) và car(a4) sửa lại thành (car a1) và (car a4). (defun c:vvd () (setvar "CMDECHO" 0) (setq a1 (getpoint "\n Nhap diem thu 1:")) (setq a2 (getpoint a1 "\n Nhap diem thu 2:")) (setq a3 (getpoint a2 "\n Nhap diem thu 3:")) (setq a4 (getpoint a3 "\n Nhap diem thu 4:")) (setq a0 (list (+ (car a1) 2) (cadr a1) 0)) (setq a5 (list (- (car a4) 2) (cadr a4) 0)) (setq oldos (getvar "osmode")) (setvar "osmode" 0) (command "pline" a0 a1 a2 a3 a4 a5 "" ) (setvar "osmode" oldos) (princ) )

(setq a0 (list (+ car(a1) 2) (cadr a1) 0)) (setq a5 (list (- car(a4) 2) (cadr a4) 0)) (command "pline" a0 a1 a2 a3 a4 a5) (Setvar "OSMODE" 0) Sửa lỗi : (setq a0 (list (+ (car a1) 2) (cadr a1) 0)) (setq a5 (list (- (car a4) 2) (cadr a4) 0)) (command "pline" "non" a0 "non" a1 "non" a2 "non" a3 "non"a4 "non" a5 "") Code tóm lại đã chạy được. Còn đúng ý hay không thì tùy chủ thớt.

GÓP Ý VỀ VIỆC VẼ “LỤI”. Đúng là Bạn góp ý chính xác nhưng có lẽ ở đây buộc và thường làm như vậy. Ở đây ta đang xét về cắt ngang 1 tuyến đường nhỏ miền núi, theo như mình biết thường người ta chỉ làm địa chất may ra trên trắc dọc và thường các trắc ngang không làm địa chất mà vẽ nội suy song song theo địa hình; Điều này là có thể chấp nhận được nếu theo sườn đồi vì thường trắc ngang chỉ trên 1 phạm vi hẹp khoảng 10 -:- 15 m, tuy nhiên nếu đường đi xuống 1 khe suối thì sẽ khác. Đặc biết nếu là tuyến đường mở rộng thì có thể dựa vào vách đào đã có để phán đoán địa chất. Các bạn biết 1 m khoan tay đã là 2.2 tr đồng như vậy nếu 1 hố nếu chỉ 2 m sâu thì cũng đã 4.5 tr/1 hố và thường 1km đường nếu khoan trên trắc dọc thì cũng đã 30 x 4.5 tr = 135 tr đồng đó chỉ là mới chỉ riêng 1 việc khoan địa chất đường còn nếu thêm các công việc khác như thiết kế, đo địa hình, thăm dò bãi đất v,v,,, thì sẽ là 5 x 135 = 0.7 tỉ đồng cho 1km là quá lớn (công tác khảo sát, thiết kế) nếu khoan thêm trên cắt ngang thì thêm 135 tr cho 1 km đó. Do đó thường người ta vẫn làm vậy mà không gây sai số lớn lắm. Ấy là bây giờ chứ trước đây nghe nói có khi người ta chỉ tính phần trăm khối lượng thôi đó các bạn, ví dụ đào nền đường 100.000m3 thì tính 30% đất cấp IV chẳng hạnv.v… để tính dự toán. GIẢI THUẬT CHO 1 BÀI TOÁN. Mình muốn share vài dòng về bài toán đang xét để các bạn cùng xem và ý kiến (nếu có), nó cùng là nhằm tích thêm kinh nghiệm cho những ai ham thích việc viết thuật toán. Để viết 1 chương trình cho máy tính giải giúp thay con người như cụ thể bài toán này thì cần như sau: - Việc trước tiên là ta cần hiểu biết cách giải bài toán đó. Càng hiểu sâu càng tốt, như ở đây là bài toán chỉnh sửa các đường phân ranh địa chất nền đất, nó là lớp đất cấp I, cấp II, đá v.v… cấp đất này sẽ ảnh hưởng đến việc tính toán dự toán kinh phí xây dựng tuyến đường. - Ta cần tìm ra những qui luật chung của bài toán đang giải. Cụ thể ở đây ta thấy việc chỉnh sửa các đường địa chất ở đây phụ thuộc vào 1 đường cái tức đường tự nhiên do vậy cần túm các đối tượng chung lại nghĩa là tóm từng nhóm đường tự nhiên và đường địa chất tương ứng. Ở đây ta thấy qui luật đó là đường địa chất và đường tự nhiên có cùng toạ độ x, tuy nhiên ở đây cũng lưu ý là nếu mặt cắt trên và 1 m/c khác tiếp theo vẽ cùng x thì ta cũng tìm cách loại nó ra. - Sau khi có 1 tập (danh sách) các m/c thì ta sẽ sử lý từng phần tử đó. Lúc này ta thấy việc chỉnh sửa đường địa chất là từ điểm giao của nó vào đường tự nhiên nên sẽ bắt đầu từ đây, nghĩa là phải biết được 2 điểm đó và vậy phải biết 2 điểm cho trước này (lưu ý là ta lấy thực tế ở đây là toạ độ x của điểm đó còn y ta không quan tâm). Biết được 2 điểm đó ta tách đoạn giữa 2 điểm đó ra khỏi Poly nguồn thành 1 danh sách và vẽ nó là etn, đến đây ta sẽ xét các đường con địa chất trong mỗi tập danh sách v.v. (sẽ viết tiếp nếu các bạn quan tâm) Vài lời xem như đóng góp cho diễn đàn vậy. Thân chào.

Nếu cần nghiên cứu cho công việc thì mới cần hiểu hết, k thì cứ y án mà copy paste cho nhanh ván bạn ạ :))

vlax-put-property: TextFill & TextFillColor

(setvar "DIMTFILL" 0) (setvar "DIMTFILL" 1) (setvar "DIMTFILL" 2)

Vào đây download về nhé https://www.facebook.com/httkd/

Xem kỹ bản vẽ thì thấy khảo sát địa chất quá lụi: - Copy đường TN => đường đc - Đường TN vẽ từ kq đo đạc nên chính xác 2 số lẻ (cm). Đường ĐC chính xác trên 8 số lẻ: công nghệ nano chăng? - Sau khi thi công, đường đc lại song song với nền đường : vô lý. Có lẽ bạn và quocmanh04tt thuê cùng 1 cty khảo sát. Theo cách làm thì trong phạm vi đường - Trong video bạn quocmanh04tt nội suy đường ĐC cũ. Nhưng không có bản vẽ nên không rõ mc 3 và 7 đường ĐC dưới làm theo cách nào - Trong bản vẽ letu_cds ngoại suy đường ĐC cũ theo bên trái và phải mc cọc H6, nhưng 2 m/c kia thì không theo tiêu chí này. Nếu xác định rõ cách làm, bản vẽ đưa lên có DIM nên chỉ cần quét 1 lần là xong

Đây Bạn nhé! Lệnh là VeDC nhé. (Chắc bạn rành rồi) Chào. VeDC.LSP

Nhìn qua tôi không hiểu rõ công việc, nhưng có vẻ không khó.

Gửi letu_cds. Mình đã xem file DWG, bài toán của bạn ko dùng lisp bạn đưa trên video được đâu. Mình sẽ viết nhưng 3,4 hôm nữa mới xong. Ko biết lúc đó Bạn co cần nữa ko. Chào nhé

Bạn cho mình xem file bản vẽ DWG xem sao nhé. Thân chào!

Cài thêm Express Tool cho cad đi nhé bạn

Chắc có lisp nào chạy tự động khi bật cad.

Lisp khó như này chắc chắn phải trả phí, bạn liên hệ vói chủ nhân lisp đó xem sao.

Làm giúp bạn nhé, Cao độ Circle đã bằng cao độ bên cạnh 111.dwg

Xin giới thiệu các bạn lisp nhé: - Lisp sẽ tính và ghi diện tích của Hatch vào Block chỉ tiêu khu đất - Áp dụng nhiều layer hatch cùng lúc - Tùy chọn ghi tên, số thứ tự vào tên lô đất - Tạo bảng thống kê diện tích đất theo tên đất nhanh chóng ** Xem thêm * Lisp in nhanh bản vẽ: https://www.youtube.com/playlist?list=PL05frYPpT5LLRHAE9W-osYor9Jbe7nOg- * Các tiện ích hay: https://www.youtube.com/channel/UC1hTw22snwp1H47Y1DzmoHA/playlists?view_as=subscriber * Thông tin cập nhật truy cập: https://www.facebook.com/cad.bietve hoặc bietvecad@gmail.com ** Video: