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.
tski259

Nhờ viết lisp tính khoảng cách giữa các mặt cắt

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

tski259    10

Mình thường làm công việc bóc tách khối lượng và thường phải tính khoảng cách giữa các mặt cắt như:khoảng cách từ Cọc:6 Km:0+130.50 đến cọc 7 Km:0+165.30 .... từ Km:0+983.50 đến Km:1+8.50 .Mình cần các bạn viết mình lisp tính trừ như sau: Km:0+165.30 - Km:0+130.50 = 34.80,Km:1+8.50 - Km:0+983.50 = 25.00 .... và kết quả được ghi vào text sẵn có.Mình nghĩ lisp này sẽ giúp ích rất nhiều người thường bóc tách khối lượng như mình.

  • 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
Doan Van Ha    2.676

Mình thường làm công việc bóc tách khối lượng và thường phải tính khoảng cách giữa các mặt cắt như:khoảng cách từ Cọc:6 Km:0+130.50 đến cọc 7 Km:0+165.30 .... từ Km:0+983.50 đến Km:1+8.50 .Mình cần các bạn viết mình lisp tính trừ như sau: Km:0+165.30 - Km:0+130.50 = 34.80,Km:1+8.50 - Km:0+983.50 = 25.00 .... và kết quả được ghi vào text sẵn có.Mình nghĩ lisp này sẽ giúp ích rất nhiều người thường bóc tách khối lượng như mình.

Bạn dùng cái này xem:

http://www.cadviet.com/upfiles/3/tru_co_tien_to_2.lsp

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
cd2k44    121

Mình thường làm công việc bóc tách khối lượng và thường phải tính khoảng cách giữa các mặt cắt như:khoảng cách từ Cọc:6 Km:0+130.50 đến cọc 7 Km:0+165.30 .... từ Km:0+983.50 đến Km:1+8.50 .Mình cần các bạn viết mình lisp tính trừ như sau: Km:0+165.30 - Km:0+130.50 = 34.80,Km:1+8.50 - Km:0+983.50 = 25.00 .... và kết quả được ghi vào text sẵn có.Mình nghĩ lisp này sẽ giúp ích rất nhiều người thường bóc tách khối lượng như mình.

Sao bạn không làm trên excel nhỉ.Mục đích làm trên cad của bạn là gì

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
Thaistreetz    515

Dùng lisp thì có nhanh hơn thật. nhưng mình đang tự hỏi "trắc dọc bạn để làm gì nhỉ?" lấy khoảng cách từ trắc dọc có fải nhàn hơn không?

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
tski259    10

Dùng lisp thì có nhanh hơn thật. nhưng mình đang tự hỏi "trắc dọc bạn để làm gì nhỉ?" lấy khoảng cách từ trắc dọc có fải nhàn hơn không?

Cảm ơn các bạn đã quan tâm.Lisp của bạn Doan Van Ha mình dùng thử còn bị lỗi bạn ah?.Ý mình dùng lisp này là khi lập bảng trong cad thì mình tính được trực tiếp trong bảng luôn.Còn đưa sang exel thì cũng phải nhập lại số liệu thôi vì nó vừa chứa text và số mà,với hàng chục hay hàng trăm mặt cắt thì cũng nhập dễ nhầm số liệu lắm.Đúng là các số liệu này có được khi chạy nova mà ra,có thể lấy khoảng cách từ trắc dọc của tuyến,nhưng cũng hơi lâu tí.Nhiều khi mình không lấy tất cả các mặt cắt mà chỉ lấy mặt cắt điển hình đại diện thôi :ví dụ tính từ cọc 6 tới cọc 8 chẳng hạn (bỏ qua cọc 7)thì cũng phải tính thủ công,hay tính tổng từ cọc 6 đến 7 và từ cọc 7 tới cọc 8,.Nên mình nghĩ lisp này mà có thì cũng có nhiều ứng dụng đó chứ?.

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
Doan Van Ha    2.676

