Đến nội dung


Hình ảnh
- - - - -

[Nhờ chỉnh sửa] Nhờ hoàn thiện lisp phun điểm mia địa chính ra Autocad


  • Please log in to reply
55 replies to this topic

#41 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 13 September 2013 - 04:07 PM

các layer này sẽ tạo mới trong bản vẽ trắng, vì mở cad lên và gõ fmia tìm đến file solieu là nó tạo ra luôn các layer như sau:

- trạm máy có layer và màu số 1 (red)

- điểm có layer và màu số 4 (cyan)

- tên điểm có layer và màu số 7 (white)

anh không phải dân chuyên ngành nhưng quả thực ảnh rất cừ trong mấy cái lisp mà không dễ gì dân chuyên ngành có thể viết ngắn gọn và dễ thực hiện như anh!

rất nhiều người đang xem và đợi anh!

Hề hề hề,

Xem anh thì cũng chỉ thấy mồm ngang mũi dọc , tóc mọc trên đầu chứ có chi khác lạ đâu.

Một người đợi anh, anh đã chả còn biết linh hồn mình vãi nơi đâu huống chi là mọi người.......

Còn muốn xem và đợi lisp của anh thì nó đây nè:

http://www.cadviet.c...iadiahinh_1.lsp

Có một vài lưu ý khi sử dụng lisp này như sau:

1/- Lisp này dựa trên cấu trúc bảng số liệu đo như bạn đã gửi lên. Nếu ai đó sử dụng bảng dữ liệu đo có cấu trúch khác đi thì mình không đảm bảo lisp sẽ chạy ngon.

2/- Lisp này có bổ sung hàm con để chuyển đổi dữ liệu góc đo theo số liệu bạn gửi thành số liệu góc đo theo hệ thập phân của độ. Vậy nên trong trường hợp đã đổi số liệu đo sang hệ thập phân của độ trước đó thì lisp sẽ chạy ra kết quả không đúng (lệch góc một chút ở phần thập phân này)

3/- Lisp sẽ tạo các layer Trammay, Diem và Tendiem với các thuộc tinh mà bạn chỉ định nếu trên bản vẽ chưa có các layer này. nhu7ng nếu trên bản vẽ đã có các layer mang tên như vậy thì thuộc tính của chúng không hề thay đổi gì cả.

4/-  bạn hãy test thật cẩn thận nhé bởi mình đã test trên bản vẽ bạn gửi thì với lisp mới sửa này, các điểm phun ra hầu như trùng khớp hoàn toàn với bản vẽ cũ.

 

Hy vọng nó không làm bạn thất vọng.


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#42 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 13 September 2013 - 04:12 PM

Bác Phamthanhbinh nhiệt tình nhỉ

bác bớt chút thời gian xem hộ em Mục "Quay bản vẽ tronh hình chữ nhật ở layout" với


  • 0

#43 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 13 September 2013 - 07:36 PM

Bác Phamthanhbinh nhiệt tình nhỉ

bác bớt chút thời gian xem hộ em Mục "Quay bản vẽ tronh hình chữ nhật ở layout" với

Hề hề hề,

Mình đã xem qua, nhưng thú thực là về cách sử dụng các hàm vla-.... đối với mình là hơi quá cao. Mình chưa hiểu hết chúng nên khó có thể chỉnh sửa được. 

Nếu bạn gửi bản vẽ thể hiện yêu cầu trước và sau khi dùng lisp thì có nhẽ mình sẽ dễ ngâm cứu hơn là ngồi đọc về các hàm vla- .... này trong khi kiến thức còn quá lùn về nó.

Rất mong bạn không trách.


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#44 hoangkimoanh

hoangkimoanh

    biết vẽ spline

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

Đã gửi 14 September 2013 - 05:37 AM

anh ơi, nó chạy có vẻ không ổn bằng lần gửi trước anh ạ!

nó chỉ chạy được 1 phần và không hiện số thứ tự mà hiên số 0 hết

em gửi ảnh và bản vẽ (em dùng file solieu như anh đã sửa ở trên cho thống nhất) anh coi lại giúp em nhé! cảm ơn anh rất nhiều về sự nhiệt tình!

