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


Tổng quát 1 cách nông dân thì làm như sau:
-Lệnh PLB.:
+Hỏi góc xiên. Nếu thích vẽ xuống dưới thì nhập giá trị âm nhé
+Hỏi độ dài cạnh xiên.
+Chọn Block xuất phát.
+Chọn block tiếp theo... tiếp theo... tiếp theo...
Lisp sẽ vẽ pline đi qua điểm chèn của các block theo thứ tự chọn. Với mổi cặp 2 block phân đoạn pline sẽ xuất phát từ điểm chèn, xiên so với...
>>

Tổng quát 1 cách nông dân thì làm như sau:
-Lệnh PLB.:
+Hỏi góc xiên. Nếu thích vẽ xuống dưới thì nhập giá trị âm nhé
+Hỏi độ dài cạnh xiên.
+Chọn Block xuất phát.
+Chọn block tiếp theo... tiếp theo... tiếp theo...
Lisp sẽ vẽ pline đi qua điểm chèn của các block theo thứ tự chọn. Với mổi cặp 2 block phân đoạn pline sẽ xuất phát từ điểm chèn, xiên so với đường nối 2 block góc hỏi bên trên, dài hỏi bên trên, đi tiếp song song đường nối 2 block , xiên ngược lại góc hỏi bên trên, dài hỏi bên trên và đến điểm chèn block thứ hai.


<<

Filename: 149120_plb.lsp
Tác giả: hdg2318
Bài viết gốc: 149168
Tên lệnh: drt
Xoay text trong dim

ứng dụng khi ucs không đúng chiều

Filename: 149168_drt.lsp
Tác giả: duy782006
Bài viết gốc: 148998
Tên lệnh: mab mabt
-Lệnh MAB và MABT
-MAB: Chọn block mẫu, chọn các block cần thay. Giữ nguyên điểm chèn còn tỉ lệ và góc quay thì theo block mẫu.
-MABT: Chọn block mẫu, chọn các block cần thay. Giữ nguyên điểm chèn. tỉ lệ và góc quay.




Filename: 148998_mab_mabt.lsp
Tác giả: ketxu
Bài viết gốc: 149003
Tên lệnh: mb1
Thay thế Block chọn bằng Block khác

Nghe bạn tả thì bạn dùng tạm cái này.

P/S : của bác Duy kỹ hơn

Filename: 149003_mb1.lsp
Tác giả: pdle
Bài viết gốc: 148817
Tên lệnh: otr
Lisp thao tác trong 3D
Em đã sửa lại mấy cái lisp trên kia một chút (lisp 2 và lisp 3), bây giờ nó sẽ cho phép em chọn nhiều trục ống, vẽ đồng thời một lúc. Tại từ trước tới giờ em chỉ quen thao tác với entsel, bây giờ biết thêm lệnh ssget(cái này là nhờ em ngâm cứu lại một cái lisp em nhờ anh ketxu viết hộ, cảm ơn anh í một lần nữa
>>
Em đã sửa lại mấy cái lisp trên kia một chút (lisp 2 và lisp 3), bây giờ nó sẽ cho phép em chọn nhiều trục ống, vẽ đồng thời một lúc. Tại từ trước tới giờ em chỉ quen thao tác với entsel, bây giờ biết thêm lệnh ssget(cái này là nhờ em ngâm cứu lại một cái lisp em nhờ anh ketxu viết hộ, cảm ơn anh í một lần nữa :D), nên em cải tiến chúng một chút như sau, công việc nhanh hơn hẳn :)

Lisp 2: vẽ ống trụ:

<<

Filename: 148817_otr.lsp
Tác giả: pdle
Bài viết gốc: 148817
Tên lệnh: ovu
Lisp thao tác trong 3D

Em đã sửa lại mấy cái lisp trên kia một chút (lisp 2 và lisp 3), bây giờ nó sẽ cho phép em chọn nhiều trục ống, vẽ đồng thời một lúc. Tại từ trước tới giờ em chỉ quen thao tác với entsel, bây giờ biết thêm lệnh ssget(cái này là nhờ em ngâm cứu lại một cái lisp em nhờ anh ketxu viết hộ, cảm ơn anh í một lần nữa
>>
Em đã sửa lại mấy cái lisp trên kia một chút (lisp 2 và lisp 3), bây giờ nó sẽ cho phép em chọn nhiều trục ống, vẽ đồng thời một lúc. Tại từ trước tới giờ em chỉ quen thao tác với entsel, bây giờ biết thêm lệnh ssget(cái này là nhờ em ngâm cứu lại một cái lisp em nhờ anh ketxu viết hộ, cảm ơn anh í một lần nữa :D), nên em cải tiến chúng một chút như sau, công việc nhanh hơn hẳn :)

