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

dragontalon0802

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

  • Số lượng nội dung

    98

  • Đã tham gia

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

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

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

    Bạn dùng cái này xem:

    (defun C:M2L()

    (vl-load-com) (if (not cal) (arxload "geomcal"))

    (prompt "\nChon cac doi tuong can Mirror: ")

    (setq ss (ssget))

    (setq l1 (entsel "\nChon duong Line thu 1: "))

    (setq l2 (entsel "\nChon duong Line thu 2: "))

    (setq p1d (cdr (assoc 10 (entget (car l1)))))

    (setq p1c (cdr (assoc 11 (entget (car l1)))))

    (setq p2d (cdr (assoc 10 (entget (car l2)))))

    (setq p2c (cdr (assoc 11 (entget (car l2)))))

    (setq p3d (cal "plt(p1d,p2d,0.5)"))

    (setq p3c (cal "plt(p1c,p2c,0.5)"))

    (initget "Y N") (setq xoa (getkword "\nXoa doi tuong cu <NO>: "))

    (if (or (= xoa "N") (not xoa))

    (command ".mirror" ss "" p3d p3c "N")

    (command ".mirror" ss "" p3d p3c "Y")))

    Cảm ơn bạn. Lisp dùng tốt lắm ^^

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

    Tất cả đều không phải, các lỗi các bạn đưa ra mình nếu nắm rõ rồi. Ý mình là fillet đường vào biệt thự với cái đường từ khu chính đi lên biệt thự. các đường đó đều là pl với l, theo mình thì nó lệch tọa độ z nên ko fillet được. Bro nào đưa tọa độ z các đường về 0 mình cái. Thanks all ( quên mất : trong bản vẽ một số đường vẫn fillet và champer bình thường - chỉ có những đường mình đang cần vẽ ko được thôi)

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

    Đầu tiên chân thành cảm ơn những người đã bỏ công sức viết lisp cho anh em kỹ thuật dùng cad một cách hiệu quả hơn.

    Tuy nhiên mình thấy trên diễn đàn một số lisp trùng nhau về nội dung nhưng cách dùng lệnh và tên khác nhau, khiến những người mới rất khó dùng.

    Bạn nào có thể hệ thống lại các lisp, ghi lệnh tắt vào tên lisp thì những người khác sẽ dùng một cách dễ dàng hơn. Ví dụ:

    Cut_dim-cd.LSP

    Tinh_tong_do_dai-tl.LSP

    Noi_duong_line-nn.LSP

    .......

    Cảm ơn!

×