cắt đoạn thẳng tại chỗ giao nhau

[Doan Van Ha 3.196]

Thân gởi các Lisper đang tham gia chủ đề và các bạn khác!

Đây là một bài toán thực tế, nhằm ký hiệu để người đọc hiểu được đường nào nằm trên/dưới đường khác, và xác định tính liên tục khi chúng giao nhau để tránh hiểu nhầm đường này qua đường kia.

Vì chỉ là ký hiệu nên người vẽ có quyền vẽ theo các kiểu khác nhau. Đồng nghiệp của tôi cũng hay vẽ bài toán này, và cũng vẽ ngẫu hứng tùy người. Tôi kiến nghị một cách mà họ hay dùng (và dễ nhìn) là thế này:

- Thông thường, họ vẽ theo một bán kính xác định, nhìn vừa mắt, ta đặt tên là Rmax.

- Khi khoảng cách 2 giao điểm liền kề (gọi là D) nhỏ hơn 2*Rmax thì họ giảm dần bán kính đến giá trị nhỏ nhất (có thể nhìn rõ khi in ra), ta đặt tên là Rmin.

- Khi khoảng cách nhỏ hơn nữa (D<2*Rmin) thì họ vẽ các Arc theo Rmin liền nhau.

Nếu đi theo hướng này sẽ đỡ ngứa con mắt bên phải đỏ con mắt bên trái hơn.

[Detailing 281]

Lưu ý là không dùng để làm việc nhé vì các lý do sau:

• cái này chỉ code ra để test thôi
• dùng nhiều event và các hàm phức tạp nhưng ko bẫy lỗi -> có thể crash AutoCAD bất cứ lúc nào
• Cái này viết bằng .NET, lisp chắc ko viết được do 1 số API ko support cho lisp. Bạn nào có hứng thú thì cùng thảo luận

 

Here we go: http://www.mediafire.com/download/r9ufg9x1a85gmad/CADViet.zip 
Viết code và test trên CAD 2015 (Cad14 và 16 có thể chạy được) - load vào CAD bằng lệnh NETLOAD - Lệnh là : DOIT

[Doan Van Ha 3.196]

Mới dòm Video thấy cái này có 1 tính năng rất hay là khi Move các đối tượng thì các Arc biến đổi theo. Bạn nên phát triển để sử dụng sẽ có rất nhiều người cần.

[Detailing 281]

Mới dòm Video thấy cái này có 1 tính năng rất hay là khi Move các đối tượng thì các Arc biến đổi theo. Bạn nên phát triển để sử dụng sẽ có rất nhiều người cần.

cái phần đó dùng 1 cái event (reactor) để update nhưng trong lúc update nó lại gọi lại chính nó 1 lần nữa -> có thể gây ra lỗi tiềm ẩn nhưng mình ko có time để tìm nguyên nhân nên khuyến cáo cho chắc.

[quocmanh04tt 635]

Bác .NET nhảy vào anh em LISP lui... :D

[Detailing 281]

Bạn quocmanh04tt cứ tiếp tục đi, cái NET chỉ để test thôi, ko có xài dc với lại nó bị giới hạn thời gian test trong đó nữa -> cái này chắc một số reverser tò mò, trong đó có 1 cái trick nhỏ mới nghĩ ra :D

[thiep 365]

Lưu ý là không dùng để làm việc nhé vì các lý do sau:

• cái này chỉ code ra để test thôi
• dùng nhiều event và các hàm phức tạp nhưng ko bẫy lỗi -> có thể crash AutoCAD bất cứ lúc nào
• Cái này viết bằng .NET, lisp chắc ko viết được do 1 số API ko support cho lisp. Bạn nào có hứng thú thì cùng thảo luận

 

Here we go: http://www.mediafire.com/download/r9ufg9x1a85gmad/CADViet.zip 

Viết code và test trên CAD 2015 (Cad14 và 16 có thể chạy được) - load vào CAD bằng lệnh NETLOAD - Lệnh là : DOIT

Qúa dữ luôn. Từ khi detailing gợi ý addvertex, Thiệp đã theo hướng này, cộng thêm lisp remove vertex sưu tầm của Thaistreet, Thiệp đã ra được lisp giống của Quocmanh chỉ khác về cung tròn ARC và hướng khi setbulge - hoặc +. Rồi đọc commend của Doan Van Ha, Thiep xử lý tiếp trường hợp các bó *LINE có trước nằm sát nhau thì BÍ, chưa biết thuật toán nào để làm được. Nếu xử lý được thì có thể giống như clip trên.

@quocmanh

lisp của bạn khai báo biến chưa đầy đủ, hoặc bạn để toàn cục với tên biến đơn giản nên khi dùng lisp của Quocmạnh xong rồi dùng lisp cuả Thiep thì các đối tượng đã sử lý qua lisp của quocmanh lại tiếp tục "nhảy múa" tiếp, mặc dù Thiep không đụng đến. Chưa biết lỗi gì.

[quocmanh04tt 635]

@thiep: Lisp của mình cũng add, remove Vertex. Ngoài ra, lisp của mình còn add thêm Xdata để dùng cho lệnh EDR, lệnh EDR này chỉ edit các ARC của lệnh CCL tạo ra, các ARC khác không quan tâm. Trong lisp chỉ để lại biến bán kính (#bankinh#).

[tranhieu0402 4]

a

 

[hoavienquang 1]

Lisp bẻ cong 1 chùm Pline hay Line tại các điểm giao nhau với 1 chùm Pline hay Line đã được update:

http://www.cadviet.com/upfiles/6/11110_lotrinhmulti.lsp

bạn ơi, sau mình dùng lisp của bạn nó báo lỗi ko ra kết quả vậy?

[hoavienquang 1]

Chào các anh! Em cần cắt các line,polyline,arc,circle tại tất cả các điểm mà chúng giao nhau. mong các anh pro viết giúp em 1cái lisp. xim chân thành cảm ơn.http://www.cadviet.com/upfiles/7/161651_cat_tai_diem_giao_nhau.dwg file minh họa

[Doan Van Ha 3.196]

Ở link dưới đây (bài #2):

http://www.cadviet.com/forum/topic/63766-yeu-cau-lisp-tach-polyline-hoac-cac-doi-tuong-dang-tuyen-tai-cac-diem-giao/?pid=198943&do=findComment&comment=198943

[hoavienquang 1]

Ở link dưới đây (bài #2):

http://www.cadviet.com/forum/topic/63766-yeu-cau-lisp-tach-polyline-hoac-cac-doi-tuong-dang-tuyen-tai-cac-diem-giao/?pid=198943&do=findComment&comment=198943

 

 

 mình tìm máy ngày nay không thấy. cảm ơn bạn