Đến nội dung


Hình ảnh
- - - - -

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


  • Please log in to reply
8 replies to this topic

#1 tranlaogia

tranlaogia

    biết lệnh scale

  • Members
  • PipPipPip
  • 142 Bài viết
Điểm đánh giá: 16 (tàm tạm)

Đã gửi 26 September 2009 - 07:50 AM

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:
  • 0

#2 w1nDream

w1nDream

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 293 Bài viết
Điểm đánh giá: 73 (tàm tạm)

Đã gửi 26 September 2009 - 08:48 AM

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
)

  • 0
__Tâm tựa lưu thủY__
Vi nhân nan

#3 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 30 September 2009 - 08:23 PM

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.c...docpolyline.lsp

Chúc cho Tranlaogia luon khang kiện, hề hề.
  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#4 zippo.113

zippo.113

    biết pan

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

Đã gửi 09 October 2009 - 04:51 PM

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.c...docpolyline.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:
  • 0

#5 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 09 October 2009 - 05:15 PM

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.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#6 tranlaogia

tranlaogia

    biết lệnh scale

  • Members
  • PipPipPip
  • 142 Bài viết
Điểm đánh giá: 16 (tàm tạm)

Đã gửi 10 October 2009 - 07:50 AM

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.c...docpolyline.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ô?
  • 0

#7 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 10 October 2009 - 11:44 AM

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.c...hucpolyline.lsp
Chúc Tranlaogia luôn khang kiện.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#8 w1nDream

w1nDream

    biết lệnh ddedit

  • Members
  • PipPipPipPip
  • 293 Bài viết
Điểm đánh giá: 73 (tàm tạm)

Đã gửi 10 October 2009 - 02:27 PM

Chào Tranlaogia,
Tranlaogia thử xài cái này xem có ổn không nhé.
http://www.cadviet.c...hucpolyline.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:
  • 0
__Tâm tựa lưu thủY__
Vi nhân nan

#9 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

  • Moderator
  • PipPipPipPipPipPipPip
  • 6009 Bài viết
Điểm đánh giá: 3113 (tuyệt vời)

Đã gửi 10 October 2009 - 05:23 PM

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.c...ucpolylinem.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.
  • 0
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.