Jump to content
InfoFile
Tác giả: phamngoctukts
Bài viết gốc: 120050
Tên lệnh: phahoai
Căt vụn bản vẽ để không chỉnh sửa được nữa


Các bạn thử code mới này sẽ khắc phục lỗi sai không ưng ý:

Filename: 120050_phahoai.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 120070
Tên lệnh: ctxt
Viết lisp theo yêu cầu [phần 2]


Hề hề hề,
Đền cho bạn cái nè, chạy thử coi có cười nổi không nhé. Thôi nín đi mà.....


Mà cái nè là chỉ xài để cộng các TEXT thôi nghen. MTEXT thì chưa xét. và cũng chỉ cộng những thằng có chung điểm đặt mã dxf10 thôi nhé. Những cái khác để xét sau, nếu bạn Ok thì mới nói chuyện tiếp được. bằng không thì mình sẽ khóc thay bạn vậy. Hề hề hề....

Filename: 120070_ctxt.lsp
Tác giả: nguyentuyen6
Bài viết gốc: 120080
Tên lệnh: dx
Viết lisp theo yêu cầu [phần 2]
E sưu tầm được 1 lisp vẽ ký hiệu đối xứng.Nhưng khi vẽ xong nó không phải block,e lại không biết lisp.Nhờ các bác sửa giùm khi vẽ xong nó là 1 block.Thanks.

Filename: 120080_dx.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 120005
Tên lệnh: ctxt
Viết lisp theo yêu cầu [phần 2]

Chào bạn 18011985,
Bạn dùng thử rồi cho ý kiến nhé.

Filename: 120005_ctxt.lsp
Tác giả: phamngoctukts
Bài viết gốc: 120039
Tên lệnh: phahoai
Căt vụn bản vẽ để không chỉnh sửa được nữa

Các bạn thử cái này. Mình viết vội nên chỉ đưa ra tường hợp đường thẳng thôi.với lại có một số chỗ bị sai.

Filename: 120039_phahoai.lsp
Tác giả: phamngoctukts
Bài viết gốc: 119813
Tên lệnh: cthua
Viết lisp theo yêu cầu [phần 2]

Bạn yêu cầu gì mà khoai thế. Mình viết cho bạn được thế này bạn test thử và cho ý kiến để hoàn thiện

Filename: 119813_cthua.lsp
Tác giả: npham
Bài viết gốc: 119897
Tên lệnh: c-
lisp vẽ và hatch theo yêu cầu



Bác xem thử đúng ý bác không? Mấy cái khác cứ thương tự.


Filename: 119897_c-.lsp
Tác giả: npham
Bài viết gốc: 119646
Tên lệnh: cottron
lips cad vẽ nét cắt cột tròn



Bạn thử cái này xem.

Filename: 119646_cottron.lsp
Tác giả: npham
Bài viết gốc: 119797
Tên lệnh: xoa
Xoá mũi tên trong các mặt cắt??


Đoạn code này xoá mũi tên và text (%) tưng ứng trên dải phân cách. Đoạn bên lề bác làm tương tự nhé.
Bác test thử xem sao.

Filename: 119797_xoa.lsp
Tác giả: phamngoctukts
Bài viết gốc: 119583
Tên lệnh: cdim
Cộng dim trong vùng kín poline

Của bạn đây. Bạn xem có vừa ý không nhé.

Filename: 119583_cdim.lsp
Tác giả: phamngoctukts
Bài viết gốc: 119639
Tên lệnh: bao
Viết lisp theo yêu cầu [phần 2]

Bạn thử lại cái này xem sao:

Filename: 119639_bao.lsp
Tác giả: phamngoctukts
Bài viết gốc: 119452
Tên lệnh: dt nhant dtn
Nhờ viết Lisp diện tích, nhân nhanh

Của bạn đây:

Filename: 119452_dt_nhant_dtn.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 119118
Tên lệnh: tkqh
Viết lisp theo yêu cầu [phần 2]

Chào bạn Gió trời,
1/- Mình bổ sung lại cái lisp cho bạn và sắp xếp lại trật tự các cột trong Excel theo đúng cái bảng bạn đã post.
2/- Do trong lisp sử dụng hàm boundary nên khi chạy lisp bạn lưu ý phải zoom bản vẽ vùng cần xác định sao cho tất cả các đường biên của các thửa đất cần xác định đều được nhìn thấy hết. Mình đã thử với lệnh zoom extension như bác Tuệ...
>>

