Chuyển đến nội dung
Diễn đàn CADViet

PHONGVAN1804

Thành viên
 Xem Hồ Sơ  Xem hoạt động của họ

  • Số lượng nội dung

    12

  • Đã tham gia

  • Lần ghé thăm cuối

Bài đăng được đăng bởi PHONGVAN1804

  1. Đã đăng · Trả lời báo cáo

    Phần Mềm Hoàn Công Phân Lớp San Nền
     Phân Lớp San Nền, Phần Mềm Phân Lớp, Phần Mềm Xây Dựng
     

    https://www.netxaydung.com/2020/02/phan-mem-phan-lop-san-nen.html

    Phần mềm Phân Lớp San Nền hỗ trợ các bạn làm hoàn công nghiệm thu San nền một cách nhanh chóng, tiết kiệm thời gian công sức.
    - Nhanh chóng tạo bản vẽ mặt bằng phân lớp san nền.
    - Tùy chọn chiều dày lớp đắp
    - Tạo sai số thi công ngẫu nhiên theo thông số cài đặt
    - Vẽ ranh giới mặt bằng thi công lớp.
    Hướng dẫn sử dụng :

    1. Tải ứng dụng tại đây : https://www.netxaydung.com


    2. Gọi lệnh AP để load 2 lisp
    3. Gọi lệnh PLSN
    4. Lưu ý : - Thư mục chứa phần mềm và đường dẫn không được chứa ký tự tiếng Việt
    - Phiên bản cad từ 2010 trở lên phải cài thêm Modul VBA : Link
    5. Bảng lệnh tắt :



    Phân lớp đất đắp nền đường 2021.
    Net Xây Dựng June 12, 2021 Phần Mềm Phân Lớp, Phần Mềm Xây Dựng
    Phần mềm phân lớp đất nền đường giúp anh em kỹ sư tự động hóa công tác phân lớp nghiệm thu nền đường K95, cao độ nền đào. Phần mềm được thiết kế giảm thiểu tối đa các thao tác của các bạn khi phân lớp đất đắp bằng thủ công cũng như kiểm soát những sai sót không đáng có, tăng năng suất công việc cho các bạn lên gấp nhiều lần.


    Phần mềm giúp gì cho Bạn?

    Xuất cao độ, khoảng cách trên trắc ngang từ các điểm tùy chọn( số điểm không hạn chế)- Xuất Phụ lục cao độ và kích thước hình học đối với thi công đào nền, đào khuôn, vét hữu cơ, đánh cấp......

     

    Phân lớp đất đắp nền đường với chiều dày lớp đắp tùy chọn kèm theo các thông số: Diện tích lớp, cao độ, khoảng cách ......

    Tùy chọn cách đánh số thứ tự lớp từ trên xuống hoặc từ dưới lên tùy theo yêu cầu, chỉnh sửa tùy biến phân lớp.

    Xuất các thông số kết cấu áo đường, mặt đường

    Toàn bộ nội dung được xuất ra excel kèm theo các bảng Phụ lục cao độ và kích thước hình học đã được thiết kế phù hợp.

    Phần mềm có thể sử dụng trên các mặt cắt do các phần mềm khác nhau xuất ra, miễn là tỉ lệ 1:1 và đầy đủ các thông số cần thiết .....

    Sử dụng tốt nhất trên các phiên bản Cad 2007 và Excel 2007

    Link Dowload phần mềm : NETXAYDUNG.COM

    Liên hệ qua Zalo : 0974.502.080

     

    Chỉnh sửa cuối: 7 phút trước

    Hinh anh.JPG

    1.JPG

    2.JPG

  4. Đã đăng · Trả lời báo cáo

    Mình sửa lại thế này mà sao nó chyaj không thoát khỏi vòng lặp được.

     

     

     

    (defun c:cht (/ ss tong eCD3 txtOBj)

    (vl-load-com)

    (princ "\nCHon cac doi tuong text")

    (setq ss (ssget (list (cons 0 "TEXT,MTEXT")(cons 8 "CD1,CD2,CD3"))))

    (setq tong 0 i 0)

    (while (setq txtObj (ssname ss i)) ;Khi nào còn (ssname ss i) thì v?n ch?y vòng l?p

    (if (wcmatch (cdr (assoc 8 (entget txtObj))) "CD1,CD2") ;n?u thu?c 2 layer CD1,CD2

    (setq tong (+ tong (atof (cdr (assoc 1 (entget txtObj)))))) ; thì c?ng vào t?ng, dùng hàm atof d? l?c s?

    (setq eCD3 txtObj));N?u không ph?i thu?c CD1,CD2 thì t?c là d?i tu?ng thu?c CD3, l?y ra d? x? lý ? bu?c ghi k?t qu?

    );K?t thúc vòng l?p while

     

    (vla-put-textstring txtObj tong)

    )

  5. Đã đăng · Trả lời báo cáo

    Nếu bạn đã biết sơ sơ rồi mình gợi ý bạn làm tổng quát nhé :) Hãy tự tay làm để thấy kết quả

    1. Chọn hàng loạt text : bao gồm text ở cả 3 layer bằng ssget ,và lấy ví dụ chỉ ghi kết quả vào 1 tượng thuộc CD3 :

     

    2. Khởi tạo biến tổng bằng 0, biến đếm bằng 0. Biến đếm dùng để duyệt qua tập đối tượng

     

    3. Duyệt qua tập ss, thấy thằng nào thuộc layer CD1, CD2 thì cộng vào tổng :

     

    4. Ghi text vào eCD3 đã tìm được trong vòng lặp :

    Sử dụng entmod + subst hoặc dùng vla-put-string. Cái này để bạn tự tìm hiểu, nếu thấy không được thì lại alo :)

    Thank bạn nhiều, bạn cho mình luôn một file, chứ mình làm lại theo bạn vẫn chưa được, cảm ơn bạn rất nhiều !

  6. Đã đăng · Trả lời báo cáo

    Em nghĩ bác ấy nói chung chung là vậy, nhưng thực ra là có thể có nhiều layer hoặc ít hơn. Cách giải quyết là cho bác ấy chọn thoải mái nhưng kết quả ghi ra là theo layer thậm chí cở chữ font chữ theo đối tượng đầu tiên được chọn.

     

    Mình gởi file lên mấy bạn giúp mình xem thử , mới biết lisp sơ sơ chưa làm được mấy cái này

    http://www.mediafire.com/?wh4nx1y0acbynm0

  12. Đã đăng · Trả lời báo cáo

    Các bậc tiền bối cho tôi hỏi tí:

    Khi vẽ bất kỳ một bản vẻ và khi Dim kích thước bản vẽ đó xong rồi khi copy bản vừa vẽ và Dim kich thước đó sang chỗ khác (trong cùng bản vẽ hay khác bản vẽ) thì kích thước đó bị chạy "tùm lum" hết à, chẳn hạn như đường Dim dài ra ngắn lại nói chung là đủ thứ "trò" hết à khó chịu lắm. Các bậc tiền bối có ai có gặp trường hợp này chưa nếu có gặp rồi thì có cách nào giải quyết không xin "cứu" với.

    Thanks

    cai này trước kia tui cũng hay bị sau này tui phát hiện ra lệnh này:\

    trước khi di chuyển gõ lệnh : dda

    chọn tất cả các bản vẽ --- enter

    rồi di chuyển thử đi nếu còn chạy nữa tui chết liền

    • Vote tăng 1
×