NDBNGO
-
Số lượng nội dung
130 -
Đã tham gia
-
Lần ghé thăm cuối
-
Ngày trúng
2
Bài đăng được đăng bởi NDBNGO
-
-
thank các bạn đã đóng góp ý kiến, mình cũng biết đc thêm 1 tí. Vì cơ quan mình chủ yếu là xài cad từ đó đến giờ chưa sử dụng thêm 1 phần mềm nào khác. Mình tham gia diễn đàn cũng là vô tình biết đc và thấy diễn đàn mình rất hay có tất tần tật về cad, mình có thể học hỏi thêm rất nhiều, giờ mình đang học lớp auto lsp của anh Ket, mục đích của mình là có thể học thêm về cad phục vụ cho việc biên tập bản đồ nhanh hơn đẹp hơn ^^, thời gian mình học cad cũng ngắn chỉ có 3 tháng, cách đây cũng 1 năm rùi cỏn lại là mình tự mò và cũng nhờ diển đàn mình biết đc nhiều hơn. Mình mún lập ra để cùng nhau thảo luận về cách use cad trong việc biên tập thui ý mà, còn về bình sai, xử lý số liệu thì ok rùi, còn lại là biên tập, biên tập cũng cần khiếu thẩm mỹ và sáng tạo lắm chứ :D
Những cái dó có quy phạm và dã hoàn thiên trên các phân mềm MS lâu rồi bạn ạ. Biên tập o cần cái nhưu bạn nsoi đau ,nó cực kỳ đơn giản và sớ dẳng với anh em địa chính mà. Để viêt dc 1 cái như TMV hay Viet map bạn phải học Vlisp và cả diên dàn giúp đỡ 5 năm nữa cũng o làm đc đâu.
-
Em là dân đo đạc địa chính, em thấy forum mình có góc chuyên ngành, nhưng ko có chuyên ngành địa chính. Chắc là ngành này nó chung chung ko đc chuyên sâu phài ko mấy anh. Nay em mạo mụi lập topic này mong các memcad nào cùng là dân đo đạc như em có thể cùng nhau trao đổi thảo luận các vấn đề liên quan để cùng nhau tiến bộ. Em ngĩ công việc này có thề hơi nhàm chán nhỉ, như mấy cú trong cơ quan hay nói đùa khi biên tập bản đồ chán lắm suốt ngảy củng chỉ zoom zoom pan pan thui ^^, em cũng mới ra trường đi làm đc 1 năm nên cũng chưa có nhiều kinh nghiệm lắm, mặc dù nói đùa như vậy nhưng thật ra em thấy cũng có nhiều lúc gặp những loại bản đồ rất hoc búa. Mong các mem nhiệt tình góp ý ủng hộ . Em chân thành cám ơn.
ps: em ở tp hcm
Hiện tại các phần mềm địa chính hiên nay được viêt và hoàn thiện trên Microstation se và Microstation V8 ,được sử dụng hêt sưc rộng rãi như TMV ,Vietmap..Đặc biêt TMV đang dc 95% các dơn vị sử dụng trong thực tế sản xuất.Với MS v8 các tính năng gần như cad ( tính năng chuôt giữa) ,giao dien và đẻ vẽ thì dan cad sang chỉ 1 ngày là thành thạo.TMv và Vietmap đảm bảo cho mọi công tác tahnhf lập bản đồ dịa chính rồi đó. Để học và làm thành thạo nó theo mình không quá 1 tuần đâu ,hieuj quả và nhàn mà .Diễn đàn cadviet rât nhiều thành viên tài năng nhưng manh mún ,chỉ tập trung giải quyêt các vấn đè riêng lẽ ,đẩy tốc độ giải quyết công việc nhanh hơn .Chứ không đủ tầm đẻ làm thành 1 phần mèm đóng gói như bạn mong muốn và hơn nữa nó đã có nhiều rồi bạn ạ. Ngay các phàn mềm trên CAD phục vụ khảo sát ,thiêt kế như TOPO,NOVA,TKK,TDT.AND,ADS,HS....cũng rất hay bạn ạ.
-
2
-
-
chào các bác trong điễn đàn. em có việc thắc mác nhờ các bác chỉ giùm. e có các đối tượng gồm các số và chữ số cùng là thuộc đối tượng text và cùng thuộc 1 lớp. giờ em muốn lọc các đối tượng sô riêng ra khỏi các đối tượg tex đó, mong các bác gúp đỡ. cám ơn nhiềuTrong diễn đàm đã có lisp lọc toàn bộ đối tượng chữ và đối tượng số tạo thành 2 layer mới (Mặc định là sô và layer chu) chứa riêng các đối tượng này .Cá nhân sử dụng líp này rất tiện vì không chỉ lọc trong cùng 1 layer mà lọc trong tất cả các layer . Nếu lọc 1 layer bạn khóa các layer khác chỉ để lại 1 layer cần lọc.
-
Bác à, lâu rồi mới thấy bác post bài. Hì. Từ một file nguồn có thể xuất ra nhiều file khác với định dạng khác nhau. Đó là là cách đọc file và ghi file thôi mà. Bác tìm trên diễn đàn đã có nhiều cách đọc file và ghi file rồi đấy bác ạ. Khi mình đã vững cách đọc và ghi dữ liệu ra file thì muốn làm gì cũng được. Chúc bác cuối tuần vui vẻ. :)Mình chỉ thấy trên diễn đàn từ 1 nguồn dữ liệu thì chỉ thấy ghi ra được 1 file,nghĩa là mình muốn làm sau lấy dữ liệu 1 lần ,đồng thời ghi luôn ra được 2,3 hay nhiều file.Ví dụ như trường hợp text thì khi chọn các đối tuợng mình có luôn 3 file text với các nội dung khác nhau chú không phải làm 3 lần.
Cảm ơn.
-
Trong các ngôn ngũ lập trình khác từ 1 file dũ liệu nguồn có thể xuất ra 2 (hoặc rất nhiều file khắc với các định dạng khác nhau )để phục vụ cho đồng thời nhiều mục đích khác nhau của người sử dụng. Vâỵ thì với ngôn ngữ lisp ta có thể làm được điều đó không ,cá nhân đã tìm kiếm trên diễn đàn chưa thấy đề cập vấn đề nầy.
Ví dụ với 1 bài cụ thể trong CAD nêu ra để đễ hình dung :
Từng các text (giá trị cao độ) trên màn hình ta có thể xuất ra đồng thời nhiều file với các định dạng (format) khác nhau:
FIle 1: Xuất Thống kê tọa độ X,Y,Z các text ( có nhiều trên diễn đàn.
File 2 : Xuất định dạng thú tự ,khoảng cách ,giá trị z
File 3 : Xuất ra thông báo số lượng text có trên màn hình với các lựa chọn < Giá trị a bao nhiêu text(thống kê). Trong khoảng a đên B bao nhiêu test ( thống kê ) .> B bao nhiêu text (Thống kê)
....
Mong có sự tham gia ,trao đổi của các bạn trong diễn đàn.
-
CÁCH COPY???
trong Sử dụng AutoCAD
bác nào cho em hỏi cách copy 1 hình nào đó từ bản vẽ này qua bản vẽ khác với và cách chèn từ xcel vào bản vẽ em với?Bạn hình dung như trăng trên trời và trăng dưới giếng. Copy (insert ) là nhìn ngưòi dẹp thực còn xref là người đẹp trong gương.
Nghĩa là copy là dối tuợng thực ,còn xref là đối tưọng ảo ,và vì ảo nên nó có tác dụng cho ta hình dung vầ ban vẽ ,nhưng làm cho bản vẽ gần như không tăng dung lượng,khiu cầnthiếtthì có gỡ bỏ hoặc chèn vào bản vẽ dễ dàng.
Đơn giản vậy thôi.
-
1
-
-
Trắc ngang trong giao thông thì tỷ lẹ đo vẽ là 1/200,bình đồ đo vẽ tỷ lệ 1/1000.Do vậy viejc nội suy cắt ngang từ bình đồ về lý thuyết thì được nhưng thực tế không được vì độ chính xã của mặt cắt đo 1/200 rất tỷ mỷ ,hơn nữa khi tạo mô hinh thì nôi suy tam giác nên các điểm đo lấy theo tính nội suy với cả mô hình ,nên mặt cắt càng biến dạng.
Chỉ có thể làm với đường mới và cấp thấp ,địa hình không phức tạp.
Nhưng không thể chê nova nhiều được vì tù khi có nova đó là 1 cuộc cách mạng trong khảo sát và thiết kế đường (số người dùng rộng khắp ,các chuẩn mới đều viết dựa trên nova cả ,và gần như được sử dụng khong tranh cãi).
Để viết như nova ,ngay diễn đàn Cadviet khó có thể có thành viên nào làm được (kẻ cả 1 nhóm ưu tú nhất diễn đàn) ,vậy nên phải chấp nhận thôi . Mã nguồn của nova hiện nay vẫn được gữi và bảo quản kỹ chưa rộng rãi nên muốn sửa cũng không được đâu.
Chỉ khi có mã nguồn thì có lẽ cộng đồng Cadvieet có thể tác động vào các modun cho hiệu quả và hợp lý hơn mà thôi.
Ngô Đông Phương 0988529640
-
Công việc của bạn cũng tương tự như mình, ở cty mình thì thường làm như sau: Từ máy Leica xuất ra file số liệu đuôi là text, rồi từ file text đấy xây dựng địa hình của tuyến (đường đồng mức, lưới bề mặt, tuyến...) rồi dùng lệnh RTDN chuyển số liệu sang file NTD.Chúc bạn thành công.!
Cách này về lý thuyết thì tưởng được nhưng thực tế khi đưa mô hình vào thì các điểm mia bị ảnh hưởng và nội suy theo mô hình sẽ sai so với các điểm đo thực. Mà mặt cắt thì thường phải là điểm mia thực tế,vậy nên làm thế sẽ không ổn,sai nhiều.
Lệnh rtdn chỉ có nhiểm vụ để nhập số liệu trực tiếp (Hay copy từ excel) chứ không thể tư mô hình gõ RTDN là thành được file *.ntd.
Vậy nên phải tìm 1 cách khác mới được.
Có đơn vị dùng các đọc ra file k/c(giấn tiếp) và chênh cao ,sau đố nhập vào rtdn.
Đơn vị khác thì tung điểm lên rồi lấy ra khoảng cách và độ cao và nhập vao RTDN.
....
Nói chung là còn nhiều công đoạn thủ công.
Trừ 1 vài đơn vị khi đo nhập các điểm mia có ký tự ghi chú và phần mềm chuyên để xuất sang file*.ntd (Viết 1 phần mềm mà có chuyển định dạng từ sô liệu đo sang có có format *.ntd và nova đọc trực tiếp đựộc file này,song hiện chỉ được lưu hành nội bộ cho 1 số cá nhân trong khảo sát của công ty chưa được công bố rộng rãi,(vạch tuyến vào các điểm đó ,sau đó dùng 1 lệnh của để xuât thẳng ra *.ntd ).
-
Công việc của bạn cũng tương tự như mình, ở cty mình thì thường làm như sau: Từ máy Leica xuất ra file số liệu đuôi là text, rồi từ file text đấy xây dựng địa hình của tuyến (đường đồng mức, lưới bề mặt, tuyến...) rồi dùng lệnh RTDN chuyển số liệu sang file NTD.Chúc bạn thành công.!
Cách này về lý thuyết thì tưởng được nhưng thực tế khi đưa mô hình vào thì các điểm mia bị ảnh hưởng và nội suy theo mô hình sẽ sai so với các điểm đo thực. Mà mặt cắt thì thường phải là điểm mia thực tế,vậy nên làm thế sẽ không ổn,sai nhiều.
Lệnh rtdn chỉ có nhiểm vụ để nhập số liệu trực tiếp (Hay copy từ excel) chứ không thể tư mô hình gõ RTDN là thành được file *.ntd.
Vậy nên phải tìm 1 cách khác mới được.
Có đơn vị dùng các đọc ra file k/c(giấn tiếp) và chênh cao ,sau đố nhập vào rtdn.
Đơn vị khác thì tung điểm lên rồi lấy ra khoảng cách và độ cao và nhập vao RTDN.
....
Nói chung là còn nhiều công đoạn thủ công.Trừ 1 vài đơn vị khi đo nhập các điểm mia có ký tự ghi chú và phần mềm chuyên để xuất sang file*.ntd (Viết 1 phần mềm mà có chuyển định dạng từ sô liệu đo sang có có format *.ntd và nova đọc trực tiếp đựộc file này,song hiện chỉ được lưu hành nội bộ cho 1 số cá nhân trong khảo sát của công ty chưa được công bố rộng rãi,(vạch tuyến vào các điểm đó ,sau đó dùng 1 lệnh cảu lisp để xuât thẳng ra *.ntd ).
-
@bác NDBNGO: Việc tổng hợp các lisp trên diễn đàn này lại là điều không thể. có quá nhiều vấn đề ngăn cản chúng ta làm việc đó:- Ai cũng có công việc và ai cũng phải lo chuyện cơm áo gạo tiền. và mỗi thành viên dù là nhiệt huyết nhất trên diễn đàn này cũng đều phải dành phần lớn thời gian cho điều đó. việc tổng hợp lại tốn quá nhiều thời gian và công sức. ai trả tiền cho họ đây? hứng thú nào để họ làm việc đó?
- những thành viên tiêu biểu và nhiệt tình trong box autolisp này post code vì niềm đam mê với lisp và ý thức chia sẻ với cộng đồng. ngoài mục đích được giao lưu học hỏi họ không vì bất kỳ 1 lợi ích cá nhân nào khác. thế nên không thể quy trách nhiệm cho họ khi người dùng gặp khó khăn trong việc lựa chọn công cụ làm việc tốt nhất cho mình.
- Trong công việc, bản thân mỗi người có 1 thói quen làm việc riêng. Đặc thù công việc của mỗi người cũng khác nhau. chưa nói tới việc mỗi công ty, mỗi doanh nghiệp lại có 1 chuẩn riêng cho mình. tổng hợp cho vừa ý đối tượng này thì lại là đồ bỏ với đối tượng khác. những lời chê bai sau đó ai là người phải nhận đây?
- vân vân và vân vân những lý do tương tự khác. Tựu chung lại là sẽ chẳng ai có hứng thú làm việc này trừ khi làm cho chính bản thân mình.
và điều cuối cùng em muốn nói: không thể thụ động chờ người khác được. mỗi chúng ta trong công việc tốt nhất là tự mình viết lấy những gì mình cần, nếu không có khả năng viết thì hãy chịu khó bỏ một chút công sức ra cop nhặt lắp ghép cho phù hợp với nhu cầu của mình nhất. hồi mới ra trường em cũng làm thế. việc này chẳng mất nhiều công sức nhiều nếu so với công sức và thời gian người ta viết hộ mình đâu bác ạ.
Đúng như bạn nói ,tất cả cũng đều vì nhiệt huyết ,ham muốn và giao lưu dể nâng cao năng lực cho mỗi cá nhân và cộng động CADViet nói chung.Mình không chê trách 1 thành viên nào cả nhưng mình chỉ muốn nói răng ý muốn của chủ topic này cũng là 1 điều đúng mặc dù có thể là cực kỳ khó khăn (thậm chí không tưởng như ý kiến của bạn) ,chúng ta chưa có thể làm được thì cũng có những ý tưởng đúng để có thể làm lúc khác.
Chẳng ai muốn đi xin phần mềm cả ,bới vì chờ đợi ,tranh luận nhiều lúc được sự quan tâm thì có thể nẩy sinh được nhiều ý tưởng mới,nhiều cách làm hay hơn,song nhiều lúc bị lãng quên trong sựu im lặng.Nhưng phụ thuộc từng cá nhân (trình độ,năng lực,khả năng nhận biết ...) không phải ai muốn là cũng có thể viết được .Ngay trong giao thông các ứng dụng cũng đã được viêt bằng pascan và foxbro từ hàng chục năm nay ,hổ trợ nhiều cho anh em khảo sát thiết kế giao thông . Nhưng cả 1 cơ quan tư vấn giao thông lớn cũng chỉ có 1 vài thành viên có thể viết được (mà cả diễn đàn CADVIet chắc cũng chỉ hơn chục thành viên có năng lực và nắm bắt về VLISP,VBA tốt mà thôi).Do đó ngoài sự nỗ lực của các cá nhân ,việc giúp đỡ của các bạn có trình độ ,năng lực cũng hết sức cần thiêt.
Cảm ơn vì ý kiến trao đổi của bạn.
Ngô Đông Phương Tel: 0988529640
-
1
-
-
cám ơn bạn đã giúp đỡ mình nhưng lisp bạn bị lỗi hay sao đó ! mình đánh lệnh td nó thông báo ty le mình nhập 1000 nó báo lỗi! bạn xem lai giùm minh nhéLisp này mình chạy thử trên cad 2004 bình thường không báo lỗi gì đâu.Bạn kiểm tra lai đi.
-
Đầu tiên chân thành cảm ơn những người đã bỏ công sức viết lisp cho anh em kỹ thuật dùng cad một cách hiệu quả hơn.Tuy nhiên mình thấy trên diễn đàn một số lisp trùng nhau về nội dung nhưng cách dùng lệnh và tên khác nhau, khiến những người mới rất khó dùng.
Bạn nào có thể hệ thống lại các lisp, ghi lệnh tắt vào tên lisp thì những người khác sẽ dùng một cách dễ dàng hơn. Ví dụ:
Cut_dim-cd.LSP
Tinh_tong_do_dai-tl.LSP
Noi_duong_line-nn.LSP
.......
Cảm ơn!
Trên diễn đàn có rất nhiều thành viên ,nên trình độ có sự phân cấp và chênh lệch nhau rất nhiêu .Nhiều vấn đề đặt ra thì có vấn đề đã được giải quyết trọn vện ,nhiều vấn dề bị bỏ lửng giữa chừng.
Để theo dõi các bài viết thì các bản vẽ giúp cho hiểu vấn đề và hình dung các lisp viết ra phục vụ cho bản vẽ đó ,song các đường link sau 1 thời gian đã không còn ,vì vậy nhiều thành viên mới ,thậm chí cả thành viên cũ muốn quan tâm cũng phải dò rất lâu mới hiểu được. Có lẽ số người hiếu được gần hết cũng chỉ khoảng 20 thành viên trở lại.
Đề nghi của ban có lẽ là nhu cầu chung vì sau 1 vấn đề đặt ra thì có mod quản trị có kết luận về cách giải quyêt được bao nhiêu ,hay chưa thể giải quyêt hiện tại mà chờ thời gian khác. Nên chăng sau khi các vấn để đã giải quyêt tương đối thấu đáo thì tập hợp lại trong 1 topic riêng theo tưng chủ đề (chỉ sử dụng lisp đã hoàn thiện ) chứ để đọc từ đầu đến cuối ,nhiều khi rát mất thời gian và nhiều khi đi vào ngõ cụt vì không ai tham luận và giải quyêt tiêp.
Nếu các bạn có thời gian ,trình độ tập hợp lại và đống gói thành các bộ lisp như 1 óố bạn đã làm ( như bộ lisp Duy,SSG,NguyenHoanh ...) thì thuận cho tất cả tham khảo và sử dụng.
Một số ý kiễn của các nhân ,mong được quan tâm .
-
Trên diễn đàn đã có nhiều phần lisp xuất text (giá trị cao độ) trên màn hình ra file (với định dạng thu tu,X,Y,Z) nhưng mình cần khi xuất ra file các tập hợp này được sắp sếp theo các lựa chon sau -4 lựa chọn người dùng-(giá trị X tăng, X giảm,Y tăng,Y giảm). Nhờ các ban có thể viết giúp mình lisp với các lựa chọn như vậy .
Trong các text này ,nếu giá trị text nào được lựa chọn bằng chuột (Chọn điểm text cần thêm ghi chú) thì sẽ thêm giá trị text theo người dùng yêu cầu khi xuất ra file (ví dụ mặc định là chữ T chẳng hạn)
Ví dụ : Sau khi chọn 1 tập hợp các text trên màn hình ,với chọn lựa Y tăng .Ta có 1 file *.txt như sau:
1 12.36 42.36 17.36
2 13.56 42.38 15.34
3 12.35 42.56 14.38 T
4 12.39 42.65 13.32
......
Trong file:
Cột 1 là số thứ tự
Cột 2 là giá trị x
Cột 3 giá trị y
Cột 4 giá trị Text trên màn hình
Cột 5 T là giá trị chuỗi thêm vào những text cần đánh dấu trên màn hình bằng bấm chuột (hoặc chọn)
Trước nay ,cá nhân vẫn xuất ra file txt,sau đó mở ra excel sử lý ,nhưng vì có nhiều tập hợp chọn ,hơn nữa các txt cần dánh dấu thì phải mở cả cad và excel tìm ra các điểm cần đánh dấu để gõ thêm ký tự vào tập hợp chọn. Làm như thế rất thủ công và mệt mỏi vì hay nhầm lẫn. Vậy nên cần có 1 lisp để xử lý các việc đã nêu ra ở trên
Xin cảm ơn.
-
Đọc đi đọc lại mà em vẫn chưa hiểu ý bác lắm. Riêng phần yêu cầu sắp xêp tọa độ các điểm theo ý của bác thì em nghĩ có cách làm đơn giản hơn, đó là dùng excel để sắp xếp. Cụ thể là thế này:- Bác cứ chạy các điểm cần thống kê tọa độ và cao độ ra file text. làm bằng cách nào thì chắc bác đã biết. diễn đàn đã có rất nhiều công cụ để làm việc này.
- có file text rồi bác mở nó lên bằng excel. chọn tất cả các hàng cần sắp xếp.
- tìm công cụ filter (nếu bác dùng excel 2007 thì nó nằm ở menu data) và bấm vào nó đẻ kích hoạt)
- khi đó ở đầu các cột sẽ có 1 mũi tên. bấm vào nó rồi lựa chọn cách săp xếp theo ý của bác. sau khi đã sắp xếp xong thì bác tắt Filter đi.
hi vọng đúng ý bác.
Đùng là trước nay( 5-7 năm nay) đến giờ cá nhân vẫn làm như thế ,nhưng mất rất nhièu thời gian và phức tạp khi có rất nhiều tập hợp tọa độ như thế ,cứ mỗi tập hợp cá nhân lại phải đưa sang excel và lực chọn để sắp xêp lại theo ý muốn (tăng dần hoắc giảm dần giá trị x,y). Rối lại phải ghép lại các tập hợp này .
Vì khi xuât các giá trị text các test không theo ý mình,hơn nữa khi sắp sếp xong lại mở cả 2 bản cad và excel để tìm đánh dấu text mình cần thêm giá trị ( chuối string) nằm ở vị trị nào trên bảng để gõ vào.Lấu lắm.
Vậy rất cần các lisp có tính năng trên.
Xin cảm ơn.
-
Đọc đi đọc lại mà em vẫn chưa hiểu ý bác lắm. Riêng phần yêu cầu sắp xêp tọa độ các điểm theo ý của bác thì em nghĩ có cách làm đơn giản hơn, đó là dùng excel để sắp xếp. Cụ thể là thế này:- Bác cứ chạy các điểm cần thống kê tọa độ và cao độ ra file text. làm bằng cách nào thì chắc bác đã biết. diễn đàn đã có rất nhiều công cụ để làm việc này.
- có file text rồi bác mở nó lên bằng excel. chọn tất cả các hàng cần sắp xếp.
- tìm công cụ filter (nếu bác dùng excel 2007 thì nó nằm ở menu data) và bấm vào nó đẻ kích hoạt)
- khi đó ở đầu các cột sẽ có 1 mũi tên. bấm vào nó rồi lựa chọn cách săp xếp theo ý của bác. sau khi đã sắp xếp xong thì bác tắt Filter đi.
hi vọng đúng ý bác.
Đùng là trước nay( 5-7 năm nay) đến giờ cá nhân vẫn làm như thế ,nhưng mất rất nhièu thời gian và phức tạp khi có rất nhiều tập hợp tọa dộ như thế ,cứ mỗi tập hợp cá nhân lại phải đưa sang excel và lực chọn để sắp xêp lại theo ý muốn (tăng dần hoắc giảm dần giá trị x,y). Rối lại phải ghép lại các tập hợp này .
Vì khi xuât các giá trị text các test không theo ý mình.
Vậy rất cần các lisp có tính năng trên.
Xin cảm ơn.
-
Trên diễn đàn đã có nhiều phần lisp xuất text (giá trị cao độ) trên màn hình ra file (với định dạng thu tu,X,Y,Z) nhưng mình cần khi xuất ra file các tập hợp này được sắp sếp theo các lựa chon sau -4 lựa chọn người dùng-(giá trị X tăng, X giảm,Y tăng,Y giảm). Nhờ các ban có thể viết giúp mình lisp với các lựa chọn như vậy .
Trong các text này ,nếu giá trị text nào được lựa chọn bằng chuột (Chọn điểm text cần thêm ghi chú) thì sẽ thêm giá trị text theo người dùng yêu cầu khi xuất ra file (ví dụ mặc định là chữ T chẳng hạn)
Ví dụ : Sau khi chọn 1 tập hợp các text trên màn hình sẽ xuât ra file theo y tăng(y theo trắc địa và là x trên cad)
1 12.36 42.36 17.36
2 13.56 42.38 15.34
3 12.35 42.56 14.38 T
4 12.39 42.65 13.32
Trong đó cột 1 là số thứ tự cột 2 là giá trị x,cột 3 giá trị y,cột 4 giá trị Text trên màn hình ,T là giá trị chuỗi thêm vào text cần đánh dấu trên màn hình bằng bấm chuột .
Các bạn Thaistreetz và phamthanhbinh cũng đã ngiên cứu viêt về vấn đề gần giống như vậy ,nhưng chưa thấy các lisp đó trên diễn đàn. Nhờ các bạn hỗ trợ
Xin cảm ơn.
-
Các bác cho e hỏi vì sao khi muốn cop 1 hình và paste nhiều lần mà không được,nó chỉ cho paste 1 lần nên nếu muốn paste tiếp thì phải cop lại.mặc dù e đã ấn phím Ctrl khi paste.Xin cảm ơn các bác.
Để tiện sử dụng ban viết 1dòng lisp
(defun c:cm () (ssget) (command "copy" "p" "" "m"))
cm có thể thay bất kỳ bằng chữ hay số nào để tiện bạn sử dụng.Như vậy bạn chỉ cần 1 lệnh là có thể làm theo ý bạn muốn
-
Nhờ các bác hướng dẫn cách nhập số liệu đo địa hình nhanh nhất với AutoCad2008?Nhập số liệu không phải là mật mạnh của cad đối với các dữ liệu đo trắc địa. Không chỉ cad 2010,2011 mà cả cad chuyên sâu như land destop.Hiện nay trong trắc địa các số liêu đại bộ phận đưọc đo theo chế độ ghi trút ,nên việc nhập số liệu không còn quan trong nữa mà chỉ là sử lý số liệu trên cad ( đo vẽ bình dồ ,cắt dọc ,cắt ngang -để làm điêu đó bạn cần có các phần mềm chuyên ngành ).
Tốt nhất hiện nay có phần mềm TOpo 5.0 chạy trên nền cad 2005 là có thể xử lý đưọc nhanh và tương đối trọn ven các số liệu mà thôi .
Chúc bạn thành công.
-
Mình gộp hết lại vào 1 file lvtcu_ndait.lsp cho bạn dễ sử dụng :http://www.cadviet.com/upfiles/3/lvtcu_ndait_1.lsp
Túm lại ctrình này có nhiệm vụ copy 1 vùng (rectangle) dữ liệu đến đặt vào 1 chỗ mà mình cần.
Bạn làm như sau :
load file lvtcu_ndait.lsp
gọi lệnh lvtcu
Nhập tỷ lệ mong muốn. 5 = 500 ( 1=1000 , 2=2000 ....)
Pick chọn vùng mà bạn cần đem kết quả đến bằng cách chọn 2 điểm tạo ra 1 hình chữ nhật. (Vùng đặt kết quả)
Dịch chuyển màn hình đến khu vực bạn cần lấy dữ liệu bằng nút cuộn của con chuột (Vùng dữ liệu cần lấy)
Lúc này bạn sẽ thấy 1 hình chữ nhật đi kèm theo con trỏ chuột.
Bạn pick chọn 1 điểm sao cho hcn đó chộp được những gì bạn cần.
Có thể bạn sẽ cần lấy thêm các số thửa lân cận nằm ngoài vùng chọn. Ban hãy chọn text rồi chọn 1 điểm trong vùng hcn để đặt nó. (Nếu thấy không cần bổ sung gì thì cứ enter cho qua ) Xong bấm enter.
Pick chọn 1 điểm tại 1 vị trí bất kỳ sao cho vùng màn hình có đủ chỗ trống để ct mượn chỗ thao tác. (Cắt xén)
Hết lệnh. Lúc này ct sẽ đem những gì bạn cần chép đến vùng kết quả
Bạn xem file ví dụ sẽ thấy rõ hơn :http://www.cadviet.com/upfiles/3/lvtcu.dwg
@: Nếu ctrình vẫn lỗi, không chạy trên máy bạn được thì bạn hãy cho mình biết thông tin lỗi cụ thể để mình tiện xem lại
Vì ctrình này vẫn chạy tốt trên máy của mình
Chúc bạn thành công !
Bạn có thể sửa mã lisp có thể chọn đưọc 10 vùng (hoặc hơn ) để trích ra 10 thửa hoặc hơn được không. Mình định sửa nhưng ngồi dò mã lâu quá ,chưa thể sửa được.
Nghĩa là cũng như bạn chọn 10 vùng đặt kết quả rồi dến 10 vùng cần lấy.
Cảm ơn.
-
ko nhân được
trong Sử dụng AutoCAD
các pác giúp em với,tự nhiên cad của em nó ko nhân được,vd như em ấn lệnh l enter nhập 500*100 nhưng ko được
[/quote
Muốn nhân từ dòng lệnh command bạn phải dùng biểu thức lisp .
Command : ( * 500 100)
50000
-
Vẽ Trắc dọc
trong Sử dụng AutoCAD
Bạn có muốn dùng lsp vẽ trắc ngang và trắc dọc không ?Mình share cho. Chứ Hwase thì chưa dùng nên không bít.
Bạn có thể gửi lên để mọi người cùng tham khảo được không .Nhớ gửi cả mẫu file số liệu để chạy.
-
Chào bác NDBNGOBác thay dòng
(setq g2 (fix g1))
thành dòng
(setq g2 (fix (+ g1 0.0001)))
trong code của bác NguyenNdaiT là được. Hoặc sử dụng hàm FixR mà Tue_NV đã viết
Đây có lẽ là lỗi làm tròn của hàm Fix
Về hàm prefix0 thì Tue_NV đã chạy thử không thấy lỗi gì cả.
Và đã viết lại hàm con prefix0 (thay hàm itoa bằng rtos), bác chạy thử đoạn code này thử nhé :
(defun c:fso() (setq b (getreal "\n Nhap so :")) (setq c (fixR B )) (setq d (prefix0 C)) (setq e (- b (fixR B ))) (setq e1 (* e 100)) (setq e2 (fixR e1)) (setq e3 (prefix0 e2)) (setq g (- e1 (fixR e1))) (setq g1 (* g 100)) (setq g2 (fixR g1)) (setq g3 (prefix0 g2)) (alert (strcat d " "e3 " " g3)) ) ;;;;; (defun fixR (s) (fix(atof(rtos s)))) (defun prefix0 (s) (if (< (float s) 10.0) (strcat "0" (rtos s 2 0)) (rtos s 2 0) ) )
CHúc bác thành công
Cảm ơn sự giúp đỡ nhiệt tình của bạn ,mã cảu bạn đã chạy rất tốt.
Nhờ bạn đã giúp nhiêu hơn về tư duy viêt mã lisp.
Xin cảm ơn ban lần nữa.
-
1
-
-
Bác tham khảo bài viết số 2922. Em có viết rõ ràng lắm màBác NGO có thể cho biết công việc của bác đang làm không?
Bác đang làm chương trình gì mà chạy nó không được
Tue_NV thử chạy đoạn code ở trên nó ra đúng như bác yêu cầu cơ mà????
Bác có thể upload những cái mà bác đang làm và nói rõ hơn được không?
Mình đang viết các chương trình chuyển đổi các định dạng góc,khoảng cách ....ở các định dạng khác nhau do người dùng yêu cầu về 1 format đã quy định.
Hàm fixR của bạn rất hay ,đã giải quyết được thắc mắc của mình đưa ra kết quả đúng,vì mình không nghĩ rằng hàm fix lại có lỗi như thế (rất nhiều bạn không kiểm soát đã bị mắc lỗi này và phải sửa lại bằng thủ công) .
Phần ghép o cho các chữ số <10 của bạn ,có lẽ không sai nhưng không hiểu sao lại không cho ra kết quả mới (kết quả vẫn như cũ chưa thêm hàm prefix0 (s) .Mình ghép đoạn của ban NguyenNdait (if (< g2 10) (setq g3 (strcat "0" (rtos g2 2 0))) (setq g3 (rtos g2 2 0))) thì lại chạy ra kết quả tốt.
Nghĩa là của bạn 70% NguyenNdait 25 % thì đã được như ý mình.
Cảm ơn tất cả các bạn .
( Bạn Tue_NV có thể giải thích giúp mình do lý do tại sao không)
-
Bạn thử đoạn này xem :(setq a ( nth 0 LL1)) (setq b (atof a)) (setq c (fix b)) (setq d (rtos c 2 0 )) ;;; nha^.p phan phut (setq e (- b (fix B))) (setq e1 (* e 100)) (setq e2 (fix (+ e1 0.0001))) (if (< e2 10) (setq e3 (strcat "0" (rtos e2 2 0))) (setq e3 (rtos e2 2 0))) ;;; nha^.p phan giay (setq g (- e1 (fix e1))) (setq g1 (* g 100)) (setq g2 (fix g1)) (if (< g2 10) (setq g3 (strcat "0" (rtos g2 2 0))) (setq g3 (rtos g2 2 0)))
Cảm ơn bạn ,phần ghép số 0 đã thực hiện rất tôt nhưng ban cần kiểm tra lại việc lấy dữ liêu góc:
Khi chạy sẽ có hiện tượng sau
Góc 207.2200 sẽ thành 207 22 99
348.5800 = 348 58 99
Rất cảm ơn bạn đoạn sau đã chạy tốt
Có Thể Thêm 1 chuyên ngành vào góc chuyên ngành không
trong Góp ý xây dựng
Đã đăng · Trả lời báo cáo
Dùng cad hay MS cũng có khác gì nahu đây,bản cad cso thẻ đọc bình thường trên MS và ngc lại em ạ.em có thể dùng MS với các phàn mềm của Tổng công ty tài nguyên và môi trường đẻ làm mọi việc .MÀ quy định của Tổng cục địa chính là tài liệu giao nộp phải trên MS đó..