Đến nội dung


Hình ảnh
- - - - -

[Yêu cầu] nhờ viết lisp insert text số lượng lớn


  • Please log in to reply
8 replies to this topic

#1 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 17 September 2011 - 03:34 PM

Ý tưởng:
cho một cụm đối tượng trong bản vẽ. Các đối tượng này có một số có các điểm giao nhau (intersection). Tại vị trí mỗi điểm giao nhau đó ta có một chi tiết A nào đó cần quan tâm. Và cần đánh số thứ tự; sau đó là thống kê số lượng cho các chi tiết tại các điểm giao nhau đó. Khi số lượng các nút giao nhau rất nhiều thì công việc sẽ rất mất nhiều thời gian và có thể nhầm lẫn.
Mở rộng hơn cho một số trường hợp khác mà cũng có thể gặp phải (dựa trên chế độ bắt điểm osnap):
Tại các điểm cuối của đối tượng (End point) ; Tại các điểm trung điểm (midpoint) ; Tại các điểm tâm đường tròn (center) ; Tại các điểm góc phần tư ( quadrant) ;
Chính vì vậy mình nhờ các cao thủ viết hộ lisp sau:

Lisp: Insert_Text.lsp
Đầu vào: + Chọn cửa sổ các đối tượng: là Các đối tượng vẽ của thanh công cụ draw trong acad.( line, arc, circle, polyline; ellipse ..)
+ Chọn loại điểm cần chèn text vào bản vẽ: Int - End - Cen - Mid - Quad.
+ Chọn text nào đó có sẵn trên bản vẽ để chèn vào các vị trí lựa chọn
Đầu ra: Các text được chèn vào bản vẽ.
Sau đó ta sẽ dùng lệnh Tcount để thống kê số lượng các text vừa chèn vừa rồi.
(Nếu không phải là chèn text thì là chèn block nào đó lựa chọn trong bản vẽ cũng ok. Block thì có thể phá khối thành text hoặc edit thành cái chi tiết A luôn. Nhưng mình có công cụ thay thế block và đối tượng của bạn ketxu viết dùm rồi nên cái đó quan trọng lắm nữa. Một lần nữa cảm ơn bác ketxu nhé)
Link bản vẽ minh họa ý tưởng: http://www.mediafire...t/y%20tuong.dwg

Các bác xem viết dùm mình lisp đó nhé. Mình xin cảm ơn trước! :)
  • 0

#2 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 17 September 2011 - 03:48 PM

Mình không rõ lắm về lập trình lisp nhưng mình có đưa ra một ý kiến các bác xem tham khảo khi giải quyết vấn đề nhé. Là mình khi thực hiện cái lệnh insert text ( hoặc block - mình thấy block thì phục vụ được nhiều công việc hơn) thì mình chỉ lựa chọn duy nhất một loại chế độ bắt điểm trong cái F3 (osnap setting) khi auto chèn vào theo các đối tượng gốc lựa chọn ban đầu. Khi đó nó chỉ chèn duy nhất vào điểm cần bắt mà thôi. Không biết mình nói thế có ổn ko?
  • 0

#3 anhcos

anhcos

    biết lệnh hatchedit

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

Đã gửi 18 September 2011 - 02:23 PM

Nhìn bản vẽ thì thấy dễ làm, nhưng líp thì lại không biết.
  • 0
Clear sky!

MF Rock collection.

#4 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 18 September 2011 - 03:49 PM

Nhìn bản vẽ thì thấy dễ làm, nhưng líp thì lại không biết.

Bác có thể giúp bạn ấy bằng App độc lập hoặc NET hoặc C hoặc gì cũng được mà ^^
  • 1

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


#5 anhcos

anhcos

    biết lệnh hatchedit

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

Đã gửi 19 September 2011 - 01:48 PM

Hình đã gửi
Chen doi tuong
Đã xong cho bạn đây rồi, nhưng nhớ đừng hỏi về spline nhé, hơi khó làm.
Với cái tiêu đề không biết số lượng có quá nhiều không, vì nhiều thì chưa biết chương trình chạy có nổi không?
Bạn có thể gởi một cái file gốc chứa kha khá đối tượng để test thử xem như thế nào.
  • 2
Clear sky!

MF Rock collection.

#6 victor85

victor85

    biết lệnh stretch

  • Members
  • PipPipPip
  • 169 Bài viết
Điểm đánh giá: 10 (tàm tạm)

Đã gửi 19 September 2011 - 03:58 PM

Hình đã gửi
Chen doi tuong
Đã xong cho bạn đây rồi, nhưng nhớ đừng hỏi về spline nhé, hơi khó làm.
Với cái tiêu đề không biết số lượng có quá nhiều không, vì nhiều thì chưa biết chương trình chạy có nổi không?
Bạn có thể gởi một cái file gốc chứa kha khá đối tượng để test thử xem như thế nào.


Bạn ơi, bạn check lại link download xem sao dùm mình với. mình down thử nhưng ko đc. thanks bạn nhiều!
  • 0

#7 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 19 September 2011 - 06:13 PM

Link chạy tốt :) Bác anhcos hay thật ^^ E thích cái preview quá. Cái này bác viết bằng ...?
  • 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


#8 Kientruc87

Kientruc87

    biết pan

  • Members
  • Pip
  • 5 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 07 October 2012 - 11:29 AM

Link chạy tốt :) Bác anhcos hay thật ^^ E thích cái preview quá. Cái này bác viết bằng ...?

Link die rùi b ơi
  • 0

#9 avi612

avi612

    biết lệnh move

  • Members
  • PipPipPip
  • 126 Bài viết
Điểm đánh giá: 15 (tàm tạm)

Đã gửi 07 October 2012 - 08:35 PM

Một ứng dụng hay. Tiếc là link có vấn đề.... Ai load được rồi share cho mình với.
  • 0