Jump to content
InfoFile
Tác giả: ketxu
Bài viết gốc: 166263
Tên lệnh: kvg
Vẽ đường thẳng vuông góc và đi qua điểm M trên Pline
Qua bản vẽ sơ sài của bạn thì chỉ làm đc đến thế này thôi :

Filename: 166263_kvg.lsp
Tác giả: Doan Van Ha
Bài viết gốc: 166308
Tên lệnh: b1
Tạo Boundary với Layer tùy chọn

Lisp dùng để tạo Boundary cho đối tượng, có Layer của Boundary theo Layer mẫu.


Filename: 166308_b1.lsp
Tác giả: gia_bach
Bài viết gốc: 166045
Tên lệnh: 2layer
Lisp gom đối tượng dựa vào mã màu

Bạn chạy thử Lisp này :

Filename: 166045_2layer.lsp
Tác giả: ketxu
Bài viết gốc: 166210
Tên lệnh: 2layer
Gom đối tượng vào layer theo màu

@bác Gia_bach : ngắn gọn và đẹp quá ^^
@t031285 : Bạn phải tự định nghĩa vào list màu - đối tượng trong list lst :
Ví dụ, bạn muốn thêm màu 3, layer 3 thì thêm vào dòng (cons 3 "3") sau dòng màu đỏ :



@Nguyenkhoadng : bạn post bài sai quy định, lần này mình sửa, hy vọng bạn không phiền lòng và rút kinh nghiệm
>>
@bác Gia_bach : ngắn gọn và đẹp quá ^^
@t031285 : Bạn phải tự định nghĩa vào list màu - đối tượng trong list lst :
Ví dụ, bạn muốn thêm màu 3, layer 3 thì thêm vào dòng (cons 3 "3") sau dòng màu đỏ :



@Nguyenkhoadng : bạn post bài sai quy định, lần này mình sửa, hy vọng bạn không phiền lòng và rút kinh nghiệm :)
<<

Filename: 166210_2layer.lsp
Tác giả: copvan0204
Bài viết gốc: 165842
Tên lệnh: exptxt
Giúp chỉnh sửa lisp xuất tọa độ và cao độ sang text
Mình chưa hiểu lắm về lisp nên nhờ anh em giúp đỡ.
Mình có cái lisp xuất tọa độ từ cad sang text nhưng bị vướng một vấn đề là: khi gặp phải các tọa độ và cao độ mà sau dấu phẩy bằng 0 thì nó bị bung cách hiện thị trong file text. Mình muốn bất cứ tọa độ hay cao độ nào hiện thị trong txt cũng đều hiện thị 3 số sau dấu thập phân (ví dụ: 23.3 thì phải hiện thị là 23.300)

Filename: 165842_exptxt.lsp
Tác giả: thanhduan2407
Bài viết gốc: 165843
Tên lệnh: exptxt
Giúp chỉnh sửa lisp xuất tọa độ và cao độ sang text


Sửa luôn trên mục trả lời cho bạn

Filename: 165843_exptxt.lsp
Tác giả: pdle
Bài viết gốc: 165777
Tên lệnh: bou
Tính diện tích
Anh thử lisp này xem thế nào ? Cái này tính được diện tích của một hình mà bên trong bị khoét !


Filename: 165777_bou.lsp
Tác giả: thanhduan2407
Bài viết gốc: 165393
Tên lệnh: 34 12 23
lisp chuyển layer

Đó là lệnh layiso của Autocad (nếu cad cài tools express).
Còn nếu chưa cài thì dùng lisp này:
- 12: Hiện tất cả các layer (Lệnh layon của Cad khi cài tools express)
- 23: Kích chọn đối tượng có layer cần ẩn (Lệnh layoff của Cad khi cài tools express)
- 34: Kích chọn đối tượng có layer giữ lại còn các layer khác ẩn (Lệnh layiso của Cad khi cài tools express)

Filename: 165393_34_12_23.lsp
Tác giả: cd2k44
Bài viết gốc: 165384
Tên lệnh: cg
lisp chuyển layer

Lisp này mình sưu tầm được.Có lẽ là đúng ý của bạn.Vì không biết là nguồn ở đâu nên mình không chú thích trong lisp, mong tác giả lisp thông cảm

Filename: 165384_cg.lsp
Tác giả: thanhduan2407
Bài viết gốc: 165219
Tên lệnh: rev poly
lisp đổi chiều đường polyline
Em xin thêm 1 lisp sưu tầm được.

Filename: 165219_rev_poly.lsp
Tác giả: Detailing
Bài viết gốc: 164989
Tên lệnh: test
[Thư Viện] Tập hợp một số hàm entmake object

Đây bạn, mình sưu tầm


Filename: 164989_test.lsp
Tác giả: 18011985
Bài viết gốc: 165179
Tên lệnh: po
Tính diện tích

Mình viết 1 đoạn lsp với ý tưởng như sau:
- Tính diện tích 1 hình loại bỏ các hình con ở bên trong.
- Biểu diễn hình tính diện tích.
+ Mắc phải lỗi sau:
- Tràn bộ nhớ của cad vì mình cho nó đối chiếu với nhiều hình (bản vẽ cad kèm theo)
- Nếu pick vào phạm vi hình ngoài trước ( không pick hình trong ) cho kết quả như ý muốn. Nhưng nếu pick hình con trước thì kết quả...
>>
Mình viết 1 đoạn lsp với ý tưởng như sau:
- Tính diện tích 1 hình loại bỏ các hình con ở bên trong.
- Biểu diễn hình tính diện tích.
+ Mắc phải lỗi sau:
- Tràn bộ nhớ của cad vì mình cho nó đối chiếu với nhiều hình (bản vẽ cad kèm theo)
- Nếu pick vào phạm vi hình ngoài trước ( không pick hình trong ) cho kết quả như ý muốn. Nhưng nếu pick hình con trước thì kết quả không được.
+ Diễn đàn có nhiều lsp tính diện tích nhưng mình vẫn muốn dùng cái mình làm ra vì như thế nếu có sai ở đâu còn sửa được nên vậy rất mong các bạn giúp mình. Sau đây là đoạn code:

File cad: http://www.cadviet.com/upfiles/3/drawing1_81.dwg
<<

Filename: 165179_po.lsp
Tác giả: thanhduan2407
Bài viết gốc: 165219
Tên lệnh: rev
lisp đổi chiều đường polyline
Em xin thêm 1 lisp sưu tầm được.

Filename: 165219_rev.lsp
Tác giả: thanhduan2407
Bài viết gốc: 164811
Tên lệnh: khbd
Nhờ các bác viết lisp vẽ mắt lưới khung và ghi tọa độ khung HCN nghiêng
@Phamthanhbinh: Hic hic, em cảm ơn bác nhiều. Rất vừa với ý của em.
@Ketxu: Cảm ơn Ketxu nhé
Cả hai đều rất nhiệt tình, em sẽ cố gắng nghiên cứu. Cảm ơn các bác
Mạo muội Bác Bình và Ketxu, em tự sửa cho tốc độ nó nhanh hơn một chút cho cái viết text nó nhanh. Hề hề hề.

Filename: 164811_khbd.lsp
Tác giả: ketxu
Bài viết gốc: 164817
Tên lệnh: cen
Lấy dữ liệu lệnh Massprop


Tạo Region, đánh số, lấy dữ liệu ...


Filename: 164817_cen.lsp
Tác giả: Doan Van Ha
Bài viết gốc: 164719
Tên lệnh: ttt
Tìm trọng tâm của n hình kín 2D

Lisp dùng để tính trọng tâm của n hình kín 2D dạng REGION,POLYLINE,LWPOLYLINE,SPLINE,CIRCLE,ELLIPSE.


Filename: 164719_ttt.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 164803
Tên lệnh: khbd
Nhờ các bác viết lisp vẽ mắt lưới khung và ghi tọa độ khung HCN nghiêng

Hề hề hế,
Nhón thế này có được không hè???


Hề hề hề, nếu vẫn chưa ưng thì bác nhón tay post lên để mình sửa lại nhé.......

Filename: 164803_khbd.lsp
Tác giả: ketxu
Bài viết gốc: 164565
Tên lệnh: grids
Vẽ mắt lưới khung và ghi tọa độ khung HCN nghiêng

@ bác D :
Xanh : :blush: Đến bao giờ đây ạ ???? E vẫn nhớ e nhờ bác cái lisp modify dim từ rất lâu rồi....Làm cái j cũng vậy thôi, quan trọng nhất vẫn là quyết làm
Tím : không nên lạm dụng Express quá ^^
Đỏ : Làm được nhưng làm quá trình trở nên rườm rà bác ạ, và với cách đặt...
>>

@ bác D :
Xanh : :blush: Đến bao giờ đây ạ ???? E vẫn nhớ e nhờ bác cái lisp modify dim từ rất lâu rồi....Làm cái j cũng vậy thôi, quan trọng nhất vẫn là quyết làm
Tím : không nên lạm dụng Express quá ^^
Đỏ : Làm được nhưng làm quá trình trở nên rườm rà bác ạ, và với cách đặt TextBase, thi thoảng mới xảy ra hiện tượng trùng chữ
E tặng bác, hy vọng bác hài lòng, tốc độ có nhanh hơn cái lisp e gửi bài đầu


<<

Filename: 164565_grids.lsp
Tác giả: ketxu
Bài viết gốc: 164625
Tên lệnh: kdg
Vẽ đường dóng trắc ngang



Có nhiều yêu cầu, các bạn hãy vào topic lấy cái phù hợp

Filename: 164625_kdg.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 164549
Tên lệnh: khbd
Nhờ các bác viết lisp vẽ mắt lưới khung và ghi tọa độ khung HCN nghiêng

Hề hề hề,
Mình thì lại lọ mọ viết. Ra được cái này có vẻ đúng với ý của bác. Tuy nhiên cũng còn tí khó chịu, ấy là tùy theo các góc nghiêng của khung chữ nhật và tỷ lệ bản vẽ nhập vố mà có thể các text số vẫn còn cưỡi lên nhau tí ti. Bác cứ dùng thử và cho ý kiến để mình lọ mọ thêm tí nữa vậy...

Trong lisp này có xài mấy thứ mót được của bác SSG ,...
>>

Hề hề hề,
Mình thì lại lọ mọ viết. Ra được cái này có vẻ đúng với ý của bác. Tuy nhiên cũng còn tí khó chịu, ấy là tùy theo các góc nghiêng của khung chữ nhật và tỷ lệ bản vẽ nhập vố mà có thể các text số vẫn còn cưỡi lên nhau tí ti. Bác cứ dùng thử và cho ý kiến để mình lọ mọ thêm tí nữa vậy...

Trong lisp này có xài mấy thứ mót được của bác SSG , Ketxu và các bác khác nữa, mong các bác không giận khi mình xài chùa....
<<

Filename: 164549_khbd.lsp

Trang 26/314

26