Chuyển đến nội dung
Diễn đàn CADViet
  • Thông báo

    • Nguyen Hoanh

      CADViet đã hoàn tất nâng cấp   14/09/2017

      Chào các bạn, CADViet đã hoàn tất việc nâng cấp lên phiên bản mới. Tất cả các chức năng đã hoạt động theo kỳ vọng của ban quản trị. Nếu có vấn đề gì cần phản hồi, các bản post ở đây nhé: Trân trọng, Nguyễn Hoành.
dinhtrong1

Bạn Nào Giúp Mình Viết Clisp Nội Suy Giữa Hai Đường Spline Và Xóa Phần Không Được Chọn

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

dinhtrong1    1

Bạn nào biết ở đâu có lisp hoặc có thể giúp mình viết một lisp với yêu cầu như thế này:

1- Có hai đường Spline và muốn tạo một đường nội suy ở giữa 2 đường đó. Ví dụ có 2 đường đồng mức trên bản đồ muốn vẽ thêm một đường ỡ gữa hai đường đó.

2- Mình có một miếng bản đồ rộng, muốn chọn một phần ở trong đó và loại bỏ các phần xung quanh bằng cách khoanh một vùng kín.

Xin cảm ơn nhiều!

  • Vote giảm 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
duy782006    1.375

1.Chờ có ai có không chứ mình ko có.

2.Thử lệnh extrim hoặc tìm kiếm lisp có sẳn trên cadviet

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
phamthanhbinh    3.123

Bạn nào biết ở đâu có lisp hoặc có thể giúp mình viết một lisp với yêu cầu như thế này:

1- Có hai đường Spline và muốn tạo một đường nội suy ở giữa 2 đường đó. Ví dụ có 2 đường đồng mức trên bản đồ muốn vẽ thêm một đường ỡ gữa hai đường đó.

2- Mình có một miếng bản đồ rộng, muốn chọn một phần ở trong đó và loại bỏ các phần xung quanh bằng cách khoanh một vùng kín.

Xin cảm ơn nhiều!

Hề hề hề,

Giữa là thế nào?? Giữa về cao độ hay giữa về khoảng cách trên bình đồ ???

Hãy gửi một bản vẽ mô tả cái giữa ấy ra sao nhé.

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
dinhtrong1    1

Hề hề hề,

Giữa là thế nào?? Giữa về cao độ hay giữa về khoảng cách trên bình đồ ???

Hãy gửi một bản vẽ mô tả cái giữa ấy ra sao nhé.

Giữa về khoảng cách thôi ban à, Bạn giúp mình với!

http://www.cadviet.com/upfiles/5/144818_ví_du_1.dwg

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
dinhtrong1    1

Cảm ơn bạn nhé! Nhưng mình thấy đường nó là pline nên nó không mềm mại, không đẹp, ở nhiều đoạn nó còn không ra hình gì nữa vậy thì sửa thế nào bạn nhỉ?

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
conghoa    93

Cảm ơn bạn nhé! Nhưng mình thấy đường nó là pline nên nó không mềm mại, không đẹp, ở nhiều đoạn nó còn không ra hình gì nữa vậy thì sửa thế nào bạn nhỉ?

Vì 2 cái đường bạn chọn làm gốc nó cũng ko mềm mại thì sao cái ở giữa mềm dc :)

Lisp này vẫn chưa chẩn ở những đoạn mà 1 bên đường thì thẳng, một bên thì cong lê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
thiep    263

Cảm ơn bạn nhé! Nhưng mình thấy đường nó là pline nên nó không mềm mại, không đẹp, ở nhiều đoạn nó còn không ra hình gì nữa vậy thì sửa thế nào bạn nhỉ?

"không ra cái hình gì" là có thể do lisp sử lý lấy 2 điểm đầu "bờ sông" phải gần nhau. Còn nếu 2 điểm này: anh ở thượng em ở hạ thì kiểu gì cũng tạo ra 1 đường rối.

Thanhduan 2407 sửa lại 1 chút là được. Còn muốn dùng li sp này bạn nên dùng lệnh reverse để đổi chiều 1 trong 2 bờ sông nhé

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
dinhtrong1    1

"không ra cái hình gì" là có thể do lisp sử lý lấy 2 điểm đầu "bờ sông" phải gần nhau. Còn nếu 2 điểm này: anh ở thượng em ở hạ thì kiểu gì cũng tạo ra 1 đường rối.

Thanhduan 2407 sửa lại 1 chút là được. Còn muốn dùng li sp này bạn nên dùng lệnh reverse để đổi chiều 1 trong 2 bờ sông nhé

Cảm ơn bạn nhé! để mình nghiên cứu đã

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
nhoclangbac    3

"không ra cái hình gì" là có thể do lisp sử lý lấy 2 điểm đầu "bờ sông" phải gần nhau. Còn nếu 2 điểm này: anh ở thượng em ở hạ thì kiểu gì cũng tạo ra 1 đường rối.

Thanhduan 2407 sửa lại 1 chút là được. Còn muốn dùng li sp này bạn nên dùng lệnh reverse để đổi chiều 1 trong 2 bờ sông nhé

Nhoc thay bác tiền bối chỉ điểm mà không ra tay :( , Nhoc thử viết xem (không dấu code nhé :D )... nhờ bác tiền bối kiểm tra xem sao bị lỗi với bản vẽ chủ topic :wub:

(defun c:amo (/ os pl1 pl2 i pa1 p1 p2 ptb lstp)
(command "undo" "be") 
(setq os (getvar "osmode")) (setvar "osmode" 0)
(setq pl1 (car (entsel "\n Chon duong Polyline thu nhat :")))
(setq pl2 (car (entsel "\n Chon duong Polyline thu hai :")))
(setq pa1 (vlax-curve-getEndParam pl1) i 0) 
(while (<= i pa1) (setq p1 (vlax-curve-getPointAtParam pl1 i))
(setq p2 (vlax-curve-getClosestPointTo pl2 p1)) 
(setq ptb (list (/ (+ (car p1) (car p2)) 2) (/ (+ (cadr p1) (cadr p2)) 2) 0))
(setq lstp (cons ptb lstp)) (setq i (+ i 1))	) 
(command "pline")
(foreach x lstp (command x)) (command "")
(setvar "osmode" os) 
(Command "undo" "e") 
(princ))

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


×