độ dốc của các đoạn trên đường pl

[tranlaogia 16]

trên đường pl với nhiều đoạn gấp khúc. em muốn xác định độ dốc các đoạn gấp khúc đó. Bác nào có thể giúp em viết 1 lisp mà khi chọn đường pl thì độ dốc của các đoạn gấp khúc hiện luôn lên bản vẽ được kô? cám ơn các bác nhé :cheers:

[w1nDream 73]

trên đường pl với nhiều đoạn gấp khúc. em muốn xác định độ dốc các đoạn gấp khúc đó. Bác nào có thể giúp em viết 1 lisp mà khi chọn đường pl thì độ dốc của các đoạn gấp khúc hiện luôn lên bản vẽ được kô? cám ơn các bác nhé :cheers:

 

Bạn hãy thử dùng lisp này nhé.Nhưng lisp của mình chưa ghi kết quả ra màn hình.Nhờ các pác júp đỡ vậy.

 

(defun c:Doc() 
(setvar "CMDECHO" 0)

(Setq P1 (Getpoint "\n Pick first point:")
  P2 (Getpoint P1 "\n Pick second point:\n")
  Ds1 (abs (- (Car P2) (Car P1)))
  Ds2 (abs (- (Cadr P2) (Cadr P1)))
  Doc (* (/ Ds2 Ds1) 100)
)
(prompt "\n Gradient of line (%):") Doc 
)

[phamthanhbinh 3147]

trên đường pl với nhiều đoạn gấp khúc. em muốn xác định độ dốc các đoạn gấp khúc đó. Bác nào có thể giúp em viết 1 lisp mà khi chọn đường pl thì độ dốc của các đoạn gấp khúc hiện luôn lên bản vẽ được kô? cám ơn các bác nhé :cheers:

Xin chào Tranlaogia,

Tranlaogia thử xài cái lisp này coi có đúng ý laogia hay không nha? Nếu cần sửa chữa gì xin Tranlaogia cứ thẳng thắn chỉ bảo, đệ đây sẽ cố gắng hè.

http://www.cadviet.com/upfiles/2/ghidodocpolyline.lsp

 

Chúc cho Tranlaogia luon khang kiện, hề hề.

[zippo.113 0]

Xin chào Tranlaogia,

Tranlaogia thử xài cái lisp này coi có đúng ý laogia hay không nha? Nếu cần sửa chữa gì xin Tranlaogia cứ thẳng thắn chỉ bảo, đệ đây sẽ cố gắng hè.

http://www.cadviet.com/upfiles/2/ghidodocpolyline.lsp

 

Chúc cho Tranlaogia luon khang kiện, hề hề.

 

Líp hay đấy chỉ mỗi tội chữ cứ xoay linh tinh, mà ghi luôn là bao nhiêu % đi chứ cứ ghi " độ dốc mái là ......%" nhìn cứ thế nào ấy :bigsmile:

[phamthanhbinh 3147]

Líp hay đấy chỉ mỗi tội chữ cứ xoay linh tinh, mà ghi luôn là bao nhiêu % đi chứ cứ ghi " độ dốc mái là ......%" nhìn cứ thế nào ấy :bigsmile:

Chào bạn Zippo.113,

Đoạn lisp trên mình viết để ghi độ dốc mái theo hướng nghiêng của các đoạn polyline. Mình chưa hiểu bạn nói xoay linh tinh nghĩa là thế nào??? Nó không đúng với hướng của polyline hay có vấn đề gì khác,???

Nếu có thể bạn hãy nói rõ yêu cầu của bạn mình có thể sửa lại xem sao.

Nếu bạn muốn các text luôn nằm ngang thì đơn giản bạn chỉ cần thay giá trị góc xoay của text trong các hàm viết text bằng 0 là OK

Nếu bạn muốn bỏ bớt cái thông điệp khó chịu " Độ dốc mái là " thì đơn giản là bạn xóa béng cái nội dung chuỗi đó trong cái hàm Strcat là OK mà.

Theo mình nghĩ nếu bạn đã am tường về lisp thì việc sửa này chả khó gì cả. Bạn nhớ rằng cái lisp đó chỉ có tác dụng tham khảo cho những người có yêu cầu gần giống vậy thôi, để hoàn toàn đúng theo ý bạn muốn thì bạn cần nói rõ cái yêu cầu của bạn hoặc bạn phải tự hiệu chỉnh các lisp sẵn có chứ ít khi các lisp có sẵn lại đáp ứng đúng, và đủ các yêu cầu của tất cả mọi người bạn ạ.

Mong bạn thông cảm.

[tranlaogia 16]

Xin chào Tranlaogia,

Tranlaogia thử xài cái lisp này coi có đúng ý laogia hay không nha? Nếu cần sửa chữa gì xin Tranlaogia cứ thẳng thắn chỉ bảo, đệ đây sẽ cố gắng hè.

http://www.cadviet.com/upfiles/2/ghidodocpolyline.lsp

 

Chúc cho Tranlaogia luon khang kiện, hề hề.

cám ơn phamthanhbinh đã giúp mình lisp này. bạn có thể giúp mình sửa lisp này với yêu cầu là xác định các độ dốc các đoạn đó với các tỷ lệ x,y khác nhau được kô?

[phamthanhbinh 3147]

cám ơn phamthanhbinh đã giúp mình lisp này. bạn có thể giúp mình sửa lisp này với yêu cầu là xác định các độ dốc các đoạn đó với các tỷ lệ x,y khác nhau được kô?

Chào Tranlaogia,

Tranlaogia thử xài cái này xem có ổn không nhé.

http://www.cadviet.com/upfiles/2/ghidodocthucpolyline.lsp

Chúc Tranlaogia luôn khang kiện.

[w1nDream 73]

Chào Tranlaogia,

Tranlaogia thử xài cái này xem có ổn không nhé.

http://www.cadviet.com/upfiles/2/ghidodocthucpolyline.lsp

Chúc Tranlaogia luôn khang kiện.

 

Pác ThanhBinh có thể sửa giúp em thêm chút xíu thế này không:

1.Cho phép chọn chiều cao chữ

2.Độ dốc được điền cách Pl 1 khoảng chọn.

Thks. :bigsmile:

[phamthanhbinh 3147]

Pác ThanhBinh có thể sửa giúp em thêm chút xíu thế này không:

1.Cho phép chọn chiều cao chữ

2.Độ dốc được điền cách Pl 1 khoảng chọn.

Thks. :bigsmile:

Chào bác w1nDream,

Bác xài thử cái này coi có ưng ý không nhé.

http://www.cadviet.com/upfiles/2/ghidodocthucpolylinem.lsp

Nếu có gì phật ý bác, bác cứ pót lên nhé, mình sẽ cố sửa xem sao.

Chúc bác vui.