Đến nội dung


Hình ảnh
- - - - -

thay thế các đường tròn bằng block


  • Please log in to reply
23 replies to this topic

#21 ketxu

ketxu

    Copier - Paster - Editor

  • Moderator
  • PipPipPipPipPipPipPip
  • 5682 Bài viết
Điểm đánh giá: 2605 (tuyệt vời)

Đã gửi 28 September 2010 - 12:35 PM

Nhân tiện bác hướng dẫn bọn e lợi ích của điệu nhảy này với chứ ạ ^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#22 master_worse

master_worse

    biết lệnh offset

  • Advance Member
  • PipPipPip
  • 170 Bài viết
Điểm đánh giá: 87 (tàm tạm)

Đã gửi 28 September 2010 - 01:34 PM

Lisp thay thế các đường tròn có sẵn bằng Block.
Tương tự các lisp trên, có bổ sung hộp thoại chọn Block : với tùy chọn xóa Circle.

To Lisper : Mới "mót" đuợc điệu nhảy Lam-ba-da (lambda)
Điệu nhảy này "quay cuồng" ra phết đấy!
Sử dụng thành thạo điệu nhảy Lam-ba-da sẽ giúp code gọn gàng hơn.

...
((lambda (i / ent pt)
(while (setq ent (ssname ss (setq i (1+ i))))
(setq pt (cdr (assoc 10 (entget ent))))
(entmake (list (cons 0 "INSERT")(cons 2 BlkNam) (cons 10 pt)))
(entmake (list (cons 0 "SEQEND")))
(if (= delCir 1) (entdel ent)))) -1)
...

Em thấy có cũng có gọn hơn chút nào đâu chỉ khác là tự động gán i = -1 thôi mà!? :(
  • 1

Ngu dốt không đáng thẹn bằng thiếu ý chí học hỏi


Tri thức làm người ta khiêm tốn, ngu si làm người ta kiêu ngạo (Ngạn ngữ Anh)


#23 gia_bach

gia_bach

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 1436 Bài viết
Điểm đánh giá: 1426 (rất tốt)

Đã gửi 28 September 2010 - 02:16 PM

Em thấy có cũng có gọn hơn chút nào đâu chỉ khác là tự động gán i = -1 thôi mà!? :(

thanks master_worse.
ơ hay , sao bữa nay đãng trí nhỉ ! :(
  • 0

#24 trinhvqh

trinhvqh

    biết lệnh block

  • Members
  • PipPipPipPipPipPip
  • 408 Bài viết
Điểm đánh giá: 222 (khá)

Đã gửi 28 September 2010 - 02:55 PM

ơ hay , sao bữa nay đãng trí nhỉ ! :(


Chắc tại ngộ độc vụ thịt ... hôm nọ :(
  • 0