Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
4 replies to this topic

#1 qh2qa06

qh2qa06

    biết vẽ pline

  • Members
  • PipPip
  • 69 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 15 July 2016 - 08:52 AM

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.c...dien_do_doc.dwg


  • 0

#2 quocmanh04tt

quocmanh04tt

    biết lệnh imageclip

  • Members
  • PipPipPipPipPipPipPip
  • 665 Bài viết
Điểm đánh giá: 312 (khá)

Đã gửi 15 July 2016 - 03:57 PM

Lisp đây: http://www.cadviet.c...41736_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.


  • 1

#3 qh2qa06

qh2qa06

    biết vẽ pline

  • Members
  • PipPip
  • 69 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 26 July 2016 - 02:55 PM

Lisp đây: http://www.cadviet.c...41736_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!


  • 0

#4 hainguyen2014

hainguyen2014

    biết vẽ arc

  • Members
  • PipPip
  • 43 Bài viết
Điểm đánh giá: 12 (tàm tạm)

Đã gửi 26 July 2016 - 05:45 PM

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


  • 0

#5 qh2qa06

qh2qa06

    biết vẽ pline

  • Members
  • PipPip
  • 69 Bài viết
Điểm đánh giá: 0 (bình thường)

Đã gửi 28 July 2016 - 01:35 PM

Lisp đây: http://www.cadviet.c...41736_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!


  • 0