Jump to content
InfoFile
Tác giả: duy782006
Bài viết gốc: 151834
Tên lệnh: dbl
-Lệnh DBL
-Thay đổi điểm chèn block sau khi đã chèn block này khắp nơi trong bản vẽ mà ko làm nhúc nhích nó.

Filename: 151834_dbl.lsp
Tác giả: pdle
Bài viết gốc: 151935
Tên lệnh: %2B%2B
Lisp chỉnh sửa nội dung text


1. Em đã sửa lisp đó, cho phép giá trị cộng thêm có thể là số thực bất kỳ
2. Làm như đúng ý của anh
3. Lisp anh ketxu viết gọn quá, hâm mộ :D
4. Nhưng cái này chỉ làm việc khi không có ngoặc đơn!


Filename: 151935_%2B%2B.lsp
Tác giả: Tue_NV
Bài viết gốc: 151813
Tên lệnh: ltext
Viết lisp theo yêu cầu [phần 2]


Bạn thử code này :

Filename: 151813_ltext.lsp
Tác giả: pdle
Bài viết gốc: 151823
Tên lệnh: mar
Tìm lisp lấy tọa độ điểm midpoint của cung tròn


1. Em là member đang tập tành viết lisp thôi ạ, không phải là cao thủ gì cả.
2. Nếu về mặt ý tưởng thì theo em, lấy góc đầu góc cuối, và bán kính, tâm ( các mã dxf) sau đó dùng lệnh polar là tìm ra điểm giữa ngay ạ
3. Không biết là anh muốn xuất kết quả ra như thế nào, nên em tạm thời alert nó ra vậy
>>

1. Em là member đang tập tành viết lisp thôi ạ, không phải là cao thủ gì cả.
2. Nếu về mặt ý tưởng thì theo em, lấy góc đầu góc cuối, và bán kính, tâm ( các mã dxf) sau đó dùng lệnh polar là tìm ra điểm giữa ngay ạ
3. Không biết là anh muốn xuất kết quả ra như thế nào, nên em tạm thời alert nó ra vậy :)
3. Em trả lời luôn ở đây ạ, không contact qua mail nữa. Forum public mà anh :)

<<

Filename: 151823_mar.lsp
Tác giả: 3d.decor
Bài viết gốc: 151628
Tên lệnh: jj
Viết lisp theo yêu cầu [phần 2]

rất cảm ơn pro phamngoctukts đã nhiệt tình giúp đỡ
lisp chạy rất ổn

pro nào rảnh chỉnh lại em đoan lisp ko biết pro nào viết
dây là lisp nối line
chỉnh lại là chỉ nối những line được chon được không a
vì lisp này chọn line xong những line nào dính chạm điểm đầu đều nối tất
tuy cũng tiện nhưng cũng có lúc bất tiện
mong các pro giúp đỡ

Filename: 151628_jj.lsp
Tác giả: ketxu
Bài viết gốc: 151307
Tên lệnh: clay
Dọn sạch Layer bản vẽ (giống lisp dọn mặt bằng siêu tốc)


- SỬ dụng Laymrg để thao tác


Filename: 151307_clay.lsp
Tác giả: ketxu
Bài viết gốc: 151448
Tên lệnh: trb
Trải bóng( trải không đều)
Lisp của bạn có phải có chức năng tương đương thế này không ??
Code chưa dùng entmake nên có thể bị chậm xíu xíu

P/s : tại sao lại phải để alert liên tục gây khó chịu cho người dùng như vậy bạn nhỉ ?

Filename: 151448_trb.lsp
Tác giả: phamngoctukts
Bài viết gốc: 151597
Tên lệnh: wo
Vẽ nhanh Wipeout

Vẽ nhanh Wipeout giống như Hatch bằng cách pick điểm


Filename: 151597_wo.lsp
Tác giả: 3d.decor
Bài viết gốc: 151169
Tên lệnh: clear
Viết lisp theo yêu cầu [phần 2]
trích dẫn tomboy
chịu thua, chưa 1 lisp nào có thể tẩy được layer của bản vẽ mà thuộc tính của Block được giữ nguyên, nói chung bạn phải định nghĩa lại block của bạn bằng phương pháp thủ công trước khi bạn sử dụng lệnh dlay của bạn
bạn có chắc dùng lisp để tẩy hết các layer thừa trong bản vẽ trong khi các blocl của bản vẽ đó vẫn giữ nguyên thuộc tính được không?
>>
trích dẫn tomboy
chịu thua, chưa 1 lisp nào có thể tẩy được layer của bản vẽ mà thuộc tính của Block được giữ nguyên, nói chung bạn phải định nghĩa lại block của bạn bằng phương pháp thủ công trước khi bạn sử dụng lệnh dlay của bạn
bạn có chắc dùng lisp để tẩy hết các layer thừa trong bản vẽ trong khi các blocl của bản vẽ đó vẫn giữ nguyên thuộc tính được không?

bác ơi bác dùng thử lisp này xem




