Jump to content
InfoFile
Tác giả: phamthanhbinh
Bài viết gốc: 115191
Tên lệnh: tko
Viết lisp theo yêu cầu [phần 2]


Chào bạn tuannt991,
Thấy bạn làm việc vất vả quá, 2 giờ sáng còn ngồi máy tính và post bài.
Mình đã tranh thủ sửa file bạn gửi được một phần, tách các đường ống DN40 ra khỏi các ống DN32 và DN50.
Với lisp sau, bạn có thể lấy được tổng chiều dài của các đường ống DN32 nằm trên layer "sprinkler" và các đường ống DN40 nằm trên layer DN40 mà mình mới tạo. Tương tự...
>>

Chào bạn tuannt991,
Thấy bạn làm việc vất vả quá, 2 giờ sáng còn ngồi máy tính và post bài.
Mình đã tranh thủ sửa file bạn gửi được một phần, tách các đường ống DN40 ra khỏi các ống DN32 và DN50.
Với lisp sau, bạn có thể lấy được tổng chiều dài của các đường ống DN32 nằm trên layer "sprinkler" và các đường ống DN40 nằm trên layer DN40 mà mình mới tạo. Tương tự cách làm của mình, nếu bạn chịu khó ngồi tách các loại ống thành các lớp riêng thì bạn có thể sử dụng cái lisp mình viết để làm thống kê rất tốt.
Mong bạn thành công trong công việc và cuộc sống.

Mình gửi kèm ở đây bản vẽ mình đả cải tạo để bạn tham khảo.
http://www.cadviet.com/upfiles/3/0748fsp301_1.dwg
<<

Filename: 115191_tko.lsp
Tác giả: gia_bach
Bài viết gốc: 115173
Tên lệnh: dstt
Viết lisp theo yêu cầu [phần 2]
Bạn tham khảo Lisp đánh số thứ tự này :

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

Khi đã tạo được Table rồi thì xuất qua Excel chỉ là chuyện nhỏ.
Tue_NV mạn phép anh gia_bach bổ sung thêm vào tính năng thêm data vào bảng TABLE đã có :
Bạn thangbkpro test thử nhé :

Chức năng DownLoad của Diễn đàn có thể bị lỗi. Bạn có thể chạy với file này :
http://www.cadviet.com/upfiles/3/tkt.lsp

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


Lisp "link" cho đối tượng Block thuộc tính.
(link tất cả thuộc tính của Block)

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


Hôm qua mình mới gộp lại cho bạn nguyentuyen nên chưa test thử. Mình sửa lại cho bạn đây.

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

Của bạn đây. Bạn xem đúng ý chưa nhé.

Filename: 115121_dstt.lsp
Tác giả: ketxu
Bài viết gốc: 115017
Tên lệnh: tmu
Vẽ thép mũ

Bình thường mình k dùng lisp để rải thép,toàn copy thủ công thôi^^ .
Bạn thử dùng cái này xem sao nhé


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

Gửi bạn cái này. Bạn chú ý : Chọn 1 loạt luôn nhé.
Bạn chạy thử xem đã trúng ý chưa nhé :

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

Bạn thử code mới này xem sao nhé

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

Hề hề hề, bác Bình mót nhiều quá, đến nỗi bây chừ là không nhớ tên của tác giả của Lisp WritetoExCel nữa :D
Tác giả đã trả lời bác, tặng bác Lisp đó mà bác quên, đó là cái lỗi đó bác ạ :D
>>

Hề hề hề, bác Bình mót nhiều quá, đến nỗi bây chừ là không nhớ tên của tác giả của Lisp WritetoExCel nữa :D
Tác giả đã trả lời bác, tặng bác Lisp đó mà bác quên, đó là cái lỗi đó bác ạ :D Hề hề, cái này đáng phạt nha
Tác giả của của Lisp WritetoExCel không phải của bác SSG ạ. Tên của tác giả và Lisp WritetoExCel ở đây, bác ạ :
Bai viet so 160 - Lisp WritetoExCel
Cảm ơn tác giả của Lisp WritetoExCel nhiều lắm :)

@khaosat : Tue_NV có đọc yêu cầu của bạn. Nhưng có vài chổ chưa rõ lắm. Phiền bạn upload file .dwg và nói rõ hơn nhé.

@tamkt, nguyentuyen : Cái này thiết nghĩ không dùng Lisp. sử dụng CAD là được. Với lại, Lisp mà bạn nguyentuyen viết ra với điểm gốc Rotate ứng với điểm đầu Line. Nhìn vào CAD, nào đâu có biết điểm đầu hay là điểm cuối LINE cơ chứ??
Nếu User muốn xoay với điểm cuối Line thì sao, hoặc là điểm xoay nằm trên hoặc là không nằm trên đoạn LINE thì sao??
Lại còn áp dụng các đối tượng khác như bạn tamkt yêu cầu nữa : là LEADER và PLINE thẳng 1 phân đoạn nữa.

Lăn tăn chi bạn?? Áp dụng lệnh Rotate ới lựa chọn Reference và chế độ bắt điểm Parallel. Còn nếu thấy chế độ bắt điểm Parallel khó quá thì sử dụng lệnh Copy và sau đó là lệnh ROTATE hoặc là ALIGN

Tue_NV về quê có 1 ngày mà topic này rôm rả ghê. Chúc các bạn ngày cuối tuần vui vẻ. :bigsmile:
<<

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