http://www.cadviet.c...752_drawing.dwg103752_untitled.jpg

 


  • 0

#45 DanKhaosat

DanKhaosat

    biết lệnh scale

  • Members
  • PipPipPip
  • 149 Bài viết
Điểm đánh giá: 14 (tàm tạm)

Đã gửi 14 September 2013 - 10:00 AM

Hề hề hề,

Mình đã xem qua, nhưng thú thực là về cách sử dụng các hàm vla-.... đối với mình là hơi quá cao. Mình chưa hiểu hết chúng nên khó có thể chỉnh sửa được. 

Nếu bạn gửi bản vẽ thể hiện yêu cầu trước và sau khi dùng lisp thì có nhẽ mình sẽ dễ ngâm cứu hơn là ngồi đọc về các hàm vla- .... này trong khi kiến thức còn quá lùn về nó.

Rất mong bạn không trách.

Cám ơn bác nhé em đã nghiên cứu ra được rồi!


  • 0

#46 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 14 September 2013 - 01:29 PM

anh ơi, nó chạy có vẻ không ổn bằng lần gửi trước anh ạ!

nó chỉ chạy được 1 phần và không hiện số thứ tự mà hiên số 0 hết

em gửi ảnh và bản vẽ (em dùng file solieu như anh đã sửa ở trên cho thống nhất) anh coi lại giúp em nhé! cảm ơn anh rất nhiều về sự nhiệt tình!

http://www.cadviet.c...752_drawing.dwg

Hề hề hề,

Lỗi là do textstyle hiện hành trên bản vẽ của bạn có chiều cao text khác 0. Mình quên chưa check điều này.

Bạn có thể thử lại bằng cách đặt chiều cao text của style hiện hành về 0 bằng lệnh style trước khi chạy lisp

Hoặc là bạn chịu khó download lại lisp mình sửa bổ sung việc kiểm tra và setup lại chiều cao text của sytle hiện hành.

Hy vọng lisp sẽ không còn bị lỗi nữa.

http://www.cadviet.c...iadiahinh_2.lsp


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#47 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 993 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 14 September 2013 - 07:24 PM

Bác Phạm Thanh Bình nhiệt tình thật đó. Là một người trong lĩnh vực Trắc Địa thì có lẽ em sẽ không viết Code đâu.

Hiện tại có rất nhiều phần mềm hữu ích được viết để xử lý số liệu Trắc Địa. 

Autolisp chủ yếu là xử lý trên nền đồ họa nên dùng Autolisp lập trình là rất tiện

Tuy nhiên việc xử lý số liệu trong Autolisp thì điều không nên, nên dùng VB để xử lý.

Mặt khác, chúng ta cũng không nên lạm dụng  ngôn ngữ lập trình nhiều quá. Có một số phần mềm dùng để xử lý số liệu Trắc Địa như DPSurvey....thì việc xử lý số liệu rất đơn giản và trực quan.

Số liệu đo đạc về được xử lý rất ngon lành, dễ dàng kiểm tra và tìm được cái sai trong quá trình đo đạc.

Mình chẳng PR phần mềm đó nhưng thấy việc phun điểm địa chính dùng Autolisp thì là không nên.

Ưu Autolisp (Ý chủ quan)

Dễ dàng quản lý, xuất nhập các đối tượng trong Autocad, tự động....

Nhược Autolisp:

Nếu xử lý số liệu thì không trực quan, khó kiểm tra số liệu, gây khó khăn cho người viết, khó tìm ra lỗi khi tệp đầu vào bị sai, chỉ với người hiểu chuyên ngành mới viết được (hoặc phải mô tả rất rõ người viết lisp mới viết dc).

 

Lời khuyên:

Bạn dùng DPSurvey để trút từ máy toàn đạc và máy tính, xử lý số liệu luôn trong đó, dễ dàng chuyển sang Autocad.

http://phanmemtracdia.com/


  • 1



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#48 hoangkimoanh

hoangkimoanh

    biết vẽ spline

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

Đã gửi 14 September 2013 - 10:02 PM

