Đến nội dung


Hình ảnh
- - - - -

[Yêu cầu] Lisp đánh cấp đường


  • Please log in to reply
6 replies to this topic

#1 47c1

47c1

    biết vẽ ellipse

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

Đã gửi 16 July 2013 - 11:18 AM

(Anh Tue_NV đã đưa ra 1 lisp nhưng chưa đúng với cách đánh cấp đường http://www.cadviet.c...-lisp-danh-cap/)

Xin nhờ mọi người làm lisp đánh cấp có điểm bắt đầu và điểm kết thúc đánh cấp của đường PL hoặc đánh cấp từ trên xuống (ko phái phía trên hay phía dưới ạ)

 


  • 0

#2 Tue_NV

Tue_NV

    KS Võ Quang Tuệ

  • Moderator
  • PipPipPipPipPipPipPip
  • 4296 Bài viết
Điểm đánh giá: 3804 (đỉnh cao)

Đã gửi 16 July 2013 - 11:28 AM

(Anh Tue_NV đã đưa ra 1 lisp nhưng chưa đúng với cách đánh cấp đường http://www.cadviet.c...-lisp-danh-cap/)

Xin nhờ mọi người làm lisp đánh cấp có điểm bắt đầu và điểm kết thúc đánh cấp của đường PL hoặc đánh cấp từ trên xuống (ko phái phía trên hay phía dưới ạ)

 

 

Bạn vui lòng mô tả cách đánh cấp đường sao cho đúng?

Bằng file dwg và mô tả thật cụ thể và chi tiết nhé

 

Là dân ngoại đạo nên chỉ viết theo yêu cầu thôi. Việc hiểu sao cho đúng là của các bạn trong ngành có chuyên môn


  • 0

#3 47c1

47c1

    biết vẽ ellipse

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

Đã gửi 16 July 2013 - 11:32 AM

Dạ e chào anh ạ. e chỉ cần sửa bản cuối cùng 

Cai lisp cua bac chỉ đánh cấp được từ khi polyline từ phải qua trái thôi, em vừa thử

Sửa lại cho bạn đây. Bạn thử lại nhé :
http://www.cadviet.c...iles/3/dcap.lsp 

Lisp của anh là đưa Bề rộng B từ đỉnh dưới đường PL lên đỉnh trên của đường PL 

Còn đánh cấp để thiết kế đường của bọn e là Bề rộng B đều từ đỉnh trên của đường PL xuống đỉnh dưới a ạ.

 

 

"Bạn vui lòng upload file dwg lên nhé!" - Tue_NV


  • 0

#4 47c1

47c1

    biết vẽ ellipse

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

Đã gửi 16 July 2013 - 11:36 AM

http://www.cadviet.c...19_drawing1.dwg

Đây là hình vẽ anh ạ.


  • 0

#5 47c1

47c1

    biết vẽ ellipse

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

Đã gửi 16 July 2013 - 02:35 PM

Bạn vui lòng mô tả cách đánh cấp đường sao cho đúng?

Bằng file dwg và mô tả thật cụ thể và chi tiết nhé

 

Là dân ngoại đạo nên chỉ viết theo yêu cầu thôi. Việc hiểu sao cho đúng là của các bạn trong ngành có chuyên môn

A ơi e đã gửi hình vẽ lên rồi ạ. a xem giúp e với. Tks!


  • 0

#6 ndtnv

ndtnv

    biết lệnh minsert

  • Members
  • PipPipPipPipPipPip
  • 437 Bài viết
Điểm đánh giá: 384 (khá)

Đã gửi 17 July 2013 - 09:47 AM

Lisp đầy đủ nên có option chọn bắt đầu từ trên xuống hay từ dưới lên.
Sửa lisp nầy không khó nhưng để tác giả làm thì tốt hơn.
Ngoài ra còn cần phải xét đến biến PEDITACCEPT để tránh lỗi cho lệnh PEDIT
Trong thời gian chờ, bạn sửa các chỗ sau để dùng tạm
đổi dấu > thành < và ngược lại ở các dòng
(if (> (cadr sp) (cadr ep))
(if (< ang (/ pi 2))
đổi 2 dòng
(if (= ans "D") thành
(if (= ans "T")


  • 1

#7 47c1

47c1

    biết vẽ ellipse

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

Đã gửi 17 July 2013 - 11:42 AM

Lisp đầy đủ nên có option chọn bắt đầu từ trên xuống hay từ dưới lên.
Sửa lisp nầy không khó nhưng để tác giả làm thì tốt hơn.
Ngoài ra còn cần phải xét đến biến PEDITACCEPT để tránh lỗi cho lệnh PEDIT
Trong thời gian chờ, bạn sửa các chỗ sau để dùng tạm
đổi dấu > thành < và ngược lại ở các dòng
(if (> (cadr sp) (cadr ep))
(if (< ang (/ pi 2))
đổi 2 dòng
(if (= ans "D") thành
(if (= ans "T")

Có lẽ lisp này vẫn chưa thỏa mãn khi mà đường PL gấp khúc thì nó ko hiểu được như hình của m gửi. khi đó mình phải đánh cấp từng đường 1 không gộp chung lại được. dù sao m cũng rất cám ơn vì đã hướng dẫn m sửa lisp của a Tue_NV


  • 0