Chú ý:
- Khi chạy lisp này, với mỗi text lisp sẽ quyét tất cả các point để tìm point gần nhất và di chuyển text đến point đó. Chính vì thế có thể xảy ra trường hợp (rất ít xảy ra) 2 text có chung một point gần nhất, khi đó lisp sẽ di chuyển chúng trùng với nhau dẫn đến có thể một số point bị lạc mất text cao độ. bạn sử dụng chú ý một chút là OK.
- Tên lệnh...

Chú ý:
- Khi chạy lisp này, với mỗi text lisp sẽ quyét tất cả các point để tìm point gần nhất và di chuyển text đến point đó. Chính vì thế có thể xảy ra trường hợp (rất ít xảy ra) 2 text có chung một point gần nhất, khi đó lisp sẽ di chuyển chúng trùng với nhau dẫn đến có thể một số point bị lạc mất text cao độ. bạn sử dụng chú ý một chút là OK.
- Tên lệnh bạn có thể tự đổi cho phù hợp với nhu cầu.
- Vì viết nhanh nên mình chỉ quan tâm đến hiệu quả, không quan tâm đến chất lượng nên lisp này nói chung là không hay lắm dưới con mắt người lập trình, vài chỗ cách làm hơi củ chuối nhưng với người sử dụng thì OK không vấn đề gì. hi vọng đúng ý bạn.

Lệnh CV trong LISP (của TRAN LE PHUONG) dưới đây cho phép bạn copy tất cả những gỉ đi kèm với Text rồi tăng số/chữ theo yêu cầu.
Tuy nhiên Lisp chỉ thay đổi chử số cuối và tối đa đến 100 mà thôi.
Nhờ Tue_NV bổ xung thêm để hoàn thiện theo yêu cầu đánh chử số đầu của minhphuong_humg. Thank you.