Cảm ơn các bạn đã quan tâm.Lisp của bạn Doan Van Ha mình dùng thử còn bị lỗi bạn ah?.Ý mình dùng lisp này là khi lập bảng trong cad thì mình tính được trực tiếp trong bảng luôn.Còn đưa sang exel thì cũng phải nhập lại số liệu thôi vì nó vừa chứa text và số mà,với hàng chục hay hàng trăm mặt cắt thì cũng nhập dễ nhầm số liệu lắm.Đúng là các số liệu này có được khi chạy nova mà ra,có thể lấy khoảng cách từ trắc dọc của tuyến,nhưng cũng hơi lâu tí.Nhiều khi mình không lấy tất cả các mặt cắt mà chỉ lấy mặt cắt điển hình đại diện thôi :ví dụ tính từ cọc 6 tới cọc 8 chẳng hạn (bỏ qua cọc 7)thì cũng phải tính thủ công,hay tính tổng từ cọc 6 đến 7 và từ cọc 7 tới cọc 8,.Nên mình nghĩ lisp này mà có thì cũng có nhiều ứng dụng đó chứ?.

Tôi nghĩ lỗi ở bạn chứ không phải lỗi ở lisp. Bạn nói bạn cần trừ 2 text cọc cây số (dạng Text). Bây giờ bạn nói bạn lập bảng. Ai mà biết được cái bảng của bạn là thế nào? Lần sau bạn cần post lên những y/c cụ thể, chứ cái y/c rất mơ hồ của bạn thì hành hạ nhiều lắm đ/v những người có ý muốn giúp bạn đấy. Xem ra nếu bạn mới tham gia CADViet thì thông cảm vậy.

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
tski259    10

Tôi nghĩ lỗi ở bạn chứ không phải lỗi ở lisp. Bạn nói bạn cần trừ 2 text cọc cây số (dạng Text). Bây giờ bạn nói bạn lập bảng. Ai mà biết được cái bảng của bạn là thế nào? Lần sau bạn cần post lên những y/c cụ thể, chứ cái y/c rất mơ hồ của bạn thì hành hạ nhiều lắm đ/v những người có ý muốn giúp bạn đấy. Xem ra nếu bạn mới tham gia CADViet thì thông cảm vậy.

hic.Ý mình nói cũng là trừ 2 text đó với nhau mà.Còn đưa vào bảng thì mình tự làm được.Lisp mình cần giống như ý lisp bạn viết đó.Nhưng lisp bạn mình thử rồi.Lúc đầu là "tiền tố không xét đến","số bị trừ","số để trừ".Đến đây là nó bị tịt không có gì nữa.Mình rất vui khi có người giúp đỡ mình.Đúng là mình mới tham gia CadViet chưa được lâu nhưng thấy diễn đàn rất bổ ích.Mình đã học hỏi nhiều điều từ đây.Trước khi tham gia diễn đàn đúng là mình không biết gì về Autolisp cả.Bạn nói vậy làm mình hơi buồn đó.Nhưng cũng rất cảm ơn bạn đã nhiệt tình giúp đỡ.Diễn đàn sẽ phát triển nhờ những người có tâm như bạ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
Doan Van Ha    2.676

hic.Ý mình nói cũng là trừ 2 text đó với nhau mà.Còn đưa vào bảng thì mình tự làm được.Lisp mình cần giống như ý lisp bạn viết đó.Nhưng lisp bạn mình thử rồi.Lúc đầu là "tiền tố không xét đến","số bị trừ","số để trừ".Đến đây là nó bị tịt không có gì nữa.Mình rất vui khi có người giúp đỡ mình.Đúng là mình mới tham gia CadViet chưa được lâu nhưng thấy diễn đàn rất bổ ích.Mình đã học hỏi nhiều điều từ đây.Trước khi tham gia diễn đàn đúng là mình không biết gì về Autolisp cả.Bạn nói vậy làm mình hơi buồn đó.Nhưng cũng rất cảm ơn bạn đã nhiệt tình giúp đỡ.Diễn đàn sẽ phát triển nhờ những người có tâm như bạn.

