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

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

[Doan Van Ha 3211]

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

[cd2k44 123]

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ì

[Thaistreetz 539]

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?

[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ứ?.

[Doan Van Ha 3211]

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.

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

[Doan Van Ha 3211]

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!

[ketxu 3005]

:) 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

[Doan Van Ha 3211]

:) 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!

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

[Doan Van Ha 3211]

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?

[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!

[Doan Van Ha 3211]

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

[Thaistreetz 539]

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.

[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

[Doan Van Ha 3211]

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.

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

[Doan Van Ha 3211]

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.

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

[Doan Van Ha 3211]

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

[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!

[tski259 10]

Mình đã làm được rồi.Hi.Đúng là mình còn phải học hỏi nhiều.Thanks

[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

[Doan Van Ha 3211]

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

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!