Đến nội dung


Hình ảnh
- - - - -

Cắt các đối tượng : lines, lwplines, plines, splines, ellipse, circles & arcs tại các giao điểm.


  • Please log in to reply
9 replies to this topic

#1 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 April 2009 - 10:40 AM

Chào các bạn.
Xin giới thiệu các hàm LISP cắt đối tượng giao nhau (BreakObjects.lsp) của Charles Alan Butler.

=======================[ BreakObjects.lsp ]==========================
bản quyền của tác giả Charles Alan Butler 2006-2008 www.TheSwamp.org
phiên bản 2.1 Nov. 20,2008

Mục đích : Cắt các đối tượng : lines, lwplines, plines, splines, ellipse, circles & arcs tại các giao điểm.
Yêu cầu : các đối tượng có cùng cao độ (tọa độ Z)
Hạn chế : không cắt các đối tượng trên các Layer bi khóa (locked layers)


lệnh : MyBreak - Giao diện hộp thoại các chức năng.
lệnh : BreakAll - Cắt các đối tượng được chọn có giao điểm với tất cả các đối tượng khác
lệnh : BreakwObject - Cắt các đối tượng được chọn tại giao điểm với 1 đối tượng
lệnh : BreakObject - Cắt 1 đối tượng được chọn có giao điểm với các đối tượng khác
lệnh : BreakWith - Cắt các đối tượng được chọn có giao điểm với các đối tượng khác
lệnh : BreakTouching - Cắt các đối tượng có giao điểm với các đối tượng được chọn (bao gồm các đối tượng được chọn)
lệnh : BreakSelected - Cắt các đối tượng được chọn có giao điểm với các đối tượng khác
lệnh : BreakWlayer - Cắt các đối tượng được chọn có giao điểm với các đối tượng khác có layer xác định
lệnh : BreakWithTouching - Cắt các đối tượng có giao điểm với các đối tượng được chọn(không bao gồm các đối tượng được chọn)
Tham số : Break Gap cho phép user nhập giá trị cắt (khoảng hở) lớn hơn 0
=======================[ end ]==============================

Bổ sung Link Download
;;;=======================[ BreakObjects.lsp ]==============================
;;; Author: Copyrightゥ 2006-2008 Charles Alan Butler
;;; Contact @ www.TheSwamp.org
;;; Version: 2.1 Nov. 20,2008
;;; Purpose: Break All selected objects
;;; permitted objects are lines, lwplines, plines, splines,
;;; ellipse, circles & arcs
;;;
;;; Function c:MyBreak - DCL for selecting the routines
;;; Function c:BreakAll - Break all objects selected with each other
;;; Function c:BreakwObject - Break many objects with a single object
;;; Function c:BreakObject - Break a single object with other objects
;;; Function c:BreakWith - Break selected objects with other selected objects
;;; Function c:BreakTouching - Break objects touching selected objects
;;; Function c:BreakSelected - Break selected objects with any objects that touch it
;;; Revision 1.8 Added Option for Break Gap greater than zero
;;; NEW r1.9 c:BreakWlayer - Break objects with objects on a layer
;;; NEW r1.9 c:BreakWithTouching - Break touching objects with selected objects
;;; Revision 2.0 Fixed a bug when point to break is at the end of object
;;; Revision 2.1 Fixed another bug when point to break is at the end of object
;;;
;;;
;;; Function break_with - main break function called by all others and
;;; returns a list of new enames, see c:BreakAll
;;; for an example of using the return list
;;;
;;; Requirements: objects must have the same z-value
;;; Restrictions: Does not Break objects on locked layers
;;; Returns: none
;;;
;;;=====================================================================
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED ;
;;; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR ;
;;; PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED. ;
;;; ;
;;; You are hereby granted permission to use, copy and modify this ;
;;; software without charge, provided you do so exclusively for ;
;;; your own use or for use by others in your organization in the ;
;;; performance of their normal duties, and provided further that ;
;;; the above copyright notice appears in all copies and both that ;
;;; copyright notice and the limited warranty and restricted rights ;
;;; notice below appear in all supporting documentation. ;
;;;=====================================================================
..............

  • 25

#2 ssg

ssg

    biết lệnh adcenter

  • Vip
  • PipPipPipPipPipPipPip
  • 1228 Bài viết
