Với file lisp thì rất khó để làm được điều này. Bởi người biết sử dụng lisp sẽ vô hiệu hoá ngay nếu như đọc được mã lisp. Tuy nhiên, có thể làm được điều này với 1 file VLX đã được mã hoá. Cách làm thông thường như sau: Ghi thông tin các lần sử dụng lệnh vào 1 vị trí trên registry, hoặc vào file config của AutoCAD. Sau đó, đọc các thông tin này để có hành động phù hợp.

>>

Với file lisp thì rất khó để làm được điều này. Bởi người biết sử dụng lisp sẽ vô hiệu hoá ngay nếu như đọc được mã lisp. Tuy nhiên, có thể làm được điều này với 1 file VLX đã được mã hoá. Cách làm thông thường như sau: Ghi thông tin các lần sử dụng lệnh vào 1 vị trí trên registry, hoặc vào file config của AutoCAD. Sau đó, đọc các thông tin này để có hành động phù hợp.

Sau đây là 1 ví dụ đơn giản:


Lệnh TEST để xác định số lần thực thi. Chỉ thực thi lệnh được 5 lần. Không quan trọng ngày tháng, không quan trọng số lần sử dụng ACAD, cứ dùng lệnh TEST quá 5 lần là hết hạn.
Lệnh RESET để khởi tạo lại giá trị.

Tất nhiên, ví dụ trên là 1 cái khoá đơn giản chỉ khoá được người ngay chứ không khoá được kẻ gian.

Tức là bạn phải lọc các X= Y= Z=.... đi để được Dtext như hình vẽ phải ko? Không cần phải thế. Bạn chỉ cần vẽ đường Polyline qua các đầu cọc rồi đánh lệnh TDD ( khi ap lisp này vào) sau đó chọn đường polyline vừa vẽ và chọn text làm mẫu, điểm đặt kết quả. Lisp sẽ xuất cho bạn cột thứ nhất là thứ tự điểm, cột thứ 2 là toạ độ X của các điểm, cột thứ 3 là toạ độ...

Tức là bạn phải lọc các X= Y= Z=.... đi để được Dtext như hình vẽ phải ko? Không cần phải thế. Bạn chỉ cần vẽ đường Polyline qua các đầu cọc rồi đánh lệnh TDD ( khi ap lisp này vào) sau đó chọn đường polyline vừa vẽ và chọn text làm mẫu, điểm đặt kết quả. Lisp sẽ xuất cho bạn cột thứ nhất là thứ tự điểm, cột thứ 2 là toạ độ X của các điểm, cột thứ 3 là toạ độ Y của các điểm. Bạn có thể căn lại hàng cột bằng cách thay đổi một chút ở biến K1, K2, H. Hy vọng đúng ý bạn.

AutoCAD không quản lý layer theo kiểu của PhotoShop hay CorelDraw. Trong AutoCAD, cái nào sinh ra sau được nằm trên, bất kể ở layer nào. User chỉ có thể hoán đổi thứ tự ấy cho một nhóm đối tượng cụ thể nào đó đã được chỉ định bằng lệnh "draworder". Yêu cầu của bạn không thể thực hiện được về nguyên tắc!
Đúng hơn, có thể thực hiện được cho các đối tượng đã tồn tại...

AutoCAD không quản lý layer theo kiểu của PhotoShop hay CorelDraw. Trong AutoCAD, cái nào sinh ra sau được nằm trên, bất kể ở layer nào. User chỉ có thể hoán đổi thứ tự ấy cho một nhóm đối tượng cụ thể nào đó đã được chỉ định bằng lệnh "draworder". Yêu cầu của bạn không thể thực hiện được về nguyên tắc!
Đúng hơn, có thể thực hiện được cho các đối tượng đã tồn tại trên bản vẽ bằng lisp sau:


Lệnh FR, chọn 1 đối tượng bất kỳ -> toàn bộ các đối tượng đang có trong bản vẽ, cùng layer với đối tượng vừa chọn sẽ nhảy lên trên. Nhưng những đối tượng mới, được tạo ra kể từ đó về sau, vẫn theo quy luật "sinh ra sau được nằm trên" như đã nói.

Đây là đối tượng trước khi bị phá vỡ (objectARX)
http://data1.cadviet.com/Truoc.jpg
Còn đây là các đối tượng có được sau khi explode (bao gồm 2 line ký hiệu point, 3 mtext: thứ tự điểm, ghi chú và cao độ- trong trường hợp này ko có ghi chú nên chỉ có 2 mtext)

http://www.cadviet.com/upfiles/sau.jpg
Có thể dùng đoạn code sau để nối các text có được từ lệnh xuất cao...

Đây là đối tượng trước khi bị phá vỡ (objectARX)
http://data1.cadviet.com/Truoc.jpg
Còn đây là các đối tượng có được sau khi explode (bao gồm 2 line ký hiệu point, 3 mtext: thứ tự điểm, ghi chú và cao độ- trong trường hợp này ko có ghi chú nên chỉ có 2 mtext)

http://www.cadviet.com/upfiles/sau.jpg
Có thể dùng đoạn code sau để nối các text có được từ lệnh xuất cao độ (chú ý: phải xuất theo kiểu phần nguyên và phần thập phân cùng hàng) Tuy nhiên đoạn code này chưa được hoàn thiện lắm, do text cao độ xuất từ NOVA ra có phần nguyên và phần thập phân ko cùng điểm chèn như tôi nghĩ ban đầu mà cách nhau một khoảng (ko biết có cố định hay theo một quy luật nào đó (Trong đoạn code này tôi đã thử với một khoảng cách cố định và test vài lần thấy cho kết quả khả quan) Bác nào có nhu cầu thì phát triển thêm cho hoàn thiện. Dù sao đi nữa dùng cad thuần tuý vẫn ...đỡ nhức đầu nhất

Đây là lisp bạn cần
Lệnh addi : cộng thêm giá trị cho hàng loạt các số nguyên
addr : cộng thêm giá trị cho hàng loạt các số thực (cái này bạn đang cần)
addt : cộng thêm giá trị cho các text số thứ tự
adde : cộng thêm giá trị cho các text cao độ (có thêm dấu +, -)


Với đoạn code như thế này, các bạn hoàn toàn có thể tự chế...

Đây là lisp bạn cần
Lệnh addi : cộng thêm giá trị cho hàng loạt các số nguyên
addr : cộng thêm giá trị cho hàng loạt các số thực (cái này bạn đang cần)
addt : cộng thêm giá trị cho các text số thứ tự
adde : cộng thêm giá trị cho các text cao độ (có thêm dấu +, -)


Với đoạn code như thế này, các bạn hoàn toàn có thể tự chế biến cho mình những công cụ phù hợp, chẳng hạn thay cộng , trừ thành nhân, chia, thêm ký tự vào kết quả .... Mình thấy một số yêu cầu ..na ná nhau như : đánh số nhà, biến số - thành +, hay thêm bớt ký tự vào text ... làm loãng cả nội dung của box, mọi người cũng khó khăn trong việc tìm kiếm. Các mod có nên lập ra các box phân loại lisp theo công dụng và đối tượng không nhỉ (ví dụ như box lisp for text, text style, box lisp for block, box lisp for dim, box lisp for print...