Đến nội dung


Hình ảnh
- - - - -

[Yêu cầu] Lips lấy text cao độ và Dim


  • Please log in to reply
4 replies to this topic

#1 Mr Việt

Mr Việt

    biết zoom

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

Đã gửi 24 April 2012 - 05:00 PM


Nhờ các bác mở lòng hảo tâm viết giúp mình Lisp lấy text cao độ và khoảng cách Dim cộng dồn trên bình đồ tuyến. Cụ thể như sau.




1. Về file nguồn:



- Các điểm: 0.520; 1.170; 1.810; 2.780; 2.240; 1.990 là các điểm cao độ. Vị trí các điểm do máy toàn đạc điện tử rải lên khi khảo sát địa hình. Các điểm này có các khoảng cách như trong Dim bản vẽ. Khoảng cách các điểm, cao độ các điểm có thể không giống nhau, tùy theo địa hình khảo sát.


Tại lý trình Km0+00:


- Tại điểm có cao độ 2.780 là tim tuyến


- Khoảng cách cộng dồn từ tim tuyến sang bên trái tuyến quy ước là dấu -


- Khoảng cách cộng dồn từ tim tuyến sang bên trái tuyến quy ước là dấu +


- Tại tim tuyến quy ước là 0.000



Km0+00


-7.220 0.520


-4.870 1.170


-2.400 1.810


0.000 2.780


2.400 2.240


7.400 1.990



Tương tự như trên cho lý trình Km0+50



- Tại điểm có cao độ 3.010 là tim tuyến




2. Về File kết quả thể hiện:


- Tên lý trình


- Khoảng cách cộng dồn, cao độ tại các điểm.


Mình gửi đính kèm File nguồn và File kết quả




Chân thành cảm ơn !!!


http://www.cadviet.c..._file_nguon.dwg


http://www.cadviet.c...e_ket_qua_1.txt







  • 0
Phạm Bằng Việt
ĐT: 0924.246.357 - 0942.456.567
Y!M: tvdotaco

#2 ketxu

ketxu

    Copier - Paster - Editor

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

Đã gửi 24 April 2012 - 05:15 PM

Lại là AcDbZombieEntity ^^
  • 0

Thành viên nhóm CadMagic.
Mời bạn ghé thăm facebook nhóm - Page viết lisp theo yêu cầu  :
CAD MAGIC


#3 Mr Việt

Mr Việt

    biết zoom

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

Đã gửi 15 April 2013 - 09:29 AM

cảm ơn bác ketxu chém gió em. cũng đã có người viết giúp em tồi nhé


  • 0
Phạm Bằng Việt
ĐT: 0924.246.357 - 0942.456.567
Y!M: tvdotaco

#4 hochoaivandot

hochoaivandot

    biết dimradius

  • Members
  • PipPipPipPipPip
  • 310 Bài viết
Điểm đánh giá: 107 (tàm tạm)

Đã gửi 15 April 2013 - 10:54 AM

Bạn có thể cho biết bạn cần file kết quả này để làm gì? Làm 1 bước trung gian để viết tiếp ứng dụng gì hay ...?

File này chính là file Nova. Tôi chỉ cần tim cọc (Bạn layoff đi rồi) là có thể xuất tấc cả thông tin bạn cần.  

Tuy nhiên tôi cũng dân trong ngành nhưng chưa biết bạn cần file kết quả như trên để làm gì?

Nếu thật sự cần thiết thì mình viết cho!

Mà bạn nói đã có người viết giúp bạn rồi sao còn yêu cầu nhỉ?


  • 0

Dương Bá Diệp

 

www.cadonline.duyxuyen.vn 

 

Thành viên nhóm CADMAGIC

 


#5 Mr Việt

Mr Việt

    biết zoom

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

Đã gửi 15 April 2013 - 01:58 PM

Cảm ơn bác hochoaivandot đã quan tâm, đây là bước trung gian để lấy dữ liệu chuyển sang phần mềm AnphalGroup (thiết kế đường GTNT, thủy lợi).

Mình post bài nhờ các anh em trên diễn đàn viết hộ lisp này từ năm 2012, đến nay mới có người bạn viết dùm.

Mình thấy bác ketxu trả lời bài viết của mình với thái độ ... nên mới nói vậy thôi.


  • 0
Phạm Bằng Việt
ĐT: 0924.246.357 - 0942.456.567
Y!M: tvdotaco