Chào bạn! Tôi đã thực sự thông cảm bạn, và nếu bạn có buồn thì tôi sorry nhé!

Tôi sửa lại lisp chút xíu. Bạn nhớ tải xuống lại (link như cũ). Nhớ rằng tiền tố trong trường hợp này là "Km:".

Nếu bạn chạy mà có mệnh hệ gì thì tôi sẽ thức suốt đêm nay để update cho bạn (nếu bạn cũng thức).

Chúc bạn vui!

  • 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
ketxu    2.652

:) DVH xem lại lisp đi xem sao :) Kiểm tra cal đã load chưa nè, kiểm tra cách setq số trừ, số bị trừ xem sao nè ^^

@chủ topic : bạn nên ấn F2 để copy dòng lỗi khi chạy lisp, sẽ giúp những người viết lisp giúp bạn rất nhìu

  • 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
Doan Van Ha    2.676

:) DVH xem lại lisp đi xem sao :) Kiểm tra cal đã load chưa nè, kiểm tra cách setq số trừ, số bị trừ xem sao nè ^^

@chủ topic : bạn nên ấn F2 để copy dòng lỗi khi chạy lisp, sẽ giúp những người viết lisp giúp bạn rất nhìu

Thanks! Đây bỏ qua tất cả các điều kiện kiểm tra, chứ nếu đầy đủ phải thế này:

1. Kiểm tra CAL: (if (not cal) (arxload "geomcal")).

2. Kiểm tra 2 số kia thì thêm đ/k lọc nếu đúng là text và đúng tiền tố mới chọn.

3. Thậm chí, sau khi lọc và chuyển từ dạng ký tự sang số còn phải kiểm tra xem có đúng là số không...

Đang chờ chủ topic có y/c gì nữa thì làm một phát luôn thể.

Dù sao vẫn thanks!

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
tski259    10

Chào bạn! Tôi đã thực sự thông cảm bạn, và nếu bạn có buồn thì tôi sorry nhé!

Tôi sửa lại lisp chút xíu. Bạn nhớ tải xuống lại (link như cũ). Nhớ rằng tiền tố trong trường hợp này là "Km:".

Nếu bạn chạy mà có mệnh hệ gì thì tôi sẽ thức suốt đêm nay để update cho bạn (nếu bạn cũng thức).

Chúc bạn vui!

Hi.Mình rất vui khi có bạn nhiệt tình giúp đỡ.Giờ thì đến nhập tiền tố Km: là ngỏm rồi bạn ah?.Nếu bạn ở TP.Hà Tĩnh nếu chưa được thì mình cũng xin mời bạn đi nhậu chầu cho vui.Cảm ơn nhiều.Ah,lưu ý bạn chẳng hạn Km:1+8.5 tương đương Km:0+1008.5 đấy,sợ bạn không lưu ý đến chỗ này.

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
Doan Van Ha    2.676

Hi.Mình rất vui khi có bạn nhiệt tình giúp đỡ.Giờ thì đến nhập tiền tố Km:0+ là ngỏm rồi bạn ah?.Nếu bạn ở TP.Hà Tĩnh nếu chưa được thì mình cũng xin mời bạn đi nhậu chầu cho vui.Cảm ơn nhiều.

Tiền tố là "Km:" chứ đâu phải là "Km:0+" ? Nếu bạn nhập cả "0+" thì "8+"... cũng toi luôn.

Hay bạn chỉ dùng duy nhất tiền tố "Km:" thì tôi bỏ nó luôn để bạn khỏi nhầ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
tski259    10

Tiền tố là "Km:" chứ đâu phải là "Km:0+" ? Nếu bạn nhập cả "0+" thì "8+"... cũng toi luôn.

Hay bạn chỉ dùng duy nhất tiền tố "Km:" thì tôi bỏ nó luôn để bạn khỏi nhầm?