Lisp 2: vẽ ống trụ:

<<

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

- Phiên bản 2 của ASMI




Filename: 148586_pdim.lsp
Tác giả: pdle
Bài viết gốc: 148559
Tên lệnh: dpl
Đo khoảng cách giữa các đỉnh của pline

Không biết bạn định đo xong, thì kết quả xuất ra chỗ nào, nên mình tạm cho ra cửa sổ commandline vậy.
Sau đây là lisp:

Filename: 148559_dpl.lsp
Tác giả: thanhduan2407
Bài viết gốc: 148569
Tên lệnh: apl
Đo khoảng cách giữa các đỉnh của pline

Của bạn đây. Nếu cần ghi cả góc thì cũng có luôn. Lisp của bác Gia_Bach

Filename: 148569_apl.lsp
Tác giả: Detailing
Bài viết gốc: 148526
Tên lệnh: cadvietlisp%252
Lisp rải đối tượng theo đơờng dẩn.
lisp rất hay nhưng thiếu mất cái hàm (vl-load-com) máy mình ko load lisp nào hết nên ra lỗi no function definition: VLAX-CURVE-GETENDPARAM

Đoạn này nếu enter trong trường hợp ko phải Block thì biến dc sẽ bị sai,
lisp hay, vote cho bác 1 phiếu :rolleyes:

Filename: 148526_cadvietlisp%252.lsp
Tác giả: thanhduan2407
Bài viết gốc: 148047
Tên lệnh: regcent
hỏi han về cái bắt tâm hình vuông mà cài osnap không được

Em tìm trên gg được cái này. Chưa hiểu hết nó nhưng em cứ post cho mọi người dùng. hii

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

Bạn xem cái này vậy vì mình cũng chả nhớ rõ nó nằm ở đâu. Có nhẽ cũng trong mục viết lisp theo yêu cầu thôi nhưng mà nó dài quá......

Filename: 115166_dstt.lsp
Tác giả: pdle
Bài viết gốc: 147802
Tên lệnh: centro
tìm trọng tâm của 1 đối tượng kín

Bạn save nó dưới dạng một file lisp rồi sử dụng thôi. Mà cái này tác giả hỏi lâu rồi, có khi bây giờ anh ấy là một Lisper pro rồi ấy chứ.
Hôm nay em mới tìm ra bài này, đọc thấy cái lisp của anh Hoanh hay quá, nhưng có bắt phải chọn đối tượng là Region. Có nhiều hình em chỉ cần biết trọng tâm của nó, chứ không muốn chuyển nó sang region. Vì thế em có sửa lại đôi chút như...
>>

Bạn save nó dưới dạng một file lisp rồi sử dụng thôi. Mà cái này tác giả hỏi lâu rồi, có khi bây giờ anh ấy là một Lisper pro rồi ấy chứ.
Hôm nay em mới tìm ra bài này, đọc thấy cái lisp của anh Hoanh hay quá, nhưng có bắt phải chọn đối tượng là Region. Có nhiều hình em chỉ cần biết trọng tâm của nó, chứ không muốn chuyển nó sang region. Vì thế em có sửa lại đôi chút như sau. Có vẻ như em làm hơi thủ công, mong mọi người chỉ giúp em với ạ. Lisp này em đã kiểm tra, kết quả chạy ổn :D

<<

Filename: 147802_centro.lsp
Tác giả: Tue_NV
Bài viết gốc: 147861
Tên lệnh: c
From: hỏi han về cái bắt tâm hình vuông mà cài osnap không được

Tue_NV chưa biết cách làm với CAD. Nhưng hình như là không có.
Lisp sau có thể bắt trọng tâm của một đa giác kín bất kì

Cách bắt trọng tâm của 1 đa giác kín như sau : (trong 1 lệnh)
1. Apload Lisp
2. Vẽ 1 Line với điểm đầu là trọng tâm của 1 đa giác
Command: L -> Gõ L
LINE Specify first point: 'c -> Gõ 'c

Pick chon doi tuong lay trong tam : -> Pick vào...
>>

