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

luongtienlanh

Thành viên
  • Số lượng nội dung

    33
  • Đã tham gia

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

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


  1. 2 giờ trước, minhhung15142209@gmail.com đã nói:

    bạn thử lsp của cụ lee này:

    http://lee-mac.com/mask.html

    Em thử rồi không được anh ạ.

    LeeMac cũng nói là nó không chỉnh được cái offset factor của Dimensions "This argument is ignored for Dimensions, as the background mask for Dimensions does not support an offset factor. The argument is also ignored if the msk argument is nil."

    • Like 1

  2. Nhờ các anh sửa Lisp sau giúp em với ạ.

    Em tìm được lisp dưới đây để tùy chỉnh kích thước của dimension background mask so với kích thước mặc định của autocad.

    Tuy nhiên gặp vấn đề là Lisp này chỉ cho chọn 1 đối tượng trong 1 lệnh, nên khi chỉnh nhiều đối tượng sẽ mất rất nhiều thời gian. Nhờ các anh chỉnh giúp để sao nó có thể thực hiện cho nhiều đối tượng trong 1 lệnh với ạ.

    Link bài viết thảo luận về chủ đề Lisp này:

    https://forums.autodesk.com/t5/autocad-forum/dimension-fill-color-text-box-size/m-p/6984969/highlight/false#M872421

    Link tải Lisp của tác giả viết Lisp:

    https://cadtips.cadalyst.com/2d-editing/adjust-dimension-text-masking
    Em cám ơn các anh nhiều!

    DimFillResize.lsp

    DimFillResize.png


  3. Em chào các anh. Có một vấn đề liên quan đến góc quay của text em muốn nhờ anh nào biết chỉ giúp em với ạ.
    Với các bản vẽ bình thường nếu để Rotation của text = 0 thì chữ sẽ nằm ngang. Nhưng không hiểu tại sao trong bản vẽ này em để Rotation của text = 0 thì text lại bị xoay dọc như vậy.

    Muốn để text nằm ngang thì phải chỉnh lại Rotation của text = 270.

    Giờ em muốn khi để Rotation text = 0 thì text nằm ngang như bình thường thì phải làm như thế nào ạ?

    Em cám ơn ạ.

    1.JPG


  4. Em có 1 tập hợp rất nhiều điểm point có Position Z khác nhau (Điểm mia đo cao độ) nhờ các pro viết giúp em lisp lọc đối tượng Point có Position Z nhỏ hơn hoặc lớn hơn một giá trị nào đó mình nhập vào. 

    Thứ tự thực hiện: Lệnh Pnho hoặc Plon -> nhập giá trị để so sánh lọc -> chọn tập hợp các điểm point -> kết quả chọn được các điểm point như mong muốn.

    Em cám ơn các pro nhiều!


  5. Bác Doan Van Ha cho em nhờ thêm chút nữa ạ. Bác có thể chỉnh giúp em sao cho trong trường hợp có nhiều đối tượng có cùng Position Z nhỏ nhất hoặc cao nhất mình chọn 1 lúc tất cả các đối tượng cùng Position Z đấy không ạ? Em vừa dùng thử thì khi có nhiều point có Position Z bằng nhau thì phải lệnh nhiều lần để tìm được hết.


  6. Bản vẽ của em có 1 loạt điểm point với Position Z khác nhau. Em xin nhờ các bác viết lisp tìm điểm point có Position Z nhỏ nhất và lớn nhất trong các điểm point có trong 1 vùng lựa chọn nào đó.

    Thứ tự thực hiện kiểu như sau:

    - lệnh pmin -> quét chọn vùng chứa các điểm point -> kết quả chọn được điểm point có Position Z nhỏ nhất.

    - lệnh pmax -> quét chọn vùng chứa các điểm point -> kết quả chọn được điểm point có Position Z lớn nhất.

    Em cám ơn nhiều!


  7. Tại sao các yêu cầu này k làm Data Extraction nhỉ ^^

    Mà ketxu thấy bác Dinhvantrang chưa set focus lại Excel và CAD sau khi export và Click double, chưa đặt Cancel = True trong action Doubclick, đúng k nhỉ :D

    Em thử dùng lệnh DataExtraction trong cad lọc mà nó không có phần tích lọc giá trị của Dim bác ạ.

    Với em thì cách làm của bac Dinhvantrang là đủ dùng rồi nhưng bác ketxu có phương án nào tối ưu hơn để em tham khảo không ạ?

    • Vote tăng 1

  8. Gửi bạn nhé.

    https://drive.google.com/file/d/0B143PJiW5hQbZ2R6MTRWbThBMHM/view?usp=sharing

     

    Ở cột ID (cột A) bajn double Click vào để Zoom tới cái Dim đó khi cần kiểm tra. Mình lấy các thông tin ra cho bạn như, Prefix, Length, Suffix, Dimstyle. Hy vọng đúng như bạn cần.

    Cám ơn bác rất nhiều.

    Bác xử lý còn tuyệt vời trên cả mức em mong đợi.

    Chúc bác nhiều sức khỏe và công tác tốt! 

    • Vote tăng 1

  9. Công việc của em đang làm là Quy hoạch mạng lưới thoát nước mưa. Trong đó các thông số của cống em sử dụng Dimension như trong file Autocad đính kèm. Đại khái các Dimension của em sẽ gồm Prefix (tiết diện cống) + giá trị Dim (Chiều dài) + Suffix (độ dốc). 

    Giờ em muốn lập bảng excel thống kê Tổng chiều dài của từng loại cống. Em định lọc giá trị tiết diện cống và chiều dài (hoặc tổng chiều dài) tương ứng.

    Các bác có thể giúp em viết lisp để xử lý bài toán này không ạ?

    Hoặc là có thể xuất tổng giá trị các Dim của 1 loại Dim Style cũng được ạ.

    Em không biết gì về Lisp cả nên phải đi nhờ em cũng ngại lắm.

    Rất mong được các bác giúp đỡ. Em cám ơn nhiều ạ!

    http://www.cadviet.com/upfiles/7/124491_kl_tnm_2.dwg

    (Cấu trúc Dim của em thế này ạ)

    124491_capture.png

    • Vote tăng 1
    • Vote giảm 1

  10. Các bác viết giúp em lisp gán nội dung của text này sang text kia mà không làm thay đổi các định dạng của text gốc được không ạ. giả sử text gốc là A, text kia là B, giờ muốn nội dung của A giống của B. Sau khi gán thì tự động xóa B đi. Xin cám ơn!

    http://www.cadviet.com/upfiles/4/124491_xin_lisp_gan_noi_dung_text_1.dwg

    • Vote giảm 1

  11. Cám ơn bác thanhduan2407 đã quan tâm.Em đã test và hình như kết quả xuất ra tính theo khoảng cách giữa điểm đặt 2 text phải không ạ. Em muốn kết quả tính ra là theo khoảng cách giữa 2 điểm mình kích nên bác có thể chỉnh lại giúp em như thế này không ạ:kích điểm 1=> chọn text cao độ điểm 1 => kích điểm 2=> chọn text cao độ điểm 2=>kích điểm chèn=> cao độ nội suy. Cao độ nội suy tính căn cứ vào khoảng cách của các đoạn thẳng. Công thức tính cao độ nội suy theo điểm có cao độ cao hơn (giả sử là điểm 1): CD=CD1- {(CD1-CD2)*L1/L}. Trong đó:

    CD: là cao độ điểm chèn cần tính; CD1 là cao độ điểm 1(điểm cao hơn); CD2 là cao độ điểm 2; L là khoảng cách giữa 1 và 2; L1 là khoảng cách giữa điểm chèn và 1. Cám ơn bác nhiều ạ!

×