Chuyển đến nội dung
Diễn đàn CADViet
Đăng nhập để thực hiện theo  
tranlaogia

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

Các bài được khuyến nghị

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:

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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 
)

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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ề.

  • Vote tăng 1

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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:

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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ô?

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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:

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác
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.

Chia sẻ bài đăng này


Liên kết tới bài đăng
Chia sẻ trên các trang web khác

Tạo một tài khoản hoặc đăng nhập để nhận xét

Bạn cần phải là một thành viên để lại một bình luận

Tạo tài khoản

Đăng ký một tài khoản mới trong cộng đồng của chúng tôi. Điều đó dễ mà.

Đăng ký tài khoản mới

Đăng nhập

Bạn có sẵn sàng để tạo một tài khoản ? Đăng nhập tại đây.

Đăng nhập ngay

Đăng nhập để thực hiện theo  

×