Xin Lisp Tính Và Điền Độ Dốc Kèm Mũi Tên Chỉ Hướng Dốc Giữa 2 Điểm Text

[qh2qa06 0]

Nhờ các chuyên gia giúp em viết lisp tính độ dốc giữa 2 cao độ text, vẽ mũi tên chỉ hướng dốc từ điểm có cao độ lớn đến điểm có cao độ nhỏ.

 

Nội dung như sau:

1. Chọn 2 cao độ text cần tìm độ dốc (chọn bằng cách tích text hay quét cửa sổ đều được).

2. Căn cứ vào vị trí của text và giá trị cao độ text, tính ra độ dốc giữa 2 điểm text. Điền mũi tên độ dốc và giá trị độ dốc từ điểm cao độ lớn đến điểm cao độ nhỏ. Phương của mũi tên độ dốc trùng với phương của 2 điểm text.

3. Trường hợp giá trị độ dốc bằng 0%, điền mũi tên 2 đầu.

 

Chi tiết em ghi trong file đính kèm. Nhờ mọi người giúp đỡ! Em xin chân thành cảm ơn!

 

http://www.cadviet.com/upfiles/6/64018_dien_do_doc.dwg

[quocmanh04tt 634]

Lisp đây: http://www.cadviet.com/upfiles/6/141736_slope.rar

- Quét chọn.

- Nếu vùng text cần quét, tất cả các text sắp xếp đều theo lưới ô vuông thì chỉ 1 lần quét là xong, còn không thì phải chọn từng cặp đôi.

*** Nếu chọn vùng Text có khoảng cách giữa các text không đều, hoặc đều từng cụm thì khoảng cách min, hoặc cụm có khoảng cách min sẽ được thực hiện...

- Lệnh: SLOPE.

[qh2qa06 0]

Lisp đây: http://www.cadviet.com/upfiles/6/141736_slope.rar

- Quét chọn.

- Nếu vùng text cần quét, tất cả các text sắp xếp đều theo lưới ô vuông thì chỉ 1 lần quét là xong, còn không thì phải chọn từng cặp đôi.

*** Nếu chọn vùng Text có khoảng cách giữa các text không đều, hoặc đều từng cụm thì khoảng cách min, hoặc cụm có khoảng cách min sẽ được thực hiện...

- Lệnh: SLOPE.

Cảm ơn bác nhiều!

[hainguyen2014 12]

Anh quocmanh có thể gửi cho mình xin file lisp được ko? mình muốn học mót chút xíu.hihi, cảm ơn anh

[qh2qa06 0]

Lisp đây: http://www.cadviet.com/upfiles/6/141736_slope.rar

- Quét chọn.

- Nếu vùng text cần quét, tất cả các text sắp xếp đều theo lưới ô vuông thì chỉ 1 lần quét là xong, còn không thì phải chọn từng cặp đôi.

*** Nếu chọn vùng Text có khoảng cách giữa các text không đều, hoặc đều từng cụm thì khoảng cách min, hoặc cụm có khoảng cách min sẽ được thực hiện...

- Lệnh: SLOPE.

Anh chỉnh giúp em như sau được không:

- Tên lệnh: DDS

- Style của text ghi độ dốc theo style của text hiện hành. Lần đầu dùng lệnh, hỏi chiều cao chữ của text độ dốc.

- Mũi tên theo Dim hiện hành.

- Layer của cả mũi tên và text theo layer hiện hành.

 

Cảm ơn anh!