Thử cả rồi bạn ah, đều không được. Đúng là mình chỉ dùng có tiền tố Km: thôi,cái này của nova chạy ra mà.Nếu được bạn bỏ dùm mình luôn.Bạn lưu ý dùm nữa là 1+8.5 tương đương 1008.5 đó,8+150~8150.Cũng khuya rồi cũng không dám làm phiền bạn nhiều đâu.Nghỉ để mai còn đi làm tiếp bạn ah.Khi nào rảnh bạn giúp mình cũng được.Thanks nhiề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
Doan Van Ha    2.676

Thử cả rồi bạn ah, đều không được. Đúng là mình chỉ dùng có tiền tố Km: thôi,cái này của nova chạy ra mà.Nếu được bạn bỏ dùm mình luôn.Bạn lưu ý dùm nữa là 1+8.5 tương đương 1008.5 đó,8+150~8150.Cũng khuya rồi cũng không dám làm phiền bạn nhiều đâu.Nghỉ để mai còn đi làm tiếp bạn ah.Khi nào rảnh bạn giúp mình cũng được.Thanks nhiều!

Bạn post bản vẽ lên xem nào. Chú ý "Km:" phải viết đúng chữ hoa và chữ thường. Đã kiểm tra kỹ càng và chú ý những điều bạn nói

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
Thaistreetz    515

Bạn post bản vẽ lên xem nào. Chú ý "Km:" phải viết đúng chữ hoa và chữ thường. Đã kiểm tra kỹ càng và chú ý những điều bạn nói

Cái này bắt buộc fải thế à? sao không chuyển tất cả về chữ hoa hoặc chữ thuờng (dùng hàm strcase ấy). nguời dùng đỡ fải quan tâm cách nhập có fải suớng hơn không?

@Bạn chủ topic: Excel có hỗ trợ tính toán với đinh dạng dữ liệu kiểu lý trình này thì fải. mình nhớ hồi sinh viên mình đã dùng nó khi làm đồ án tốt nghiệp. bạn thử kiểm tra trong fomat sells xem.

  • 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
Enharl    0
Doan Van Ha, on 15 April 2011 - 12:00 AM, said: Bạn post bản vẽ lên xem nào. Chú ý "Km:" phải viết đúng chữ hoa và chữ thường. Đã kiểm tra kỹ càng và chú ý những điều bạn nói

www.cadviet.com = Replying To Nhờ viết lisp tính khoảng cách giữa các mặt cắt - CADViet forum

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
Doan Van Ha    2.676

Thử cả rồi bạn ah, đều không được. Đúng là mình chỉ dùng có tiền tố Km: thôi,cái này của nova chạy ra mà.Nếu được bạn bỏ dùm mình luôn.Bạn lưu ý dùm nữa là 1+8.5 tương đương 1008.5 đó,8+150~8150.Cũng khuya rồi cũng không dám làm phiền bạn nhiều đâu.Nghỉ để mai còn đi làm tiếp bạn ah.Khi nào rảnh bạn giúp mình cũng được.Thanks nhiều!

Bạn down load lại file này xem (link cũ). Tôi sửa cho cả "km:", "KM:", "kM:" và "Km:", và bạn không cần nhập nó nữa (vì tôi đã bỏ nó), hoặc đây:

http://www.cadviet.com/upfiles/3/tru_co_tien_to_2.lsp

Nếu không được nữa thì bạn copy và paste những dòng lỗi để tôi biết đường mà sửa.

  • 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
tski259    10

Bạn down load lại file này xem (link cũ). Tôi sửa cho cả "km:", "KM:", "kM:" và "Km:", và bạn không cần nhập nó nữa (vì tôi đã bỏ nó), hoặc đây:

http://www.cadviet.com/upfiles/3/tru_co_tien_to_2.lsp

Nếu không được nữa thì bạn copy và paste những dòng lỗi để tôi biết đường mà sửa.

