Jump to content
InfoFile
Tác giả: lp_hai
Bài viết gốc: 161581
Tên lệnh: mc
Mặt cắt dầm đơn giản

Mặt cắt dầm hình chữ nhật, trên và dưới đều chỉ có một lớp thép.
Chú ý chọn dim tỷ lệ theo tỷ lệ mặt cắt, Text theo style hiện hành

Filename: 161581_mc.lsp
Tác giả: NguyenNgocSon
Bài viết gốc: 161681
Tên lệnh: dsbv
Lisp đánh số thứ tự bản vẽ tự động?
Em có lisp này để đánh số bản vẽ có chứa block ATT

Giờ em muốn hiện số block được chọn thì làm như thế nào ?
Em thêm đoạn :
(alert(strcat "Tong so doi tuong Block la :" stt))
vào giữa đoạn:
(setq str (strcat prefix (itoa stt)))
(alert(strcat "Tong so doi tuong Block la :" stt))
(setq str (strcat prefix "0" (itoa stt))) ) ) ) )
Không thấy kết quả ?
>>
Em có lisp này để đánh số bản vẽ có chứa block ATT

Giờ em muốn hiện số block được chọn thì làm như thế nào ?
Em thêm đoạn :
(alert(strcat "Tong so doi tuong Block la :" stt))
vào giữa đoạn:
(setq str (strcat prefix (itoa stt)))
(alert(strcat "Tong so doi tuong Block la :" stt))
(setq str (strcat prefix "0" (itoa stt))) ) ) ) )
Không thấy kết quả ?
Mong các bác chỉ giúp.
Hoặc có thể thêm đoạn mã để lấy ra số đối tượng ATT được chọn ?
<<

Filename: 161681_dsbv.lsp
Tác giả: whatcholingon
Bài viết gốc: 161397
Tên lệnh: sline
Gửi tới mọi người trong diễn đàn

Xin chào mọi người. mình có ý kiến như thế này: mỗi ngày trên diễn đàn của chúng ta sản xuất ra 1 đến n LSP và như vậy sẽ có rất nhiều LSP khi sử dụng. một số thì thường sử dụng tới còn một số thỉnh thoảng mới dùng đến. và cái một số thinh thoang đó thường không biết nó là lệnh nào. Vậy mỗi khi tác giả sản xuất ra một LSP nào đó có thể ở đầu dòng của LSP viết ứng dụng...
>>
Xin chào mọi người. mình có ý kiến như thế này: mỗi ngày trên diễn đàn của chúng ta sản xuất ra 1 đến n LSP và như vậy sẽ có rất nhiều LSP khi sử dụng. một số thì thường sử dụng tới còn một số thỉnh thoảng mới dùng đến. và cái một số thinh thoang đó thường không biết nó là lệnh nào. Vậy mỗi khi tác giả sản xuất ra một LSP nào đó có thể ở đầu dòng của LSP viết ứng dụng của LSP luân có được không ạ. VD: LSP Mũi tên hai đầu (mượn của Mr ketxu)


Thanks... chúc mọi người luôn vui,khoẻ, ---->đẻ ra nhiều LSP
<<

Filename: 161397_sline.lsp
Tác giả: Tue_NV
Bài viết gốc: 161146
Tên lệnh: ttt
lip tính khối lượng thể tích vật liệu

Bạn thử đoạn code, Tue_NV mới viết :

Chú ý : trước khi chạy Lisp, bạn phải joint các Arc và Pline thành 1 đối tượng kín

Filename: 161146_ttt.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 16126
Tên lệnh: sr sl
Viết Lisp theo yêu cầu


lệnh SR và SL dưới đây sẽ SELECT đối tượng theo RADIUS và SELECT đối tượng theo LENGTH.


Filename: 16126_sr_sl.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 161264
Tên lệnh: t2m
Cần help convert text - Mtext

Hề hề hề,
Có phải bạn muốn cái này không??? Nó cũng sử dụng txt2mtxt của express tools đấy. Tuy nhiên cách dùng hơi khác mà thôi.

Hề hề hề, nếu bạn thấy chưa ưng thì hãy post rõ cái chỗ chưa ưng lên nhé.
Chúc bạn vui.

Filename: 161264_t2m.lsp
Tác giả: Thaistreetz
Bài viết gốc: 160696
Tên lệnh: adv edv
Lisp thêm đỉnh cho PL

code trên rất hay. nhưng có 1 nhuợc điểm cũng rất... dở là không cho undo trong quá trình thêm hoặc bớt đỉnh ketxu ạ. cách thức undo như khi vẽ 1 pline, có 1 đỉnh nào đó mình pick sai thì gõ U, bỏ đỉnh đó đi để vẽ lại í. Bạn có thể tham khảo code này của mình để sửa nó ngon hơn.

Filename: 160696_adv_edv.lsp
Tác giả: Nguyen Hoanh
Bài viết gốc: 16093
Tên lệnh: chia
cắt pline thành các đoạn theo chiểu dài chọn

16h ~ 100 dòng code, vị chi là 16*60/100 = mất 9.6 phút cho 1 dòng code, hơi bị lâu hén. Đùa tí thôi, định trả lời bài này giống vndesperados, nhưng vndes đã trả lời vậy rồi, mình trả lời giống lại thành spam bài kiểu Jikibo. Đành phải trả lời khác vậy.

Lệnh CHIA dưới đây sẽ làm điều dnhqs muốn (measure sau đó thì break một cách tự động):