anh Binh ơi, link không tải về được, anh gửi lại giúp em với nhé! em rất thích tính nhiệt tình của anh trong diễn đàn!

cảm ơn anh thanhduan, em sẽ tìm hiểu thêm!


  • 0

#49 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 14 September 2013 - 10:50 PM

Bác Phạm Thanh Bình nhiệt tình thật đó. Là một người trong lĩnh vực Trắc Địa thì có lẽ em sẽ không viết Code đâu.

Hiện tại có rất nhiều phần mềm hữu ích được viết để xử lý số liệu Trắc Địa. 

Autolisp chủ yếu là xử lý trên nền đồ họa nên dùng Autolisp lập trình là rất tiện

Tuy nhiên việc xử lý số liệu trong Autolisp thì điều không nên, nên dùng VB để xử lý.

Mặt khác, chúng ta cũng không nên lạm dụng  ngôn ngữ lập trình nhiều quá. Có một số phần mềm dùng để xử lý số liệu Trắc Địa như DPSurvey....thì việc xử lý số liệu rất đơn giản và trực quan.

Số liệu đo đạc về được xử lý rất ngon lành, dễ dàng kiểm tra và tìm được cái sai trong quá trình đo đạc.

Mình chẳng PR phần mềm đó nhưng thấy việc phun điểm địa chính dùng Autolisp thì là không nên.

Ưu Autolisp (Ý chủ quan)

Dễ dàng quản lý, xuất nhập các đối tượng trong Autocad, tự động....

Nhược Autolisp:

Nếu xử lý số liệu thì không trực quan, khó kiểm tra số liệu, gây khó khăn cho người viết, khó tìm ra lỗi khi tệp đầu vào bị sai, chỉ với người hiểu chuyên ngành mới viết được (hoặc phải mô tả rất rõ người viết lisp mới viết dc).

 

Lời khuyên:

Bạn dùng DPSurvey để trút từ máy toàn đạc và máy tính, xử lý số liệu luôn trong đó, dễ dàng chuyển sang Autocad.

http://phanmemtracdia.com/

Hề hề hề,

Thì tại mình là dân đi mót nên thấy có cái gì hay hay thì mót thôi. Mình cũng mót được khối thứ từ khi viết lisp theo yêu cầu của mọi người.

Do không am hiểu về chuyên môn lắm, nên của đáng tội cứ phải bắt hành bẻ tỏi người đưa yêu cầu.

Rất mong mọi ngưòi không giận.

@HoàngKimAnh: Mình upload lại nhưng nếu bạn vẫn không nhận được thì cho mình địa chỉ mail mình gửi cho.

http://www.cadviet.c...iadiahinh_2.lsp


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#50 kebactinh_007

kebactinh_007

    Chưa sử dụng CAD

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

Đã gửi 14 September 2013 - 10:55 PM

các bác cho e hỏi cái này với: khi quyét đối tượng thì cad hiện lên bảng chữ có dòng: "Line_color_layer_linetype"..vậy phải dùng lệnh j để tắt nó đi?bác nào pro giúp e với..cảm ơn rất nhiều !


  • 0

#51 hoangkimoanh

hoangkimoanh

    biết vẽ spline

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

Đã gửi 14 September 2013 - 11:02 PM

dạ vẫn chưa được anh ạ! anh gửi giúp em vào mail: hoangoanhdalat@gmail.com

anh binh đừng giận nhé, vì em thấy nếu dùng được bên lisp thì công việc sẽ đơn giản hơn rất nhiều (đó là em mới làm nên chưa hiểu hết, nhưng em thấy thích)


  • 0

#52 thanhduan2407

thanhduan2407

    biết lệnh adcenter

  • Advance Member
  • PipPipPipPipPipPipPip
  • 993 Bài viết
Điểm đánh giá: 223 (khá)

Đã gửi 15 September 2013 - 12:13 AM

Hề hề hề,

Thì tại mình là dân đi mót nên thấy có cái gì hay hay thì mót thôi. Mình cũng mót được khối thứ từ khi viết lisp theo yêu cầu của mọi người.