Tue_NV chưa biết cách làm với CAD. Nhưng hình như là không có.
Lisp sau có thể bắt trọng tâm của một đa giác kín bất kì

Cách bắt trọng tâm của 1 đa giác kín như sau : (trong 1 lệnh)
1. Apload Lisp
2. Vẽ 1 Line với điểm đầu là trọng tâm của 1 đa giác
Command: L -> Gõ L
LINE Specify first point: 'c -> Gõ 'c

Pick chon doi tuong lay trong tam : -> Pick vào hình cần lấy trọng tâm
(22.0409 20.9165)

Specify next point or : -> Điểm kê tiếp của lệnh LINE
Specify next point or :

Để lấy trọng tâm ở 1 lệnh khác cũng gõ 'c

Lisp trên cũng là 1 lời giải :rolleyes:
<<

Filename: 147861_c.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 147611
Tên lệnh: qt
Xin các bạn xem và sửa giúp mình cái lisp này.


Hề hề hề,
Gửi bạn xuandao0708 cái lisp mình sửa theo yêu cầu của bạn ở ý 2 và ý 3. Còn ý 1 thì bạn tham khảo lisp của bác Tue_NV như mình đã nói ở bài post trước nhé. Ý 4 thì có nhẽ phải chờ thêm chút xíu nữa.


Chúc bạn vui.

Filename: 147611_qt.lsp
Tác giả: V77
Bài viết gốc: 147616
Tên lệnh: udt
Viết lisp theo yêu cầu [phần 2]
Em xin nhờ các bác trên diễn dàn chỉnh lại lisp udt này thêm phần "chọn điểm ghi cao độ" với,em đang cần ghi lại diện tích để ban A kiểm tra cho tiện,nhưng cứ phải copy text trước rồi lại edit text hơi lâu.
Em cũng mày mò thử chỉnh mà khôngđưcợc,em xin cảm ơn ạh.
My link

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

Chào bạn thanhblue,
Những vấn đề bạn yêu cầu hoàn toàn có thể làm được nhưng nó cần một vài điều kiện như sau:
1/- Các bản vẽ của bạn phải có cấu trúc hoàn toàn giống nhau. Các lines, layers, polylines ... phải được sử dụng cho cùng một mục đích như nhau.
2/- Bạn phải cài bộ express tools.

Vậy bạn có đồng ý không????

Lisp đó đây, bạn hãy xài...
>>

Chào bạn thanhblue,
Những vấn đề bạn yêu cầu hoàn toàn có thể làm được nhưng nó cần một vài điều kiện như sau:
1/- Các bản vẽ của bạn phải có cấu trúc hoàn toàn giống nhau. Các lines, layers, polylines ... phải được sử dụng cho cùng một mục đích như nhau.
2/- Bạn phải cài bộ express tools.

Vậy bạn có đồng ý không????

Lisp đó đây, bạn hãy xài thử nhé:


Hy vọng bạn hài lòng.
<<

Filename: 147588_cd.lsp
Tác giả: phamthanhbinh
Bài viết gốc: 147611
Tên lệnh: lamtron dt1 nhaso kith kithch
Xin các bạn xem và sửa giúp mình cái lisp này.


Hề hề hề,
Gửi bạn xuandao0708 cái lisp mình sửa theo yêu cầu của bạn ở ý 2 và ý 3. Còn ý 1 thì bạn tham khảo lisp của bác Tue_NV như mình đã nói ở bài post trước nhé. Ý 4 thì có nhẽ phải chờ thêm chút xíu nữa.


Chúc bạn vui.

Filename: 147611_lamtron_dt1_nhaso_kith_kithch.lsp
Tác giả: gia_bach
Bài viết gốc: 147167
Tên lệnh: apl
dùm em lisp

thanhduan2407 tham khảo đoạn Lisp Tính chiều dài các phân đoạn và góc của chúng

Filename: 147167_apl.lsp
Tác giả: thanhduan2407
Bài viết gốc: 147194
Tên lệnh: gcdpl taotep
dùm em lisp

Cảm ơn bác Gia_Bach và bác pdle. Vậy là em lại được ngâm mấy thằng vla-, vlx- của các bác rồi. Hii.Trong lúc chờ đợi em cũng viết gần xong cái lisp ấy rồi. Bây giờ chỉ cần nối lại là xong. Hii. Có gì mong các bác chỉ giáo cho em.

Filename: 147194_gcdpl_taotep.lsp

Trang 36/330

36