http://www.cadviet.com/upfiles/Dientich_1.zip

Lệnh DSA

Nội dung như sau: Cho phép ghi diện tích bằng cách PICK điểm hay SELECT OBJECT

Cập nhật lại diện tích nếu có sự thay đổi của đối tương (scale hoặcc rezise, không phải là xóa đi rồi...

http://www.cadviet.com/upfiles/Dientich_1.zip

Lệnh DSA

Nội dung như sau: Cho phép ghi diện tích bằng cách PICK điểm hay SELECT OBJECT

Cập nhật lại diện tích nếu có sự thay đổi của đối tương (scale hoặcc rezise, không phải là xóa đi rồi vẽ lại cái mới)

Cập nhật lại diên tích nếu có sự thay đổi cách thể hiện (VD như từ hecta sang m2)

Còn dưới đây là source code

DIENTICH.LISP

- SelfAdjustDim : Tự chỉnh khoảng cách của dimension line với chân đim.
Hàm dùng để tự động chỉnh khoảng cách của đường kích thước đối với chân dim khi chiều dài 2 chân dim = nhau, cho các dim nằm trong cùng

- AdjustDim : Chỉnh khoảng cách của dimension line đối với 1 điểm cho...

- SelfAdjustDim : Tự chỉnh khoảng cách của dimension line với chân đim.
Hàm dùng để tự động chỉnh khoảng cách của đường kích thước đối với chân dim khi chiều dài 2 chân dim = nhau, cho các dim nằm trong cùng

- AdjustDim : Chỉnh khoảng cách của dimension line đối với 1 điểm cho trước

Khoảng cách của đường kích thước so với điểm định vị lấy đefault là 7mm (= đefault base line spacing )

Nhưng trong một số trường hợp, việc sử dụng DIM độ chế là trường hợp không tránh khỏi, ví dụ như trong ngàng xây dựng của mình : khi vẽ mặt cắt dọc dầm, các kích thước dầm quá dài thì trong những trường hợp này sử dụng dấu cắt lửng để thể hiện...

Nhưng trong một số trường hợp, việc sử dụng DIM độ chế là trường hợp không tránh khỏi, ví dụ như trong ngàng xây dựng của mình : khi vẽ mặt cắt dọc dầm, các kích thước dầm quá dài thì trong những trường hợp này sử dụng dấu cắt lửng để thể hiện chiều dài của dầm và việc sử dụng DIM độ chế là điều không tránh khỏi.

Đây là Lisp mà Tue_NV viết ra tính tổng các giá trị DIM (chấp nhận luôn cả DIM độ chế)

Tên lệnh : Congdim

Thấy các bạn yêu cầu nhiều về lisp vẽ taluy và trên diễn đàn có share nhiều lisp. Tuy nhiên sau khi dùng thử mọi cái tôi thấy cái lisp của Lamteco đưa lên là hợp lý; tuy nhiên nó bị lỗi nên khi xài tôi phát hiện ra và hiệu chỉnh lại .
Các lệnh vẫn giữ nguyên:
1/ Khai báo các kiểu nét taluy dài ngắn, khoảng cách...

Thấy các bạn yêu cầu nhiều về lisp vẽ taluy và trên diễn đàn có share nhiều lisp. Tuy nhiên sau khi dùng thử mọi cái tôi thấy cái lisp của Lamteco đưa lên là hợp lý; tuy nhiên nó bị lỗi nên khi xài tôi phát hiện ra và hiệu chỉnh lại .
Các lệnh vẫn giữ nguyên:
1/ Khai báo các kiểu nét taluy dài ngắn, khoảng cách và số vạch ngắn chen giữa vạch dài = lệnh: VTL0;
2/ Vẽ taluy cho 1 đường riêng biệt = lệnh: VTL1, cho phép chọn đổi bên trái sang phải;
3/ Vẽ taluy chọn đường đỉnh mái taluy và đường chân mái taluy, cho phép đổi ngược lại = lệnh: VTL2.

Mèo tui test thấy ngon không thua gì các lệnh RTL của Nova, các bạn test lại xem sao

Tên lệnh Cd
1. Lisp yêu cầu chọn DIM
2. Lisp yêu cầu : nhập khoảng cách đường dóng.
3. Lisp thực hiện công việc : cắt chân dim đã chọn với khoảng cách đường dóng do user nhập vào.

Khoảng cách đường dóng có thể là số dương (>0), có thể là số âm (<0) và có thể bằng 0

>>

Tên lệnh Cd
1. Lisp yêu cầu chọn DIM
2. Lisp yêu cầu : nhập khoảng cách đường dóng.
3. Lisp thực hiện công việc : cắt chân dim đã chọn với khoảng cách đường dóng do user nhập vào.

Khoảng cách đường dóng có thể là số dương (>0), có thể là số âm (<0) và có thể bằng 0

Và khoảng cách có thể pick 2 điểm trên màn hình. Lisp sẽ lấy khoảng cách 2 điểm pick trên màn hình làm khoảng cách đường dóng. Và khoảng cách khi ta pick 2 điểm này sẽ mang giá trị dương ( + )

Bạn hãy chạy thử và nghiệm ra điều mà Tue_NV nói.

Các bạn hãy cho ý kiến, nếu có gì chưa được thì Tue_NV sẽ sửa lại. Hy vọng nó có ích cho mọi người

- bổ sung : File xuât ra phải có 4 cột: N0(Text) X (Tọa độ X) Y (Tọa dộ Y) H (Tọa dộ Z)

(do không biết qui luật của Số thứ tự)

to NDBNGO : việc lọc LAYER không khó, cái chính là chúng ta thống nhất đuợc mục tiêu của vấn đề, đang chờ ý kiến của bạn. Đã chạy thử...

- bổ sung : File xuât ra phải có 4 cột: N0(Text) X (Tọa độ X) Y (Tọa dộ Y) H (Tọa dộ Z)

(do không biết qui luật của Số thứ tự)

to NDBNGO : việc lọc LAYER không khó, cái chính là chúng ta thống nhất đuợc mục tiêu của vấn đề, đang chờ ý kiến của bạn. Đã chạy thử LISP trên file Cad bạn gửi.