Hi.Đúng là cái mình đang cần.Bạn đã lược mất phần nhập tiền tố lằng nhằng làm nó gọn hẳn.Chuẩn không cần chỉnh nữa bạn ah.Cảm ơn bạn rất nhiều nha.Nếu có dịp đến hay qua TP Hà Tĩnh gọi cho mình số 0168.9876.456 gặp Năm mình sẽ mời bạn đi cafe hay nhậu cũng được.hi.Thanks nhiều.Đúng là trên diễn đàn có những người rất giỏi mà mình phải học hỏi nhiều.Chúc diễn đàn ngày càng phát triể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
Doan Van Ha    2.676

Hi.Đúng là cái mình đang cần.Bạn đã lược mất phần nhập tiền tố lằng nhằng làm nó gọn hẳn.Chuẩn không cần chỉnh nữa bạn ah.Cảm ơn bạn rất nhiều nha.Nếu có dịp đến hay qua TP Hà Tĩnh gọi cho mình số 0168.9876.456 gặp Năm mình sẽ mời bạn đi cafe hay nhậu cũng được.hi.Thanks nhiều.Đúng là trên diễn đàn có những người rất giỏi mà mình phải học hỏi nhiều.Chúc diễn đàn ngày càng phát triển.

Nói thế chắc nhiều người cười khẩy tôi đấy. Nhưng thôi, dù sao cũng đã giúp được 1 người. Chúc bạn 1 ngày 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
tski259    10

Nói thế chắc nhiều người cười khẩy tôi đấy. Nhưng thôi, dù sao cũng đã giúp được 1 người. Chúc bạn 1 ngày vui.

Mình không nghĩ thế đâu.Mình rất quý những người nhiệt tình như bạn.(Xưng bạn có đúng không nhỉ?, hay là "Anh").Bữa nay có được lisp này thích quá đem đi khoe với thằng bạn thì bản vẽ công ty nó ghi là " Lý trình:0+23..... không như bên mình và các công ty khác thường ghi là Km:0+...thì dùng lisp này không được.Mình muốn nhờ bạn phát triển thêm một tí là với tiền tố bất kì trước ":" cũng có thể dùng được(các tiền tố này trên cắt dọc sẽ luôn là giống nhau).Yêu cầu cũng đơn giản như lisp bạn viết cho mình đó,không phải nhập tiền tố là gi?.Nếu được thì mình nghĩ là nó đã hoàn hảo rồi. Một lần nữa cảm ơn bạn nhiều nha.

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
Doan Van Ha    2.676

Mình không nghĩ thế đâu.Mình rất quý những người nhiệt tình như bạn.(Xưng bạn có đúng không nhỉ?, hay là "Anh").Bữa nay có được lisp này thích quá đem đi khoe với thằng bạn thì bản vẽ công ty nó ghi là " Lý trình:0+23..... không như bên mình và các công ty khác thường ghi là Km:0+...thì dùng lisp này không được.Mình muốn nhờ bạn phát triển thêm một tí là với tiền tố bất kì trước ":" cũng có thể dùng được(các tiền tố này trên cắt dọc sẽ luôn là giống nhau).Yêu cầu cũng đơn giản như lisp bạn viết cho mình đó,không phải nhập tiền tố là gi?.Nếu được thì mình nghĩ là nó đã hoàn hảo rồi. Một lần nữa cảm ơn bạn nhiều nha.

Cái này chắc bạn làm được:

Mở file LISP , xóa 2 chữ KM trong đó (dòng 4 và 5) rồi lưu, chạy lại là được. Cứ khoe thoải mái đi nhé bạ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
nhuphac    0

tôi cài acad 2010 trên win7 sau khi cai xong.Rê chuột đến đâu có vệt trắng đến đó.không biết nguyên nhân tại sao mong các bác giúp đỡ.Thanks!

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
tski259    10

Sao bạn không làm trên excel nhỉ.Mục đích làm trên cad của bạn là gì

Mình không làm trên excel vì bảng tính của mình như thế này

bangtinh.jpg

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
Doan Van Ha    2.676

Mình không làm trên excel vì bảng tính của mình như thế này

bangtinh.jpg

Ngu đột xuuất đây: dán cái hình Cad đó lên CADViet như thế nào hè? Chỉ giùm xem! Thiệt 100% luô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

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


×