Hề hề hề,
Cái nhà bác này chơi cái mửng muốn ăn gắp bỏ cho người hử????
Bác biết vậy sao hổng giúp luôn còn bày cái vụ hỏi khéo ấy hử????
Bác xài thử xem có vừa miệng không nhé. Tuy là của đi mót nhưng ngon đáo để bác ạ......

Filename: 114967_tchu.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 114536
Tên lệnh: reptxt
Thay nhanh TEXT

Hề hề hề,
Bạn có thể dùng lisp sau:

Chúc bạn vui.

Filename: 114536_reptxt.lsp
Tác giả: phamngoctukts
Bài viết gốc: 114656
Tên lệnh: tlt
Nhờ sửa LISP ghi độ dốc đường thẳng

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

Filename: 114656_tlt.lsp
Tác giả: NguyenNgocSon
Bài viết gốc: 114477
Tên lệnh: tlt
Nhờ sửa LISP ghi độ dốc đường thẳng
Mình có lisp này đã chỉnh sửa nhưng chưa theo ý muốn.
Lisp có chức năng ghi độ dốc đưởng thẳng: " Lisp đã ghi được độ dốc bằng cách chọn điểm đầu, điểm cuối, điểm ghi " nhưng chưa làm được như sau :
1. Chưa có thông số nhập vào chiều cao text.
2. Chưa ghi được chữ nằm trên (song song, cách đường thẳng 1 đoạn x) đường thẳng.
Mong bác nào giúp em khắc phục vấn...
>>
Mình có lisp này đã chỉnh sửa nhưng chưa theo ý muốn.
Lisp có chức năng ghi độ dốc đưởng thẳng: " Lisp đã ghi được độ dốc bằng cách chọn điểm đầu, điểm cuối, điểm ghi " nhưng chưa làm được như sau :
1. Chưa có thông số nhập vào chiều cao text.
2. Chưa ghi được chữ nằm trên (song song, cách đường thẳng 1 đoạn x) đường thẳng.
Mong bác nào giúp em khắc phục vấn đề trên để lisp hoàn thiện.
Em mò mãi chưa ra vì mới học lisp
Thân !
Cám ơn sự giúp đỡ.

<<

Filename: 114477_tlt.lsp
Tác giả: phamngoctukts
Bài viết gốc: 114489
Tên lệnh: tlt
Nhờ sửa LISP ghi độ dốc đường thẳng
Mình có lisp này đã chỉnh sửa nhưng chưa theo ý muốn.
Lisp có chức năng ghi độ dốc đưởng thẳng: " Lisp đã ghi được độ dốc bằng cách chọn điểm đầu, điểm cuối, điểm ghi " nhưng chưa làm được như sau :
1. Chưa có thông số nhập vào chiều cao text.
2. Chưa ghi được chữ nằm trên (song song, cách đường thẳng 1 đoạn x) đường thẳng.
Mong bác nào giúp em khắc phục vấn...
>>
Mình có lisp này đã chỉnh sửa nhưng chưa theo ý muốn.
Lisp có chức năng ghi độ dốc đưởng thẳng: " Lisp đã ghi được độ dốc bằng cách chọn điểm đầu, điểm cuối, điểm ghi " nhưng chưa làm được như sau :
1. Chưa có thông số nhập vào chiều cao text.
2. Chưa ghi được chữ nằm trên (song song, cách đường thẳng 1 đoạn x) đường thẳng.
Mong bác nào giúp em khắc phục vấn đề trên để lisp hoàn thiện.
Em mò mãi chưa ra vì mới học lisp
Thân !
Cám ơn sự giúp đỡ.

<<

Filename: 114489_tlt.lsp
Tác giả: nguyentuyen6
Bài viết gốc: 114189
Tên lệnh: sct
xin lisp scale TẠI TÂM cho nhiều đối tượng
HÌ!! bạn thử cái này xem có vừa ý không nhé

Tại cái TÂM của bạn nó khó xác định quá nên mình dùng cách này nhé!!!
Tiện đây mình hỏi luôn: cái Hàm acet-ent-geomextents tại sao nó vẫn thực hiện mà cứ báo lỗi nhỉ
Mình dùng hàm acet-ent-geomextents để xác định tâm.
Tốt nhất bạn Block từng đối tượng muốn scale vào để đc chính xác!!!

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

Của bạn đây. Mình làm theo đúng nội dung trong file bạn gửi lên.

Filename: 113602_tdt.lsp
Tác giả: phamngoctukts
Bài viết gốc: 113728
Tên lệnh: tdt tdb
Viết lisp theo yêu cầu [phần 2]

Của bạn đây dùng với text hoặc mtext lệnh là tdt. Dùng với block ATT lệnh là tdb

Filename: 113728_tdt_tdb.lsp
Tác giả: phamngoctukts
Bài viết gốc: 113741
Tên lệnh: tdt tdb
Viết lisp theo yêu cầu [phần 2]

Của bạn đây

Filename: 113741_tdt_tdb.lsp
Tác giả: master_worse
Bài viết gốc: 113487
Tên lệnh: %2Bc
Nhờ sửa lisp cộng tăng dần với số bất kỳ

Tạm thời làm thế này:

Filename: 113487_%2Bc.lsp

Trang 47/307

47