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

nguyensang9798@gmail.com

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

  • Số lượng nội dung

    29

  • Đã tham gia

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

Bài đăng được đăng bởi nguyensang9798@gmail.com

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

    16 giờ trước, NTHAHT đã nói:

    Mình viết lại cái lisp này, (3 trong 1). Lệnh VTL

    - Sau khi gọi lệnh, trước khi chọn đối tượng thứ nhất, có chức năng thiết lập các giá trị (lưu lại cho lần sau).

    - Nếu không chọn đối tượng thứ 2 thì lisp sẽ vẽ theo đối tượng thứ nhất (tương tự lệnh VTL1S).

    Cảm ơn bác đã quan tâm, Lisp dùng rất tiện ạ 
    Kính nhờ bác sửa giúp thông số các giá trị mặc định ban đầu 
    số đoạn ngắn trong khoảng 2 đoạn dài : 1
    khoảng cách giữa các đoạn : 0.5
    kích thước đoạn ngắn : 0.5
    kích thước đoạn dài : 1

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

    1 phút trước, duy782006 đã nói:

    -Mình chỉ thêm 2 dòng để thay layer thôi nên tất cả những tồn tại theo ý bạn là có sẳn trong lisp.

    -Có thể bạn thao tác sai ví dụ thoát lệnh ngang xương chứ mình đã thử lisp undo phát hết luôn. 

    -Dò lisp người khác hơi khó khăn đối với mình, khi nào rãnh mình viết lisp mới có khi đở đau đầu hơn ngồi đọc lisp người khác như này.

    -Kể từ khi ở không từ tết đến giờ nay mình vào được 2 công trình nên sẽ cắm đầu vẽ triển khai sẽ không bám theo bạn được, hẹn gặp sau!

    Em cảm ơn bác đã quan tâm. Chúc bác vào 2 công trình mới thuận lợi và suôn sẻ 
    Hẹn gặp lại bác ạ ^^

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

    10 giờ trước, duy782006 đã nói:

    tor.lsp

    Xin được cảm ơn bác đã quan tâm topic này, chúc bác và mọi người buổi sáng an lành 
    1. đã được giải quyết đúng yêu cầu
    2.chắc là bác chưa hiểu ý của em nên vấn đề U chưa được làm đúng ý
    Xin được gửi lại ảnh minh hoạ rõ về yêu cầu 2
    p/s: trong lisp có kèm 2 lệnh VTL1S và VTL0S. 2 lệnh em đã tận dụng ở lisp khác đúng ý em hơn nên có thể xoá code 2 lệnh này đi được
    Kính mong bác xem giúp ạ
     

    Hình ảnh minh hoạ.pdf

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

    Em chào các bậc tiền bối, quý anh chị trong cộng đồng CADVIET
    Em xem trên diễn đàn có sưu tầm được lisp vẽ taluy của bác meohoang up lên, lisp rất hay nhưng có 2 điểm chưa đúng ý cá nhân và còn hạn chế như sau :
    1, Hai nét line taluy dài và ngắn được vẽ ra từ lệnh VTL2S đang để chung cùng 1 lớp hiện hành. Em muốn đổi 2 nét đó sang 2 lớp TALUYN và TALUYD (màu sắc và vị trí lớp cụ thể xem trong bản vẽ)
    2, Thêm tiện ích undo và ctrl Z vào lisp (Hiện tại lisp chỉ cho phép undo từng line taluy đã vẽ như vậy tốn rất nhiều thời gian )
    Em đã xem hết các bài về Taluy nhưng chỉ có lisp này vẽ taluy đường cong đúng ý cá nhân em.
    Kính mong được mọi người giúp đỡ ạ 

     

    sua layer tayluy.dwg

    tor.lsp

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

    Vào lúc 21/6/2024 tại 09:06, duy782006 đã nói:

    texttocircle_m.lsp

     

    Tên lệnh như cũ.

    Những mã có số trước và chữ sau bị lỗi. ví dụ 0.3.tx.co
    em đã load lại những lisp trước anh viết đều chạy được bình thường
    còn lisp mới nhất đã lọc được 2t,3t,4t,5t rồi nhưng phát sinh lỗi trên ạ 

    ktra.dwg

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

    3 giờ trước, duy782006 đã nói:

    Loanh quanh sao lại đi khỏi chủ đề của topic này mất rồi. Quay lại chủ đề này trên cơ sở đã có các CIRCLE từ lisp trên.

    -Lệnh TT2.

    -Thao tác nhập lệnh. Nhập độ lớn cạnh hình vuông làm cột (mặc định là 4 không thay đổi thì enter, thay đổi thì nhập số mới rồi enter). Chọn hình tròn 1, chọn hình tròn 2, chỉ phía chèn cột.

    -Lisp sẽ tạo sẳn cho bạn block hình vuông rồi chèn theo phía bạn chỉ. Nếu điểm bạn chỉ trùng đường thẳng nối 2 tâm đường tròn thì nó sẽ chèn cả 2 bên.

    tieptuyen2circle.lsp

    thanks anh. lisp này dùng ok rồi ạ,còn lisp texttocricle anh thêm giúp bọn em bỏ vẽ đường tròn đối với mã 2t 3t 4t 5t. những mã này giải nghĩa là 2 tầng, 3 tầng,...cái đó để bọn em xác định chiều cao nhà, k phải là khoảng cách để vẽ bán kính .anh xem mã có ở trong file ở trên em Châm gửi anh nha

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

    7 giờ trước, duy782006 đã nói:

    Lệnh như cũ nhé.

    texttocircle.lsp

     

    Cái nội dung text là do bạn hay do người khác xuất ra. Nếu là bạn thì khuyên nên có 1 quy luật đặt chứ chấm kiểu tràn lan này thì khó cho khâu tự động lắm nhé.

    -Ở đây quy tắc lọc như sau: phần chữ bỏ qua, lọc các phần là số và dấu chấm hoặc phẩy.

    +Nếu dấu chấm hoặc phẩy ở đầu thì bỏ đi.

    +Trong một chuỗi số nếu xuất hiện 2 dấu chấm hoặc phẩy thì bỏ phần sau dấu chấm hoặc phẩy thứ 2 đi.

    -Đã chạy thử trên toàn bộ file cad của bạn ok.

    nội dung text là do người khác xuất ra bác ạ, vì k theo quy luật nào nên tự động khó thật. những nội dung text không đọc được bác tạo giúp em sang 1 lớp layer khong doc duoc để em dễ quản lí được k ạ

    • Vote giảm 1

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

    Vào lúc 4/6/2024 tại 20:26, duy782006 đã nói:

    Lisp trên đó bạn. Được thì cho cái like nha. Dạo này cày like khó quá

    bác duy ơi, lớp text lisp lọc được số gần như là hết và trả về đường tròn đúng kích thước. tuy nhiên những lớp có đoạn mã mà giữa chữ và số có kèm 1 dấu chấm thì lisp chưa lọc được và báo lỗi bác ạ. ví dụ : m.1.2tx.2.6.3t thì kết quả lấy để vẽ đường tròn là 1.2 và 2.6
    nếu nhiều mã phức tạp không lọc được ra đường tròn thì bác để y nguyên những mã đó giúp em cũng đc ạ

     

     

    • Vote giảm 1

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

    27 phút trước, duy782006 đã nói:

    Choa mẹ wơi. Mình cũng xớn xác tưởng cái text màu đỏ. Chứ cái text màu xanh nó ngang banh chừa bứa ko theo quy luật nào cả. Cái thì có chữ không có số, cái thì số ở đầu, cái thì số ở giữa mà đề không cho quy luật thì theo kiểu gì.

     

    ý là vẽ đường tròn theo text màu xanh đó anh Duy ạ,trong text màu xanh cứ có số là vẽ đường tròn kích thước theo số đó.Đường tròn được vẽ ra đặt tại tâm point và đặt riêng sang 1 lớp khác. Vì text xanh là mã điểm nên vị trí số sẽ không nằm cố định ở đầu, giữa , hay cuối đâu nên mới phức tạp 

    • Vote giảm 1
×