Chào bạn Gió trời,
1/- Mình bổ sung lại cái lisp cho bạn và sắp xếp lại trật tự các cột trong Excel theo đúng cái bảng bạn đã post.
2/- Do trong lisp sử dụng hàm boundary nên khi chạy lisp bạn lưu ý phải zoom bản vẽ vùng cần xác định sao cho tất cả các đường biên của các thửa đất cần xác định đều được nhìn thấy hết. Mình đã thử với lệnh zoom extension như bác Tuệ hướng dẫn thì có trường hợp bị lỗi do cái vùng cần bao quá nhỏ, nhất là với các bản đồ quá lớn. Do vậy mình nghĩ tốt hơn là bạn zoom về từng vùng đủ lớn để chạy lisp, vừa quan sát vừa kiểm tra được thửa nào đã được thống kê và thửa nào chưa để tránh nhầm lần hay trùng lắp các thửa, đồng thời nó cũng làm cho lisp chạy nhanh hơn đỡ mất thời gian xử lý các dữ liệu thừa.
Với các bản vẽ lớn, bạn nên chia thành các vùng nhỏ để chạy vì nếu để quá lớn lệnh boudary dễ bị lỗi như đã nói trên.
3/- Nếu bạn không cần xuất qua MicroStations nữa thì có cần thiết phải chuyển Mtext thành Text nữa không vì nếu để Mtext thì việc tách các Mtext này thành các Mtext nhỏ sẽ đơn giản hơn nhiều lần cái việc buộc nó phải thành Text bạn ạ.
4/- Bạn nên thống nhất tên các lớp trong các bản vẽ cùng loại. Điều đó sẽ giúp bạn quản lý và sữ dụng bản vẽ tốt hơn. Tỷ như cái bản vẽ dc63_1 bạn mới post lên thì lớp "tenCSD" bị đổi thành "ten csd", lớp "dientich" thành lớp "dien tich giay chung nhan". Do vậy nên nếu bạn dùng lisp của mình sẽ phải thay đổ lại các tên lớp này trong lệnh lisp bạn ạ. Nó vừa gây khó khăn cho mình khi làm lisp vừa gây khó cho bạn khi sử dụng.
Hiện tại cái lisp này chỉ chạy đúng với cái bản vẽ dc63_1 này thôi nhé. Các bản khác mình không đảm bảo do cái cách quản lý bản vẽ của bạn. Nó đã được sửa nên dùng với các bản vẽ lần trước của bạn thì bạn phải thay đổi lại tên lớp trong các lệnh lisp cho phù hợp.
Lisp ấy đây:


Chúc bạn ăn Tết ngon miệng....
<<

Filename: 119118_tkqh.lsp
Tác giả: pfievxd
Bài viết gốc: 119389
Tên lệnh: tdt
Tính diện tích tạo nên từ những vùng giao nhau giữa 2 đường polyline
Hehe, ngồi mấy ngày viết một cái lisp cho công việc, xong roài, thích cái lisp của HaimeD ở cái lệnh "TRIM", đây là cách giải quyết vấn đề theo thuật toán của mình Lisp tính diện tích giữa 2 Pline

Đã check thử vài lần, thấy cũng tạm, có gì mọi người góp ý luôn nhé :leluoi:

Filename: 119389_tdt.lsp
Tác giả: ssg
Bài viết gốc: 118634
Tên lệnh: vd1 vd2
hỏi vấn đề tạo liên kết LSP và dialog DCL

Bạn có 2 cái sai:
1- Tên biến không được đặt trong dấu nháy kép! "B" được hiểu là ký tự B, do đó (= "B" 1) luôn luôn false!
2- (and (= B 1) (= C 2) (C:L12)) tương đương với hàm if đơn lẻ:
(if (and (= B 1) (= C 2)) (C:L12))
nhưng không thể lồng vào cond kiểu như bạn được.

Bạn tham khảo ví dụ sau:


VD1 chạy đúng ý, nhưng VD2 thì sai bét!!!

Filename: 118634_vd1_vd2.lsp
Tác giả: phamngoctukts
Bài viết gốc: 118519
Tên lệnh: bao
Viết lisp theo yêu cầu [phần 2]

Bạn dùng thử cái này xem có đúng ý bạn không nhé. Chú ý hình của bạn phải như bác Tue_VN đã nói ở trên.

Filename: 118519_bao.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 1184
Tên lệnh: movenha
lisp dựng phối cảnh nhà trong quy hoạch
Đợt vừa rồi viết được một lisp move nhà trong quy hoạch vào đúng địa hình.

Chia sẻ cùng mọi người:



dùng lệnh MOVENHA để sử dụng.
Đối tượng nhà phải là Mesh.
Đối tượng đường đồng mức phải là LWPolyline đã được nâng
Mặt bằng
http://img.photobucket.com/albums/v672/nguyenhoanh/MVN_MB.gif

Mặt đứng khi chưa nâng
>>
Đợt vừa rồi viết được một lisp move nhà trong quy hoạch vào đúng địa hình.

Chia sẻ cùng mọi người:



dùng lệnh MOVENHA để sử dụng.
Đối tượng nhà phải là Mesh.
Đối tượng đường đồng mức phải là LWPolyline đã được nâng
Mặt bằng
http://img.photobucket.com/albums/v672/nguyenhoanh/MVN_MB.gif

Mặt đứng khi chưa nâng
http://img.photobucket.com/albums/v672/nguyenhoanh/MVN_MD.gif

Mặt đứng khi đã nâng
http://img.photobucket.com/albums/v672/nguyenhoanh/MVN_KC.gif

Phối cảnh khi đã nâng
http://img.photobucket.com/albums/v672/nguyenhoanh/MVN_SHA.gif
<<

Filename: 1184_movenha.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 117958
Tên lệnh: cdc
Viết lisp theo yêu cầu [phần 2]

Chào bạn Truongthanh,
Có phải bạn muốn cái này không???


Cái vụ pline sang phải nếu muốn sửa bạn phải sửa cả cái vụ ghi text nữa. Vậy bạn muốn sao???

Filename: 117958_cdc.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 118061
Tên lệnh: cdc
Viết lisp theo yêu cầu [phần 2]

Chào bạn Truongthanh,
Hề hề hề,
Của bạn đây, hy vọng lần này bạn sẽ hài lòng.

Hề hề hề,...

Filename: 118061_cdc.lsp
Tác giả: phamngoctukts
Bài viết gốc: 117833
Tên lệnh: ttt
Viết lisp theo yêu cầu [phần 2]

Xin lỗi bạn lúc nãy bận quá nên chưa test kĩ được. Mình sửa laik cho bạn rồi đây.

Filename: 117833_ttt.lsp

Trang 45/307

45