Do không am hiểu về chuyên môn lắm, nên của đáng tội cứ phải bắt hành bẻ tỏi người đưa yêu cầu.

Rất mong mọi ngưòi không giận.

@HoàngKimAnh: Mình upload lại nhưng nếu bạn vẫn không nhận được thì cho mình địa chỉ mail mình gửi cho.

http://www.cadviet.c...iadiahinh_2.lsp

Bác Bình nhiệt tình thật. Vẫn giữ phong độ từ trước đến giờ. 

Nhờ có bác mà em cũng có tiếng thơm lây đó bác. ^^


  • 0



Tôi là con kiến bò trên sa mạc kiến thức bao la. Biển học thật rộng lớn







#53 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 15 September 2013 - 04:58 PM

các bác cho e hỏi cái này với: khi quyét đối tượng thì cad hiện lên bảng chữ có dòng: "Line_color_layer_linetype"..vậy phải dùng lệnh j để tắt nó đi?bác nào pro giúp e với..cảm ơn rất nhiều !

Hề hề hề,

hãy gửi cái màn hình khi bạn quet đối tượng lên nhé.


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#54 hoangkimoanh

hoangkimoanh

    biết vẽ spline

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

Đã gửi 16 September 2013 - 05:20 AM

cảm ơn anh binh nhiều, em đã nhận được mail rồi! em làm phiền anh nhiều qúa! anh giúp em 1 chút nữa được không là vì các góc GPS2 GPS1 CP3 và GPS2 GPS1 CP4 đều ổn rồi chỉ còn góc GPS1 GPS2 CP1 thì góc vẫn chưa được (góc đúng là 202d46'14", góc khi chạy xong nó ra 177d32'04") góc luôn đi theo chiều kim đồng hồ!


  • 0

#55 phamthanhbinh

phamthanhbinh

    biết lệnh adcenter

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

Đã gửi 16 September 2013 - 10:34 AM

cảm ơn anh binh nhiều, em đã nhận được mail rồi! em làm phiền anh nhiều qúa! anh giúp em 1 chút nữa được không là vì các góc GPS2 GPS1 CP3 và GPS2 GPS1 CP4 đều ổn rồi chỉ còn góc GPS1 GPS2 CP1 thì góc vẫn chưa được (góc đúng là 202d46'14", góc khi chạy xong nó ra 177d32'04") góc luôn đi theo chiều kim đồng hồ!

Hề hề hề,

Hãy gửi bản vẽ và file số liệu mà bạn đã chạy lên để mình kiểm tra, vì khi mình chạy trên bản vẽ mà bạn đã gửi trước đó, số liệu trong file mình đã gửi bạn thì các điểm phun ra gần như trùng hoàn toàn với các điểm bạn đã phun.

 

Hề hề hề,

Mình đã phát hiện ra lỗi rồi. Khi chạy trên bản vẽ bạn gửi, màn hình đã được zoom về kích thước đủ để  nhìn thấy toàn bộ khu vực phun điểm mia. Vì thế lisp xác định được chính xác các góc phun này.

Trong trường hợp bạn tạo bản vẽ mới và chạy lisp trên đó, màn hình chưa thấy hết được toàn bô khu vực phun điểm mia nên việc xác định góc phun có vấn đề. Vì sao thì mình chưa giải thích được. Do vậy để tránh sai lệch này mình cho zoom màn hình để có thể nhìn thấy toàn bô các lưới trạm trước khi phun điểm mia thì không bị lỗi như vầy nữa.

Bạn hãy vào mail để nhận lại file lisp mình đã sửa lại nhé.

http://www.cadviet.c...iadiahinh_2.lsp


  • 1
Chúc các quý Anh trên diễn đàn luôn khỏe, đẻ thêm được nhiều thứ để mót.

#56 BKTen

BKTen

    biết vẽ circle

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

Đã gửi 30 April 2014 - 12:07 PM

Bác Bình cho em xin lisp địa hình nay với.

trananhcc47@gmail.com


  • 0

Muốn làm bạn với AutoLisp. Mong được đàn anh Pro Chỉ dạy.