Jump to content
InfoFile
Tác giả: MANHHUNGXDA
Bài viết gốc: 83783
Tên lệnh: r90 r30 r45 r15 r60 r-90 r180 r-180 r-60 r-45 r-15 r-30
lisp quay goc nghieng


Tham khảo coi, *chưa kịp gõ tiếng việt mà nó cứ đòi gõ*

http://www.cadviet.com/upfiles/2/ro.lsp

Filename: 83783_r90_r30_r45_r15_r60_r-90_r180_r-180_r-60_r-45_r-15_r-30.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 83100
Tên lệnh: mulmov
Viết lisp theo yêu cầu [phần 2]

Chào bạn muoild,
Bạn dùng thử cái này xem sao, nếu cần bổ sung gì thì hãy pót lên nhé.

Chúc bạn vui.

Filename: 83100_mulmov.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 83071
Tên lệnh: deh
Nhờ Fix 2 Lisp đánh cao độ tự động và Lisp cộng thêm vào cao độ một giá trị


Chào bạn thanhlamct,
Gửi bạn cái lisp này, có thể chạy được với cả hai loại block mà bạn đã chỉnh sửa là textcaodo và dc501. Với các block cao độ khác mình không chắc chắn lắm vì đôi khi chúng có những thuộc tính khác với hai bock trên. Để thuận lợi cho việc hiệu chỉnh sau này bạn nên sử dụng các block đánh cốt với cùng các thuộc tính như môtt trong hai block nói trên nhé. Đặc...
>>

Chào bạn thanhlamct,
Gửi bạn cái lisp này, có thể chạy được với cả hai loại block mà bạn đã chỉnh sửa là textcaodo và dc501. Với các block cao độ khác mình không chắc chắn lắm vì đôi khi chúng có những thuộc tính khác với hai bock trên. Để thuận lợi cho việc hiệu chỉnh sau này bạn nên sử dụng các block đánh cốt với cùng các thuộc tính như môtt trong hai block nói trên nhé. Đặc biệt lưu ý là cái thuộc tính giá trị cao độ phải có tagname là GIATRI bạn nhé.

Chúc bạn vui.
<<

Filename: 83071_deh.lsp
Tác giả: Thaistreetz
Bài viết gốc: 83072
Tên lệnh: cdx
Lisp điền cao độ bị lỗi!!!
Bận nên không có thời gian xem lại giúp bạn lisp trên. nhưng có cái này share cho bạn.
Lisp này dùng để ghi cao độ trên trắc ngang và khá đẹp với các trắc ngang chạy bằng nova. có thể chạy được trên cad14 vô tư :rolleyes:

- Chọn kích thước của text muốn ghi cao độ (nên chọn bằng hoặc...
>>
Bận nên không có thời gian xem lại giúp bạn lisp trên. nhưng có cái này share cho bạn.
Lisp này dùng để ghi cao độ trên trắc ngang và khá đẹp với các trắc ngang chạy bằng nova. có thể chạy được trên cad14 vô tư :rolleyes:

- Chọn kích thước của text muốn ghi cao độ (nên chọn bằng hoặc nhỏ hơn 1 chút so với chiều cao các text cao độ trên trắc ngang của bạn)
- Chọn tỷ lệ vẽ của trắc ngang (Với Nova thì thường là 1:1 nên mình mặc định lisp sẽ lấy giá trị tỷ lệ X là 1/1 và Y là 1/1, nếu tỷ lệ khác thì bạn có thể nhập lại)
- Chọn điểm tim trắc ngang (điểm tim đường)
- Chọn cao độ của tim đường (pick chuột vào text cao độ của tim)
- Chọn các điểm cần tra cao độ.
- Phía chèn text cao độ: bạn có thể chèn cao độ theo 4 hướng. thử sẽ bít :(
<<

Filename: 83072_cdx.lsp
Tác giả: gia_bach
Bài viết gốc: 83083
Tên lệnh: deh
Nhờ Fix 2 Lisp đánh cao độ tự động và Lisp cộng thêm vào cao độ một giá trị


Chào bạn thanhlamct,
Gửi bạn cái lisp này, có thể chạy được với cả hai loại block là : text-caodo và dc50
Chú ý : Đơn vị Gia tri chenh cao là milimét.

Filename: 83083_deh.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 82954
Tên lệnh: deh
Nhờ Fix 2 Lisp đánh cao độ tự động và Lisp cộng thêm vào cao độ một giá trị

Xin lỗi bạn thanhlamct,
Vì mình không chú ý tới các cốt âm ( trên bản vẽ bạn gửi toàn là cốt dương) nên cái lisp mình sửa bị lỗi. Rất mong bạn bỏ quá cho sự dốt nghề của mình.
Đây là cái mình đã sửa lại để nó chạy đúng với cả cốt âm.


@Bác Tue_NV: Mình cũng đã nghĩ đến điều bác nói , song rất tiếc là cái block dc50 của bạn thanhlamct có tới hai...
>>

Xin lỗi bạn thanhlamct,
Vì mình không chú ý tới các cốt âm ( trên bản vẽ bạn gửi toàn là cốt dương) nên cái lisp mình sửa bị lỗi. Rất mong bạn bỏ quá cho sự dốt nghề của mình.
Đây là cái mình đã sửa lại để nó chạy đúng với cả cốt âm.


@Bác Tue_NV: Mình cũng đã nghĩ đến điều bác nói , song rất tiếc là cái block dc50 của bạn thanhlamct có tới hai thuộc tính có trùng tag với nhau nên khó phân biệt quá, đành làm cấp kỳ cho bạn ấy có cái xài đã bác ạ. Mong bác đọc lại phần edit của bài mình post lần trước sẽ hiểu và có giải pháp khác giúp bạn thanhlamct bác nhé.
<<

Filename: 82954_deh.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 82971
Tên lệnh: deh
Nhờ Fix 2 Lisp đánh cao độ tự động và Lisp cộng thêm vào cao độ một giá trị

Chào bạn thanhlamct,
Ha ha ha, ta mò ra rồi. Bạn thử cái củ này xem đã ổn chưa nhé, có còn giắt răng không??? Nghĩ mãi, mình phải tách cái thuộc tính dấu ra để xử lý riêng theo kết quả của việc tính toán mới thấy có vẻ ngon ngon. Nó đây nè:

Bạn cứ thử thoải mái , cộng trừ liên tiếp vào cả cốt âm lẫn dương xem nó có chửi lại không nhé. Mình thử sơ sơ thấy nó...
>>

Chào bạn thanhlamct,
Ha ha ha, ta mò ra rồi. Bạn thử cái củ này xem đã ổn chưa nhé, có còn giắt răng không??? Nghĩ mãi, mình phải tách cái thuộc tính dấu ra để xử lý riêng theo kết quả của việc tính toán mới thấy có vẻ ngon ngon. Nó đây nè:

Bạn cứ thử thoải mái , cộng trừ liên tiếp vào cả cốt âm lẫn dương xem nó có chửi lại không nhé. Mình thử sơ sơ thấy nó chịu xếp càng rồi bạn ạ. Nhớ là phải thử với các cốt đánh bằng block dc50 nhé.

PS: À nó còn tí xơ là với các cốt bằng 0.00 sau khi tính toán thì nó chỉ oánh dấu cộng mà không phải là dấu +/- bạn ạ.
<<

Filename: 82971_deh.lsp
Tác giả: Tue_NV
Bài viết gốc: 82943
Tên lệnh: scpl
Viết lisp theo yêu cầu [phần 2]

Vừa hay, Tue_NV cũng vừa viết xong code theo ý của bạn pbellh, xin post lên luôn :

Filename: 82943_scpl.lsp
Tác giả: Phiphi-
Bài viết gốc: 82668
Tên lệnh: plc
Viết lisp theo yêu cầu [phần 2]

Chào bác phamthanhbinh.
Lisp Bác viết chạy rất tốt, cám ơn Bác nhiều.
Nếu Bác xem cái bản vẽ mẫu PP post ở bài trên thì còn phải lập thêm bảng PLATE CONTOUR thì mới đầy đủ chi tiết.
PP phải dùng Lisp Plate contour dưới đây. Vì đường bao của plate là 1 Pline nên chỉ cần select nó thì cái bảng hiện ra liền, sau đó rồi phải Explode, Erase lines & sắp xếp lại Text.
Chắc sau...
>>

Chào bác phamthanhbinh.
Lisp Bác viết chạy rất tốt, cám ơn Bác nhiều.
Nếu Bác xem cái bản vẽ mẫu PP post ở bài trên thì còn phải lập thêm bảng PLATE CONTOUR thì mới đầy đủ chi tiết.
PP phải dùng Lisp Plate contour dưới đây. Vì đường bao của plate là 1 Pline nên chỉ cần select nó thì cái bảng hiện ra liền, sau đó rồi phải Explode, Erase lines & sắp xếp lại Text.
Chắc sau Noel sẽ nhờ Bác lần nữa rồi. Với bảng PLATE CONTOUR thì các ID points đánh theo mẫu tự A,B,C ...
Have a great Christmas!

<<

Filename: 82668_plc.lsp
Tác giả: gia_bach
Bài viết gốc: 82714
Tên lệnh: pid
Viết lisp theo yêu cầu [phần 2]


Bài này lâu rồi, không biết bạn có cần nữa không ?

Tuy nhiên thử phương án này có khá hơn không?

Update 30/12/09.

Lisp xuất ra bảng tọa độ của các POINT.

- đặt tên : theo thứ tự từ trái qua phải, từ trên xuống duới.

- số chữ số thập phân : lấy theo giá trị mặc định (Format-> Units... ) hay biến hệ thống LUPREC.


Filename: 82714_pid.lsp
Tác giả: thiep
Bài viết gốc: 82768
Tên lệnh: eraseblock
Viết lisp theo yêu cầu [phần 2]

Chào bác Phi, Thiep đã edit lại lisp, bác tải lại nhé. Theo Thiep thì độ cao của Table sao cho bằng 1.5 Text height có quá thấp không, nếu thấy thấp thì sửa lại biến heicell tại dòng heicell (* 1.5 tHt)
1. Tự động Find và Replace các text:: Dùng lệnh Find trong Cad, không cần lisp.
2. Xoá các block có tên "abc...": bác Phi dùng lisp sau:

Happy Christmas!

Filename: 82768_eraseblock.lsp
Tác giả: ssg
Bài viết gốc: 8225
Tên lệnh: lk cik rk ck mk ok sk
Viết Lisp theo yêu cầu

Có cách rồi, chưa giống lắm nhưng xài được:


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

Chào Bác Phi phi,
Cái này bác xem được chưa???
Yêu cầu nếu có nhiều BEND LINE thì mình sẽ phải viết lại một chút nữa. Bác chờ nhé.
Thôi chết còn quên hai cái mũi tên chỉ hướng trục và tên trục. Xin lỗi bác mình sẽ bổ sung sau nhé. Đến giờ nhậu rồi, hề hề hề.

Cám ơn bác về đoạn code bác gửi.

Filename: 82555_tabc.lsp
Tác giả: gia_bach
Bài viết gốc: 81867
Tên lệnh: mmo
Viết lisp theo yêu cầu [phần 2]
LISP triển khai theo ý bác duy782006

Filename: 81867_mmo.lsp
Tác giả: gia_bach
Bài viết gốc: 81878
Tên lệnh: mmo
Viết lisp theo yêu cầu [phần 2]
Bổ sung phần Highlight đối tuợng đuợc chọn và dùng getdist để nhập kh/cách.
Thanks to duy782006.


Filename: 81878_mmo.lsp
Tác giả: gia_bach
Bài viết gốc: 81776
Tên lệnh: trimblk
Viết lisp theo yêu cầu [phần 2]

LISP làm 1 lệnh mà trim được nhiều đoạn cống khác nhau.
Chú ý : Lisp chỉ sử lý trường hợp block hố ga giao với đường ống (Line, Arc, PLine) tại 2 điểm.
Do đó trong file của bạn, lisp không sử lý điểm ngoài cùng.

Filename: 81776_trimblk.lsp
Tác giả: gia_bach
Bài viết gốc: 81784
Tên lệnh: 1 2 3 4 5 6 7 qd
Viết lisp theo yêu cầu [phần 2]

Filename: 81784_1_2_3_4_5_6_7_qd.lsp
Tác giả: Tue_NV
Bài viết gốc: 80945
Tên lệnh: mpt
Viết lisp theo yêu cầu [phần 2]

Chào tnmtpc
Bạn sử dụng Lisp này thử nhé :

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

Chào bạn quynhnn,
Bạn dùng thử lisp này coi sao. Dựa trên sự gợi ý của bác Gia bach mình viết lại. Nếu có gì chưa vừa ý, hãy post lên nhé.

Chúc bạn vui.

Filename: 80472_chla.lsp
Tác giả: Tue_NV
Bài viết gốc: 80473
Tên lệnh: brk
Lisp biến 1 phần của đoạn thẳng trở thành nét Hidden2.

Mạn phép anh giabach Tue_NV viết thêm vào đoạn Code của anh để giúp cho bạn tuanthunder
@ tuanthunder : Bạn sử dụng code này thử nhé :

Filename: 80473_brk.lsp

Trang 2/330

2