hehe em lại tạm chế được rồi
lisp clear.lsp của pro ketxu em lock những layer ko cần chuyển
sau đó chạy lisp
những layer lock sẽ không bị chuyển
kakaka
em rất cám ơn các pro đã nhiệt tình giúp thành viên amater như em
bác nào không giúp thì em lại tìm cách tạm chế
bằng cách không hiểu về lập trình nhưng em copy các dòng lisp các pro viết sẵn để chế với nhau
không thành công cũng thành nhân vậy
<<

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

Bạn dùng thử cái này coi sao nhé.

Filename: 150948_dlay.lsp
Tác giả: 3d.decor
Bài viết gốc: 150788
Tên lệnh: dlay
Viết lisp theo yêu cầu [phần 2]
mong các pro viết thêm mọt hai dòng lisp nữa
lisp không tẩy được layer có trong block
nhìn rất khó chịu
thank you


Filename: 150788_dlay.lsp
Tác giả: phamngoctukts
Bài viết gốc: 150584
Tên lệnh: cla cdi cte
chọn đối để lấy style thành hiện hành

chọn đối tượng thì các style của nó hiện hành


Filename: 150584_cla_cdi_cte.lsp
Tác giả: 3d.decor
Bài viết gốc: 150583
Tên lệnh: dlay
Viết lisp theo yêu cầu [phần 2]
mong các pro viết thêm mọt hai dòng lisp nữa
lisp không tẩy được layer có trong block
nhìn rất khó chịu
thank you


Filename: 150583_dlay.lsp
Tác giả: phamngoctukts
Bài viết gốc: 150501
Tên lệnh: invert
Bổ xung thêm tính năng cho lisp ẩn đối tượng.

Chọn các đối tượng xong rồi ẩn các đối tượng không được chọn


Filename: 150501_invert.lsp
Tác giả: ketxu
Bài viết gốc: 150523
Tên lệnh: nut
Tạo thêm nút cho Line, Pline


- Phiên bản rút gọn của Lisp thêm - bớt đỉnh của Pline


Filename: 150523_nut.lsp
Tác giả: duy782006
Bài viết gốc: 150196
Tên lệnh: dpl
-Lệnh DPL
-Copy nhóm đối tượng đến đỉnh pline (có lựa chọn quay song song phân giác góc tại đỉnh)

Filename: 150196_dpl.lsp
Tác giả: pdle
Bài viết gốc: 150218
Tên lệnh: occ
Cần các bác tìm hộ một Lisp với ạ !

Anh thử cái này xem sao:

Filename: 150218_occ.lsp
Tác giả: 3d.decor
Bài viết gốc: 150124
Tên lệnh: mo
Viết lisp theo yêu cầu [phần 2]
em có cái lisp của bác gia bạch thì phải
dung move rất relax mong bác nào rảnh viết thêm em cái lisp copy
em rất cám ơn
em tự sủa mà không ra trình độ còi quá
rất cám ơn bác ketxu về lisp chuyển layer em dùng rất ổn


Filename: 150124_mo.lsp
Tác giả: ketxu
Bài viết gốc: 149254
Tên lệnh: p2e
Đo khoảng cách giữa các đỉnh của pline



Chức năng :
- Xuất chiều dài các cạnh Pline theo 1 cột (có thể chọn nhiều PLine)
- Nếu máy có Excel : xuất ra Excel, ngược lại xuất ra CSV




Filename: 149254_p2e.lsp
Tác giả: pdle
Bài viết gốc: 149720
Tên lệnh: tdpl
Lisp xuất toạ độ các đỉnh của đường Line hoặc Plyline
Em đã sửa lại cái lisp trên như sau:

Các vấn đề đã giải quyết được:

1. Đã xử lý được với các đỉnh của lines
2. Không còn vướng mắc ở các đỉnh của polyline trùng nhau (polyline đi qua 1 điểm 2 lần) vì đã có phương loại các đỉnh bị lặp
3. Cho phép chọn một lúc nhiều line và polyline (co như 1 tổ hợp đường)
4. Ghi vào file .txt dưới dạng:
>>
Em đã sửa lại cái lisp trên như sau:

Các vấn đề đã giải quyết được:

1. Đã xử lý được với các đỉnh của lines
2. Không còn vướng mắc ở các đỉnh của polyline trùng nhau (polyline đi qua 1 điểm 2 lần) vì đã có phương loại các đỉnh bị lặp
3. Cho phép chọn một lúc nhiều line và polyline (co như 1 tổ hợp đường)
4. Ghi vào file .txt dưới dạng:
http://i244.photobucket.com/albums/gg18/vinhanh_hn/1-21.jpg

Các vấn đề còn tồn tại:

1. Khi ghi dữ liệu vào file .txt không hiểu tại sao TAB sau Y không hoạt động, nghĩa là khoảng cách từ tọa độ Y đến tọa độ Z không bằng 1TAB. Ngoài ra ở các điểm C và D, tọa độ X và Y cũng không cách nhau đúng 1 TAB?

2. Chưa giải quyết cho trường hợp số đỉnh nhiều hơn tên đỉnh

Sau đây là lisp:


Mong mọi người cho ý kiến!

Đây là file kết quả của các đường lines trong file cad mà chủ topic đã upload lên:
http://www.cadviet.com/upfiles/3/result.txt
<<

Filename: 149720_tdpl.lsp

Trang 35/303

35