Filename: 16093_chia.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 160947
Tên lệnh: chml
nhờ viết lisp biến MLINE thành PLINE. Help!!!

Hề hề hề,
Các "bác Pro" chưa viết thì có "chú nonePro" viết chơi thế này có được không hỉ??? Nếu chưa ưng ý thì chớ giận nghen và hãy post cái chưa ưng lên nhé.

Hề hề hề,
Cái lisp ni dùng để chuyển các mline có mlstyle là Standard như trên bản vẽ bạn post thành các region. Việc union các region này bạn phải tự làm vì mình không biết bạn cần union những...
>>

Hề hề hề,
Các "bác Pro" chưa viết thì có "chú nonePro" viết chơi thế này có được không hỉ??? Nếu chưa ưng ý thì chớ giận nghen và hãy post cái chưa ưng lên nhé.

Hề hề hề,
Cái lisp ni dùng để chuyển các mline có mlstyle là Standard như trên bản vẽ bạn post thành các region. Việc union các region này bạn phải tự làm vì mình không biết bạn cần union những chú nào cả.
Với các mline có mlstyle khác thì mình không đảm bảo lisp sẽ hoạt động đúng do mình chưa biết cách lấy ra các properties của mlstyle. Cái mlstyle Standard mà bạn dùng có 2 elements với khoảng cách offset là 1. Còn các mlstyle khác thì mình chả biết nó sẽ là bao nhiêu nên tạm thời thua nó đã.
Hề hề hề,
Chúc bạn vui.
<<

Filename: 160947_chml.lsp
Tác giả: ketxu
Bài viết gốc: 160425
Tên lệnh: vtx
Lisp thêm - bớt đỉnh Pline

Nguyên tác Gilles Chanteau


Filename: 160425_vtx.lsp
Tác giả: thanhduan2407
Bài viết gốc: 160572
Tên lệnh: ikn
in bản vẽ theo khung in bất kỳ !

Sau một thời gian lần mò với ý tưởng của bạn và được sự giúp đỡ nhiệt tình của Ketxu thì mình cũng hoàn thành xong yêu cầu của bạn. Tuy rằng đã có lisp đó nhưng tự mình làm ra cũng sung sướng.
http://www.mediafire.com/?qzcgdu9cu76bd4x



Filename: 160572_ikn.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 160627
Tên lệnh: cpm
Autolisp Tự động copy theo vùng cho trớc

Hề hề hề,
Phải chăng bạn muốn cái ni:


Hề hề hề, thực tình thì cái yêu cầu của bạn hơi .......không khoái. Song mình cứ làm đại cái ni để bạn thấy cái sự không khóai này và rút kinh nghiệm cho các yêu cầu sắp tới.
hề hề hề....

Filename: 160627_cpm.lsp
Tác giả: ketxu
Bài viết gốc: 160359
Tên lệnh: bb
Đếm Block - Hiện kết quả trên màn hình với Delay Text
Hề hề, ket update lại cái code hồi sáng cho nó ngắn hơn và text dễ coi hơn chút ^^

@ Bác Bình : bác chung thủy với anh 2004 quá, vậy mấy cái bác gia_bach làm bằng Net thì sao ^^

Filename: 160359_bb.lsp
Tác giả: Detailing
Bài viết gốc: 160172
Tên lệnh: cb
Nhờ sửa lisp đếm block

Mình edit lại code của bạn, bạn test thử có gì chỉnh lại dùm nhe


p/s: bạn phải mở Dynamic Input nó mới hiện lên ngay con trỏ chuột

Filename: 160172_cb.lsp
Tác giả: t031285
Bài viết gốc: 160193
Tên lệnh: bb
Nhờ sửa lisp đếm block
Mình cũng sưu tầm được lisp đếm block,mong các bác sửa cho nó hiện số block đếm được lên màn hình giống lisp ở trên.Thanks.

Filename: 160193_bb.lsp
Tác giả: Tue_NV
Bài viết gốc: 160196
Tên lệnh: bb
Nhờ sửa lisp đếm block

Bạn Nên set và trả lại biến hệ thống DYNMODE và DYNPROMPT trong Lisp

Filename: 160196_bb.lsp
Tác giả: 790312
Bài viết gốc: 160163
Tên lệnh: cb
Nhờ sửa lisp đếm block
Mình tải được lisp đếm block trên diễn đàn nhưng lisp này đếm số lượng rồi tự đông ghi ra text trên cad.Nay mình muốn không muốn ghi ra text mà sẽ hiệ số lượng trên màn hình ngay con trỏ chuột luôn.Thanks.

Filename: 160163_cb.lsp
Tác giả: duy782006
Bài viết gốc: 159454
Tên lệnh: plmt
Lisp vẽ Pline mũi tên 2 đầu

Xong rồi đây.


Còn đang bị độ rộng pline sau khi chạy lệnh đang khác độ rộng hiện hành trước đó. Hiện ko có sách bên cạnh nên ko nhờ biến này lưu tên gì nên chưa có trả lại đc sẽ cập nhật sau.

Filename: 159454_plmt.lsp
Tác giả: ketxu
Bài viết gốc: 159477
Tên lệnh: sline
Vẽ mũi tên 2 đầu

- Có nhiều phiên bản, các bạn vào bài viết gốc để lấy

Filename: 159477_sline.lsp
Tác giả: xataraku
Bài viết gốc: 159279
Tên lệnh: rv

Trang 29/330

29