Điểm đánh giá: 1087 (rất tốt)

Đã gửi 29 April 2009 - 07:23 AM

Chào các bạn.
Xin giới thiệu các hàm LISP cắt đối tượng giao nhau (BreakObjects.lsp) của Charles Alan Butler...

Rất hay! Hữu dụng cho cả user lẫn programmer. Anh em mình còn phải học tập người ta nhiều...
Thanks a lot!
  • 0

#3 hai_1401

hai_1401

    biết lệnh rotate

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

Đã gửi 04 May 2009 - 02:21 PM

Ko thể hướng dẫn chi tiết hơn 1 tí hả bác, em còn mù mờ lắm, với cả dốt tiếng Anh nữa :(
  • 0

#4 vminh_ct

vminh_ct

    biết lệnh stretch

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

Đã gửi 02 December 2009 - 04:35 PM

em không biết lấy lisp này về như nào, Bro giúp đỡ. Thanks
  • 0
" Sống trên đời cần có 1 tấm lòng,để gió mãi cuốn đi"

#5 vminh_ct

vminh_ct

    biết lệnh stretch

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

Đã gửi 03 December 2009 - 07:58 AM

Em dowload về khi load về thấy cad báo lỗi :
Command: aa APPLOAD 1.lsp successfully loaded.
Command: ; error: malformed list on input
Các Bro chỉ giúp
  • 0
" Sống trên đời cần có 1 tấm lòng,để gió mãi cuốn đi"

#6 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 03 December 2009 - 08:40 AM

Em dowload về khi load về thấy cad báo lỗi :
Command: aa APPLOAD 1.lsp successfully loaded.
Command: ; error: malformed list on input
Các Bro chỉ giúp

Update : breakobjects21.lsp
  • 0

#7 ks_chang

ks_chang

    biết vẽ line

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

Đã gửi 20 December 2010 - 12:49 PM

Update : breakobjects21.lsp

Bác gia_bach oi, hình như link hỏng rồi, bác post lại cho mình xin tham khảo với nhé!
Thanks!
  • 0

#8 VUVUZELA

VUVUZELA

    biết lệnh chamfer

  • Members
  • PipPipPipPip
  • 210 Bài viết
Điểm đánh giá: 97 (tàm tạm)

Đã gửi 20 December 2010 - 01:53 PM

Bác gia_bach oi, hình như link hỏng rồi, bác post lại cho mình xin tham khảo với nhé!
Thanks!


Vô thử trang này copy & páte

http://www.cadviet.c...?showtopic=5575
  • 0

Hệ thống Liên Kết, Thiết Kế Tự Động

ttps://www.facebook...etThietKeTuDong


#9 hugo007

hugo007

    biết lệnh erase

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

Đã gửi 10 August 2011 - 03:16 PM

Chào các bạn.
Xin giới thiệu các hàm LISP cắt đối tượng giao nhau (BreakObjects.lsp) của Charles Alan Butler.

=======================[ BreakObjects.lsp ]==========================
bản quyền của tác giả Charles Alan Butler 2006-2008 www.TheSwamp.org
phiên bản 2.1 Nov. 20,2008

Mục đích : Cắt các đối tượng : lines, lwplines, plines, splines, ellipse, circles & arcs tại các giao điểm.
Yêu cầu : các đối tượng có cùng cao độ (tọa độ Z)
Hạn chế : không cắt các đối tượng trên các Layer bi khóa (locked layers)


lệnh : MyBreak - Giao diện hộp thoại các chức năng.
lệnh : BreakAll - Cắt các đối tượng được chọn có giao điểm với tất cả các đối tượng khác
lệnh : BreakwObject - Cắt các đối tượng được chọn tại giao điểm với 1 đối tượng
lệnh : BreakObject - Cắt 1 đối tượng được chọn có giao điểm với các đối tượng khác
lệnh : BreakWith - Cắt các đối tượng được chọn có giao điểm với các đối tượng khác
lệnh : BreakTouching - Cắt các đối tượng có giao điểm với các đối tượng được chọn (bao gồm các đối tượng được chọn)
lệnh : BreakSelected - Cắt các đối tượng được chọn có giao điểm với các đối tượng khác
lệnh : BreakWlayer - Cắt các đối tượng được chọn có giao điểm với các đối tượng khác có layer xác định
lệnh : BreakWithTouching - Cắt các đối tượng có giao điểm với các đối tượng được chọn(không bao gồm các đối tượng được chọn)
Tham số : Break Gap cho phép user nhập giá trị cắt (khoảng hở) lớn hơn 0
=======================[ end ]==============================

Bổ sung Link Download

;;;=======================[ BreakObjects.lsp ]==============================
;;; Author: Copyrightゥ 2006-2008 Charles Alan Butler
;;; Contact @ www.TheSwamp.org
;;; Version: 2.1 Nov. 20,2008
;;; Purpose: Break All selected objects
;;; permitted objects are lines, lwplines, plines, splines,
;;; ellipse, circles & arcs
;;;
;;; Function c:MyBreak - DCL for selecting the routines
;;; Function c:BreakAll - Break all objects selected with each other
;;; Function c:BreakwObject - Break many objects with a single object
;;; Function c:BreakObject - Break a single object with other objects
;;; Function c:BreakWith - Break selected objects with other selected objects
;;; Function c:BreakTouching - Break objects touching selected objects
;;; Function c:BreakSelected - Break selected objects with any objects that touch it
;;; Revision 1.8 Added Option for Break Gap greater than zero
;;; NEW r1.9 c:BreakWlayer - Break objects with objects on a layer
;;; NEW r1.9 c:BreakWithTouching - Break touching objects with selected objects
;;; Revision 2.0 Fixed a bug when point to break is at the end of object
;;; Revision 2.1 Fixed another bug when point to break is at the end of object
;;;
;;;
;;; Function break_with - main break function called by all others and
;;; returns a list of new enames, see c:BreakAll
;;; for an example of using the return list
;;;
;;; Requirements: objects must have the same z-value
;;; Restrictions: Does not Break objects on locked layers
;;; Returns: none
;;;
;;;=====================================================================
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED ;
;;; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR ;
;;; PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED. ;
;;; ;
;;; You are hereby granted permission to use, copy and modify this ;
;;; software without charge, provided you do so exclusively for ;
;;; your own use or for use by others in your organization in the ;
;;; performance of their normal duties, and provided further that ;
;;; the above copyright notice appears in all copies and both that ;
;;; copyright notice and the limited warranty and restricted rights ;
;;; notice below appear in all supporting documentation. ;
;;;=====================================================================
..............

Nhờ các bác chỉ giúp nếu em muốn sử dụng 1 lệnh BREAKWITH chẳng hạn thì tách lệnh này ra 1 đoạn lisp riêng thì làm sao?Chân thành cảm ơn trước.
  • 0

#10 Doan Van Ha

Doan Van Ha

    biết lệnh adcenter

  • CADViet Team
  • PipPipPipPipPipPipPip
  • 5454 Bài viết
Điểm đánh giá: 2626 (tuyệt vời)

Đã gửi 10 August 2011 - 03:30 PM

Nhờ các bác chỉ giúp nếu em muốn sử dụng 1 lệnh BREAKWITH chẳng hạn thì tách lệnh này ra 1 đoạn lisp riêng thì làm sao?Chân thành cảm ơn trước.

Đây là một chương trình rất đồ sộ của tác giả nước ngoài mà Bác Gia Bach đã nói ở trên. Chương trình này có rất nhiều hàm liên kết với nhau, nên để tách ra từng file lsp cho từng lệnh cắt riêng là... hơi bị mệt. Trên nền của chương trình này, tôi thêm cái Dialoge, kèm một ít hướng dẫn tếng Việt để dễ sử dụng. Bạn xem có thể dùng được chăng?
Thân thương!
http://www.cadviet.c...oi_tuong1_1.zip
  • 0

* Chỉ nên yêu cầu Lisp khi bạn làm việc đó mất cả ngày nhưng họ chỉ viết 1 giờ. Đừng nêu yêu cầu Lisp khi bạn chỉ làm 1 giờ nhưng bắt họ phải mất cả ngày.

* Nhờ viết lisp cũng như đi khám bệnh. Chỉ gởi căn cước và than sắp chết thì không bác sỹ nào cứu sống được.