Bode box có lổi, xin sửa như sau:
----------(command "MOVE" "P" "" A...

Lệnh CV trong LISP (của TRAN LE PHUONG) dưới đây cho phép bạn copy tất cả những gỉ đi kèm với Text rồi tăng số/chữ theo yêu cầu.
Tuy nhiên Lisp chỉ thay đổi chử số cuối và tối đa đến 100 mà thôi.
Nhờ Tue_NV bổ xung thêm để hoàn thiện theo yêu cầu đánh chử số đầu của minhphuong_humg. Thank you.


Bode box có lổi, xin sửa như sau:
----------(command "MOVE" "P" "" A ---------------

Bạn thử Lisp này Tue_NV viết thử xem :
Bài toán : cho 1 Polyline -> vẽ đường đánh cấp với bề rộng là B như file bạn gửi kèm theo

Hiện nay chức năng download Lisp file của diễn đàn bị lỗi. Nếu bạn sử dụng chức năng download Lisp file của diễn đàn bị lỗi thì hãy nhấn nút Reply bài viết này của Tue_NV -> chép hết code về (không sót đấy nhé về chạy thử là được

>>

Bạn thử Lisp này Tue_NV viết thử xem :
Bài toán : cho 1 Polyline -> vẽ đường đánh cấp với bề rộng là B như file bạn gửi kèm theo

Hiện nay chức năng download Lisp file của diễn đàn bị lỗi. Nếu bạn sử dụng chức năng download Lisp file của diễn đàn bị lỗi thì hãy nhấn nút Reply bài viết này của Tue_NV -> chép hết code về (không sót đấy nhé về chạy thử là được
Chúc thành công

Bạn dkkx3a và bạn xaakiii_mboet có thể cho biết bạn đánh cấp cho Pline gấp khúc, nhưng bạn đánh cấp với trường hợp các cấp nằm dưới Pline sử dụng trong trường hợp thực tế nào không?
Tue_NV sử dụng Lisp đánh cấp với các cấp nằm trên Pline trong trường hợp đánh bậc cấp.
Tue_NV xin nâng cấp vào Lisp : đánh cấp cho pline gấp khúc ở 2 trường hợp :
1. Các cấp nằm trên...

Bạn dkkx3a và bạn xaakiii_mboet có thể cho biết bạn đánh cấp cho Pline gấp khúc, nhưng bạn đánh cấp với trường hợp các cấp nằm dưới Pline sử dụng trong trường hợp thực tế nào không?
Tue_NV sử dụng Lisp đánh cấp với các cấp nằm trên Pline trong trường hợp đánh bậc cấp.
Tue_NV xin nâng cấp vào Lisp : đánh cấp cho pline gấp khúc ở 2 trường hợp :
1. Các cấp nằm trên pline
2. các cấp nằm dưới pline
Các bạn sử dụng thử xem : (áp dụng đúng luôn cho Spline)

Hiện nay chức năng download Lisp file của diễn đàn bị lỗi. Nếu bạn sử dụng chức năng download Lisp file của diễn đàn bị lỗi thì hãy nhấn nút Reply bài viết này của Tue_NV -> chép hết code về (không sót đấy nhé về chạy thử là được
Chúc thành công

Chào các bạn. Mình đang có 2 lisp: tính tổng 1 loạt text rồi ghi sang 1 text và lisp ánh xạ 1 text sang text khác để tự động cập nhật theo. Giờ mình cần 1 lisp để tính tổng 1 loạt text field và tổng tự động cập nhật theo (sau khi REGEN) sau mỗi thay đổi của 1 trong các text field. Các bạn giúp mình kết hợp 2 lisp này được không. Cảm ơn nhiều

>>

Chào các bạn. Mình đang có 2 lisp: tính tổng 1 loạt text rồi ghi sang 1 text và lisp ánh xạ 1 text sang text khác để tự động cập nhật theo. Giờ mình cần 1 lisp để tính tổng 1 loạt text field và tổng tự động cập nhật theo (sau khi REGEN) sau mỗi thay đổi của 1 trong các text field. Các bạn giúp mình kết hợp 2 lisp này được không. Cảm ơn nhiều .

Tính tổng:

Giới thiệu với các bạn đọan LISP (vừa sưu tầm đuợc) lưu và lấy dữ liệu kiểu Text từ ClipBoard
Hàm SetClipBoardText By XShrimp : lưu dữ liệu kiểu Text vào ClipBoard
Hàm GetClipBoardText By Patrick_35 : lấy dữ liệu kiểu Text từ ClipBoard

Ứng dụng :
Trong CAD
- trên bản vẽ A gọi lệnh copy2 -> chọn Text nguồn,
- trên bản vẽ B, C ... gọi lệnh paste2 -> chọn các đối...

Giới thiệu với các bạn đọan LISP (vừa sưu tầm đuợc) lưu và lấy dữ liệu kiểu Text từ ClipBoard
Hàm SetClipBoardText By XShrimp : lưu dữ liệu kiểu Text vào ClipBoard
Hàm GetClipBoardText By Patrick_35 : lấy dữ liệu kiểu Text từ ClipBoard

Ứng dụng :
Trong CAD
- trên bản vẽ A gọi lệnh copy2 -> chọn Text nguồn,
- trên bản vẽ B, C ... gọi lệnh paste2 -> chọn các đối tựong đích >enter

Với các Text từ nguồn khác như : Word, Excel , trình duyệt, … : hàm GetClipBoardText bỏ qua các đối tuợng đồ họa (image), chỉ chọn ra Text. Đặc biệt trong Excel : cho phép copy dữ liệu trong nhiều cell.

Với text thì bạn có thể sử dụng lisp này của mình.
Thực ra là gồm 3 lisp.
- Lệnh FT: căn lề text, lisp này mình đã post tại đây
- Lệnh DF: dãn dòng các text cho đều nhau.
- Lệnh DFX: dàn đều các text theo hàng ngang với khoảng cách đều nhau (khoảng cách từ điểm đầu text này đến điểm cuối của text kia)
Kết hợp 3 lệnh này trong quá trình sử dụng sẽ được cái bạn...

Với text thì bạn có thể sử dụng lisp này của mình.
Thực ra là gồm 3 lisp.
- Lệnh FT: căn lề text, lisp này mình đã post tại đây
- Lệnh DF: dãn dòng các text cho đều nhau.
- Lệnh DFX: dàn đều các text theo hàng ngang với khoảng cách đều nhau (khoảng cách từ điểm đầu text này đến điểm cuối của text kia)
Kết hợp 3 lệnh này trong quá trình sử dụng sẽ được cái bạn cần.

với yêu cầu như trong hình của bạn thì chỉ cần dùng 2 lệnh FT và DF là đủ.

Trong block có sử dụng nhiều text attribute thì việc gõ ed để sửa nội dung hơi vất vả một chút.
Đây là đoạn code để edit trực tiếp vào các text attribute do ta chọn bằng cách pick chuột.

Tuy nhiên lisp này phải gõ nội dung cần thay đổi ở dòng command.
Giờ em muốn thực hiện việc này thông qua một hộp thoại. hộp thoại đó có 2 nút Cancel và OK.
Xin nhờ các huynh viết hộ...

Trong block có sử dụng nhiều text attribute thì việc gõ ed để sửa nội dung hơi vất vả một chút.
Đây là đoạn code để edit trực tiếp vào các text attribute do ta chọn bằng cách pick chuột.

Tuy nhiên lisp này phải gõ nội dung cần thay đổi ở dòng command.
Giờ em muốn thực hiện việc này thông qua một hộp thoại. hộp thoại đó có 2 nút Cancel và OK.
Xin nhờ các huynh viết hộ cái này, em không có rành khoản này lắm.